获得文件路径

xytnt

vba程序都保存在“vba.xlam”中，打开某个文件比如“数据1.xlsx”会加载“vba.xlam”。
现在有个问题，就是想获得“数据1.xlsx”的路径，下面这段代码必须要放到“数据1.xlsx”的模块中，如果保存在“vba.xlam”中，得到的是“vba.xlam”的路径，

请问如何解决这个问题呢？

“数据1.xlsx”只是举例，实际中是各个不同的文件。



Sub GetWorkbookPath()  
    Dim path As String  
    path = ThisWorkbook.Path   
End Sub

使用上述代码，只能获得“vba.xlam”的路径，而不是我想要的当前打开的文件比如“数据1.xlsx”的路径

tmplinshi

ActiveWorkbook.Path

xytnt

tmplinshi 发表于 2024-1-14 22:19
ActiveWorkbook.Path

十分感谢，解决了大问题，再次感谢

ykcbf1100

“数据1.xlsx”文件还能保存宏代码？笔误了吧。

xytnt

ykcbf1100 发表于 2024-1-15 07:54
“数据1.xlsx”文件还能保存宏代码？笔误了吧。

代码是保存在“vba.xlam”里的，放在xlsx中的代码是临时运行的，没有保存