Excel VBAからのWinactor起動 完全版
Excel VBAからのWinactor起動 完全版(いまのところ)です。
(1)参照設定で、Microsoft Scripting Runtime を設定。
(2)コード
Sub Winactor起動()
Dim myObj
Set myObj = CreateObject("WScript.Shell")
myObj.Run ★★★
End Sub
ここで、★★★にリンク先名を入れますが、従来のコラム、質問回答では、
リンク先名を作るのが非効率であったため、アップデートします。
①Winacotrで起動ショートカットを作る。
②起動ショートカットのファイルのプロパティからリンク先をコピペ
③必要なければ、起動ショートカットのファイルは削除してもOKです(②の確認のため作成)
④リンク先名を加工しよう!
(イ)コピペのままの状況
"C:\Program Files (x86)\WinActor7\WinActor7.exe" -f "C:\***\Desktop\実行ファイル.ums6"
(ロ)"のところを""に置き換える
""C:\Program Files (x86)\WinActor7\WinActor7.exe"" -f ""C:\***\Desktop\実行ファイル.ums6""
(ハ)最初と最後に"を加える
"""C:\Program Files (x86)\WinActor7\WinActor7.exe"" -f ""C:\***\Desktop¥実行ファイル.ums6"""
これを★★★に入れて完成です。
VBAでエスケープについて書かれているものがなかったので使用方法について気に留めていませんでした。
pythonの¥がエスケープシーケンスになっているところで使用方法に気づきました(Windowsには迷惑な感じもします・・・)