Excel 2010 使用VBA保存所有已经打开的工作簿

1、打开Excel 2003或2007或2010或2013完整版版本

2、进入“开发工具”一栏

3、点选“Visual Basic”选项卡中的“编辑器”

4、双击“ThisWorkBook”或“工作表1”

5、在空白区域填写代码：

Sub 保存所有已打开的工作簿()

Dim i As Workbook

For Each i In Workbooks

    If i.Path <> "" Then

        i.Save

    End If

Next i

End Sub

6、点击“运行”

7、点击“运行子过程/UserForm”