VBA⇒BAT⇒TTLの順に実行させると、TTLが正常起動しない。

Question

VBAの実行ボタンでキックし、BATを起動して、TTLファイルを実行したいのですが、
期待通りに動作せず困っています。何卒ご教示ください。

以下のコードでは、
BATからキックした場合は、正常にTTLファイルが実行されますが、
VBAからキックした場合は、BAT処理が実行された後、TTLが正常に実行されません。（正確には一瞬だけttlが実行された際のポップアップが表示されます。）

以下テスト用に用意したコードです。
◆vba
Sub TeraTermAction()

Dim shellObject As Object
Dim batchFile As String
 
'TeraTermを起動するバッチファイルのフルパス
batchFile = "C:\Users\mmrk\Desktop\YYC-NW\log\exec.bat"
 
Set shellObject = CreateObject("WScript.Shell")
shellObject.Run batchFile, 1, True

End Sub

◆bat
set ttpmacro=C:\Program Files (x86)\teraterm\ttpmacro.exe
set ttl=%CD%\test.ttl
start "" "%ttpmacro%" "%ttl%"
pause

◆ttl
messagebox "test" "test"

Answer 1

batの%CD%がVBAからbatを実行した時に想定している物と異なっているのでしょう。
shellObject.Runする前にChDirでbatのあるディレクトリにカレントディレクトリを移動しましょう。