Excelでsendkeys

作業自動化の最終手段。自分用メモ。
ChromeでURL開くまで。

'なんか動かん場合VB窓からツール→参照設定がいるかもしれん
'コマンドプロンプト用で設定した記憶だからPowerShellでも必要かどうかわからん
これな：Windows Script Host Object Model

'ワイの環境64bitになったんやで
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

Sub sendkeyrun()
Dim cpath As String
Dim uri As String
cpath = "$path = " & """C:\Program Files\Google\Chrome\Application\chrome.exe"""
uri = "$url = " & """https://対象アドレス"""

Dim objWSH As Object
Set objWSH = CreateObject("WScript.Shell")
result = objWSH.Run(Command:="powershell", Windowstyle:=1)

Sleep 4000
SendKeys "Add-Type -AssemblyName System.Windows.Forms"
SendKeys "{ENTER}"
SendKeys cpath
SendKeys "{ENTER}"
SendKeys uri
SendKeys "{ENTER}"
SendKeys "start $path $url"
SendKeys "{ENTER}"
Sleep 8000
'あとは開いたURLの先でやることを羅列
'alt+tabでPowerShell窓選択してExitしておくときれいかもしれないが
'会社で「自動化自動化」うるさく言われると行儀良くやる気も失せるのですわ

Set objWSH = Nothing
End Sub '