09/10/18 21:13:43
VBA初めて作る初心者です。 土日をほぼ丸で使っても解決できませんでした。誰か助けてください。もしくは土日を返してくれ・・・。
目的 あるURLをIEで開き、全てを選択してエクセルに貼り付ける。
Sub ie_test_ExecWB()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "URLﾘﾝｸ(google.com)"
Do While objIE.Busy = True
DoEvents
Loop
objIE.SendKeys "^a"
objIE.SendKeys "^c"
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML"
End Sub
実行すると、
実行時エラー’-2147417848(80010108)':オートメーションエラーです。
起動されたオブジェクトはクライアントから切断されました。
と表示されます。 objIE.SendKeys "^a"objIE.SendKeys "^c"
ではなく、objIE.ExecWB 17, 0 objIE.ExecWB 12, 0でもダメでした。