在本文中，我们将学习Excel VBA中的关闭和打开方法，该方法用于打开关闭工作簿以及关闭打开工作簿。

我们在Excel工作表中创建命令按钮并分配宏。

link”

如何通过VBA打开Excel工作簿？

请遵循以下给定的步骤和编码：-*插入2个命令按钮。

  • 第一个命令按钮，我们用于在命令按钮上单击鼠标右键。

  • VBE页面将打开并复制以下代码并粘贴到VBE页面中。

  • 要打开工作簿，请分配以下提到的宏。

Sub sOpenWorkbook（）

‘为文件名Dim csFileName定义变量为String’从Sheet1的单元格A1中获取文件名csFileName = ThisWorkbook.Sheets（“示例打开和关闭”）.Range（“ A1”）

‘打开工作簿Workbooks.Open csFileName MsgBox csFileName＆“打开”

结束子*第二个命令按钮，我们用于在命令按钮上单击鼠标右键。

  • VBE页面将打开并复制以下代码，然后粘贴到VBE页面中。

  • 要打开工作簿，请分配以下提到的宏。

Sub sCloseWorkbook（）

‘为文件名Dim csFileName作为String定义变量’从Sheet1的单元格A1获取文件名csFileName = ThisWorkbook.Sheets（“示例打开和关闭”）.Range（“ A1”）

‘关闭工作簿工作簿（Split（csFileName，“ \”）（UBound（Split（csFileName，“ \”）））））。CloseMsgBox Split（csFileName，“ \”）（UBound（Split（csFileName，“ \”））） ＆“已关闭”

End Sub这两个宏都将分配给命令按钮，我们必须使用下面的宏编码。

选项显式Sub sExample（）将csFileName作为String = _“ C：\ Test \ Master.xlsx” Workbooks.Open csFileNameWorkbooks（Split（csFileName，“ \”）（UBound（Spound（csFileName，“ \”））））。关闭结束子项sOpenWorkbook（）

‘为文件名Dim csFileName作为字符串定义变量’从Sheet1的单元格A1获取文件名csFileName = ThisWorkbook.Sheets（“示例打开和关闭”）.Range（“ A1”）’打开工作簿Workbooks.Open csFileNameMsgBox csFileName＆打开“

End Sub Sub sCloseWorkbook（）

‘为文件名Dim csFileName As String定义变量’从Sheet1的单元格A1获取文件名csFileName = ThisWorkbook.Sheets（“示例打开和关闭”）.Range（“ A1”）

‘关闭工作簿工作簿（Split（csFileName，“ \”）（UBound（Split（csFileName，“ \”）））））。CloseMsgBox Split（csFileName，“ \”）（UBound（Split（csFileName，“ \”））） ＆“已关闭”

结束子注：-您必须根据文件提及路径。

image 4