vbaからコマンドプロンプトを起動したのちに

質問

excelvbaで「CreateObject」からコマンドプロンプトを起動したのちにテラタームを起動させポート転送を許可するテキストをテラタームにわたして、テラタームに実行させるってことはできるのでしょうか?

以下の★印に"ssh -L 任意のポート:レンタルサーバーのipアドレス:任意のポート"のようなテキストをテラタームに渡したいです。

Private Sub テラタームを開く()
Dim wsh, tr As Object, appname As String
Set wsh = CreateObject("Wscript.Shell")
appname = "C:\Program Files\teraterm\ttermpro.exe"
Set tr = wsh.exec(appname)’テラタームが開いた後に

'★印　"ssh -L 任意のポート:レンタルサーバーのipアドレス:任意のポート"
End　Sub

環境は
windows7
office2003　excel
です
どうぞ、よろしくお願いします。

回答No.1

masatsan

teratermは引数をサポートしているのですよね。サポートしていないなら、windowをフックして操作をするしかないですね。

サポートしているとして　wsh.exec　じゃ無くて　wsh.run で　appname に引数を入れて起動してみてください。