VBA代码动态设置文件路径

【问题标题】：VBA Code to set the file path dynamicallyVBA代码动态设置文件路径
【发布时间】：2015-06-01 17:07:37
【问题描述】：

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

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

有没有办法删除这个硬编码？？

【问题讨论】：

标签： excel vba

【解决方案1】：

如果您的 XML 文件夹与工作簿文件夹位于同一文件夹中，请尝试以下操作：

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

【讨论】：