Vba：如何从路径打开工作簿

您可以使用 VBA 中的Workbooks.Open方法从特定路径打开 Excel 工作簿。

以下是在实践中使用此功能的常见方法：

 SubOpenWorkbook ()

Dim wb As Workbook
Dim FilePath As String

FilePath = InputBox("Please Enter File Path")
Workbooks.Open FilePath

End Sub

执行此宏时，将出现一个输入框，用户可以在其中输入特定 Excel 工作簿的路径。

然后，宏将自动查找位于特定路径中的工作簿并在 Excel 中打开它。

以下示例展示了如何在实践中使用此语法。

示例：如何使用 VBA 从路径打开工作簿

假设我们有一个名为my_workbook2.xlsx的 Excel 工作簿，位于以下位置：

C:\Users\bob\Documents\my_workbook2.xlsx

假设我们要使用 VBA 自动打开该工作簿。

我们可以创建以下宏来执行此操作：

 SubOpenWorkbook ()

Dim wb As Workbook
Dim FilePath As String

FilePath = InputBox("Please Enter File Path")
Workbooks.Open FilePath

End Sub

运行此宏后，将出现一个框，我们可以在输入框中输入工作簿的路径：

单击“确定”后，宏将打开位于我们指定路径中的 Excel 工作簿。

请注意，如果在不存在的文件路径中输入工作簿的名称，VBA 将生成错误消息。

例如，假设我们尝试打开名为my_workbook3.xlsx的工作簿，但该工作簿不存在。

VBA 将产生以下错误消息：

这让我们知道我们指定的文件路径不存在。

注意：您可以在此处找到 VBA 中Workbooks.Open方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何计算工作簿中的工作表数量
VBA：如何保存和关闭工作簿
VBA：检查工作簿是否打开