Public Function SendKeys(InpKeys As String)'CreateObject("WScript.Shell").SendKeys InpKeys Dim o As ObjectSet o = CreateObject("WScript.Shell") ' インスタンス化o.SendKeys InpKeys ' オブジェクトを使った処理Set o = Nothing ' 最後に必ず Nothi…