最初のタスクは、2 つのワークシートを動的に結合することでした。Microsoft Query を使用すると、クエリを作成してワークシートからデータを取得できることがわかりました。ただし、ファイルに保存されているデータ接続には、ローカル コンピューターへの参照があります。ファイルを共有して誰でも更新できるように、代わりにこれをファイルに「埋め込む」方法はありますか? これが接続文字列です。
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 パラメータを変更できます。
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