Excel VBA系列之打开工作簿

1. 如图，我们在D盘下的test文件夹新建了一个test.xlsx文件，并在文件中的工作表中A1单元格输入一些信息。

2. 保存并关闭上面新建的文件，在另外一个Excel文件中打开Visual Basic，添加模块和过程，称之为“打开文件”。

Sub 打开文件()

End Sub

3. 在过程中输入打开工作簿的代码：

Workbooks.Open：在Workbooks表示工作簿，Open是打开的动作。

如果仅执行以上代码，会报错。

Sub 打开文件()

Workbooks.Open

End Sub

4. 因此，打开工作簿的动作后面需要加上必要的参数：

Filename:="D:\test\test.xlsx"：找到D盘test文件夹下的文件。

Sub 打开文件()

Workbooks.Open Filename:="D:\test\test.xlsx"

End Sub

5. 执行以上代码后，就可以打开文件test.xlsx。

6. 打开工作簿后，我们对其做一些数据操作，如在A2单元格输入“Hi World!”

代码ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"表示：在当前活跃的文件下的第一张工作表下的A2单元格输入信息。

Sub 打开文件()

Workbooks.Open Filename:="D:\test\test.xlsx"

ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"

End Sub

7. 再次执行以上代码后，可以看到文件内容已更新。

8. 对更新的文件进行保存：

ActiveWorkbook.Save：在当前活跃工作簿中执行Save保存的动作。

Sub 打开文件()

Workbooks.Open Filename:="D:\test\test.xlsx"

ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"

ActiveWorkbook.Save

End Sub

9. 关闭文件：

ActiveWorkbook.Close：在当前活跃工作簿中执行Close关闭的动作。

Sub 打开文件()

Workbooks.Open Filename:="D:\test\test.xlsx"

ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"

ActiveWorkbook.Save

ActiveWorkbook.Close

End Sub

10. 为避免在执行代码的过程可能出现的弹窗警告显示，在核心代码的开始和最后添加取消警告和恢复警告。

Sub 打开文件()

Application.DisplayAlerts = False

Workbooks.Open Filename:="D:\test\test.xlsx"

ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"

ActiveWorkbook.Save

ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub