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

 时间:2024-10-12 06:37:51

Excel VBA在打开和保存工作簿时都需要用到工作簿在硬盘中的存储路径。如果采用“硬编码”的方式,也就是说直接在代码中为工作簿的路径赋值一个固定的值,那么一旦路径名称改变或者工作簿被复制到其他位置,就会遇到问题,这样一来,要使宏继续有效,就不得不编辑代码中的路径。要避免这种情形,可使用相对路径。

工具/原料

Office Excel

Excel工作簿相对路径

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

Excel工作簿相对路径使用示例

1、Sub ceshi()Dim wkb As WorkbookDim filename 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。

  • 怎样使用VBA查找替换关键?
  • excel2013vba如何设置打印指定的两个工作表
  • 如何在Excel VBA中计算数组的大小
  • VBA编程中怎样设置一个数组?
  • 使用Excel VBA对单元格背景色进行条件设置
  • 热门搜索
    抗击肺炎手抄报 廉洁文化手抄报 关于廉洁的手抄报 关于法制教育的手抄报 119消防安全手抄报图片 班级公约手抄报 十一手抄报 中秋节手抄报内容文字 我的2035年手抄报图片 新学期新起点手抄报