07/10/30 14:17:39
色々アドバイス有難うございました。
>>242さんの意見を参考に組んでみた所、引数を渡せる事を確認しました。
Set objShell = CreateObject("WScript.Shell")
strFile = "\\hoge\hoge.adp"
strPath = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE\Path") & "MSACCESS.EXE"
objShell.Run """" & strPath & """ """ & strFile & """ /cmd hoge"
どうも、引数を渡したい場合にはACCESSのフルパスを省略出来ないようで。
単純に実行したいだけならADPファイルのフルパスのみで可能でしたが。
なかなか難産でしたが、ようやく先に進めます。
ありがとうございました。