Excel VBA在打开和保存工作簿时都需要用到工作簿在硬盘中的存储路径。如果采用“硬编码”的方式，也就是说直接在代码中为工作簿的路径赋值一个固定的值，那么一旦路径名称改变或者工作簿被复制到其他位置，就会遇到问题，这样一来，要使宏继续有效，就不得不编辑代码中的路径。要避免这种情形，可使用相对路径。
工具/原料
Office Excel
Excel工作簿相对路径
1、Excel VBA中工作簿的相对路径可以用ThisWorkbook.Path语句获得。ThisWorkbook是对包含该代码的工作簿的引用。无论该工作簿位于哪里，ThisWorkbook的Path属性都将提供能定位到该工作簿的路径。
Excel工作簿相对路径使用示例
1、Sub ceshi()Dim wkb As WorkbookDim fi盟敢势袂lename As StringDim path 帆歌达缒As Stringfilename = "新建 Microsoft Office Excel 工作表 (2).xlsx"path = ThisWorkbook.pathSet wkb = Workbooks.Open(filename:=path & "\" & filename)wkb.Sheets(1).Range("A1") = 12End Sub这段代码的背景是，一个文件夹中有两个工作簿文件，一个是含有该段代码的工作簿，另一个是名为新建Microsoft Office Excel 工作表 (2).xlsx的工作簿，利用path = ThisWorkbook.path获取这两个工作簿的路径，然后打开新建Microsoft Office Excel 工作表 (2).xlsx工作簿，并为单元格A1赋值为12。
