在Excel VBA的关闭和打开方法可以用来关闭和打开的工作簿。请记住,工作簿集合包含所有当前打开的工作簿对象。

将工作表上的一个命令按钮并添加以下代码行:

1.代码线之下闭合特写open.xlsm。

Workbooks("close-open.xlsm").Close

低于2的代码行关闭第一开/创建工作簿。

Workbooks(1).Close

下面3.代码行关闭活动的工作簿。

ActiveWorkbook.Close

4.下面的代码行关闭当前打开的所有工作簿。

Workbooks.Close

下面5.代码行打开sales.xlsx。

Workbooks.Open ("sales.xlsx")

注意:您只能打开sales.xlsx没有,如果它存储在默认文件位置指定文件的路径。要更改默认文件位置,文件选项卡上,单击选项,保存。

6.还可以使用应用程序对象的GetOpenFilename方法来显示标准打开对话框。

Dim MyFile As String

MyFile = Application.GetOpenFilename()

7.选择一个文件,然后单击打开。

GetOpenFilename Method

注:GetOpenFilename实际上并不打开该文件。

8.接下来,您可以打开工作簿如常。

Workbooks.Open (MyFile)