VBA代码来设置文件路径动态

Question

我有一个VBA代码读取XML如下

strTargetFile = "C:\Users\XXXXXX\Desktop\XXXXXX\XXXX\XML\Details.xml" 
Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList) 

有没有办法消除这种硬编码？

Answer 1

如果你在同一个文件夹中的XML文件夹作为工作簿文件夹，然后试试这个：

sParentFolder = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) 
strTargetFile = sParentFolder & "\XML\Details.xml" 
Set wb = Workbooks.OpenXML(Filename:=strTargetFile,LoadOption:=xlXmlLoadImportToList)