【Excel VBA】怎样使用工作簿的相对路径

1、Excel VBA中工作簿的相对路径可以用ThisWorkbook.Path语句获得。ThisWorkbook是对包含该代码的工作簿的引用。无论该工作簿位于哪里，ThisWorkbook的Path属性都将提供能定位到该工作簿的路径。

1、Sub ceshi()

Dim wkb As Workbook

Dim filename As String

Dim path As String

filename = "新建 Microsoft Office Excel 工作表 (2).xlsx"

path = ThisWorkbook.path

Set wkb = Workbooks.Open(filename:=path & "\" & filename)

wkb.Sheets(1).Range("A1") = 12

End Sub

这段代码的背景是，一个文件夹中有两个工作簿文件，一个是含有该段代码的工作簿，另一个是名为新建 Microsoft Office Excel 工作表 (2).xlsx的工作簿，利用path = ThisWorkbook.path获取这两个工作簿的路径，然后打开新建 Microsoft Office Excel 工作表 (2).xlsx工作簿，并为单元格A1赋值为12。