1. 如圖,我們在D盤下的test文件夾新建了一個test.xlsx文件,并在文件中的工作表中A1單元格輸入一些信息。

2. 保存并關(guān)閉上面新建的文件,在另外一個Excel文件中打開Visual Basic,添加模塊和過程,稱之為“打開文件”。

Sub 打開文件()
End Sub
3. 在過程中輸入打開工作簿的代碼:
Workbooks.Open:在Workbooks表示工作簿,Open是打開的動作。
如果僅執(zhí)行以上代碼,會報錯。

Sub 打開文件()
Workbooks.Open
End Sub
4. 因此,打開工作簿的動作后面需要加上必要的參數(shù):
Filename:="D:\test\test.xlsx":找到D盤test文件夾下的文件。

Sub 打開文件()
Workbooks.Open Filename:="D:\test\test.xlsx"
End Sub
5. 執(zhí)行以上代碼后,就可以打開文件test.xlsx。

6. 打開工作簿后,我們對其做一些數(shù)據(jù)操作,如在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. 再次執(zhí)行以上代碼后,可以看到文件內(nèi)容已更新。

8. 對更新的文件進行保存:
ActiveWorkbook.Save:在當前活躍工作簿中執(zhí)行Save保存的動作。

Sub 打開文件()
Workbooks.Open Filename:="D:\test\test.xlsx"
ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"
ActiveWorkbook.Save
End Sub
9. 關(guān)閉文件:
ActiveWorkbook.Close:在當前活躍工作簿中執(zhí)行Close關(guān)閉的動作。

Sub 打開文件()
Workbooks.Open Filename:="D:\test\test.xlsx"
ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
10. 為避免在執(zhí)行代碼的過程可能出現(xiàn)的彈窗警告顯示,在核心代碼的開始和最后添加取消警告和恢復警告。

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