excel - 使用workbooks.open打开工作簿后如何获取工作簿名称？

Question

Workbooks.Open "C:\abc.xlsx"
Workbooks("abc").Worksheets("Sheet1").Range("A1:B7").Clear

在上面的代码中，我在第一行使用 Workbooks.Open 打开工作簿。在第二行中，我使用工作簿名称访问打开的工作簿。

如何访问第二行没有文件名的打开的工作簿？

(我想创建一个函数，但不想分别传递文件路径和文件名)

Answer 1

您需要使用引用并引用工作簿和工作表，例如:

Option Explicit

Sub OpenWorkbook()

   Dim wb As Workbook, ws As Worksheet

   Set wb = Workbooks.Open("C:\abc.xlsx", UpdateLinks:=False, ReadOnly:=True)
   Set ws = wb.Sheets("Sheet1")

   ws.Range("A1:B7").ClearContents

End Sub

请注意，openworkbook 上的参数如 Updatelinks 和 ReadOnly 可以修改为 True 或 False根据您的需要。