在Excel中embeddedMS Query连接

我原来的任务是dynamic组合两个工作表。 我发现Microsoft Query让我通过构build查询来从工作表中提取数据来做到这一点。 但是,存储在文件中的数据连接具有对本地计算机的引用。 有没有办法让这个“embedded”在文件中,而我可以共享文件,任何人都可以刷新它? 这是连接string。

DSN=Excel Files;DBQ=C:\Users\nana\Documents\Model\Project x Model - DRAFT 2015 07 13 0410 - Copy.xlsx;DefaultDir=C:\Users\nana\Documents\Model;DriverId=1046;MaxBufferSize=2048;PageTimeout=5; 

我认为你可以在代码中设置DSN,所以应该这样

 currentDir = Replace(WScript.ScriptFullName,WScript.ScriptName,””) 

这将给你的目录的Excel文件运行,然后你可以改变你的DNS参数,以反映variables:

 DSN=Excel Files;DBQ=" & currentDir & "Source.xls;DefaultDir=" & currentDir & ";DriverId=1046;FIL=excel 12.0;MaxBufferSize=2048;PageTimeout=5; 

这应该意味着dsn总是引用相同的工作簿…

*编辑我应该提到这个来自这里http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26514035.html