工具/原料 Office Excel Excel工作簿相对路径 方法/步骤1: Excel VBA中工作簿的相对路径可以用ThisWorkbook.Path语句获得。ThisWorkbook是对包含该代码的工作簿的引用。无论该工作簿位于哪里,ThisWorkbook的Path属性都将提供能定位到该工作簿的路径。 Excel工作簿相对路径使用示例
方法/步骤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。 |
|