Excel VBA 工作薄工作表遍历循环

‘新建一个模块，将下面代码复制到模块中就可以实现再打开的Excel工作薄，工作表的循环

'通用模块

Sub 通用模块()

Dim ABCD As Worksheet

Dim BCDE As Workbook

Application.ScreenUpdating = False

‘逐个工作薄循环,

If MsgBox("是否在所有打开的工作薄中运行", vbInformation + vbYesNo + vbDefaultButton2, "BYD_Sensor") = vbNo Then GoTo ZCQ

For Each BCDE In Workbooks

BCDE.Activate

For Each ABCD In Worksheets

ABCD.Activate

'逐个工作薄循环

'代码块

MsgBox "工作薄名称为：" & & " 工作表名称为：" &

Next ABCD

Next BCDE

Exit Sub

ZCQ:

当前工作薄循环

For Each ABCD In Worksheets

ABCD.Activate

'当前工作薄循环

'代码块

MsgBox "工作表名称为：" &

Next ABCD

Application.ScreenUpdating = True

End Sub

‘下面程序实将Excel图标保存到磁盘中，默认保存到我的文档‘图表保存为图片

Sub 图表保存为图片()

If ActiveChart Is Nothing Then

MsgBox "请选择需要复制的图表"

Else

ActiveChart.Export "mychart.JPG", "JPG"

End If

End Sub