- ベストアンサー
VBAでのIE操作でENTERキーが押せません
- VBAでIEの操作を勉強中です。HTMLを整形するホームページでは手動で問題なく操作できますが、VBAから操作すると表示がされません。ENTERキーを押しても表示されません。
- 以下のVBAコードを使用しています。まず、目標のURLにIEを表示し、ページが読み込まれるまで待機します。次に、HTMLを入力するテキストエリアに値を設定し、ENTERキーを押します。しかし、表示される結果がありません。
- 解決策を教えてください。VBAからホームページのHTMLを表示させる方法がわかりません。
- punipunimal
- お礼率92% (13/14)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
課題サイトの場合は、 .Document.getElementsByTagName("textarea")(0).Focus ↑のようなコードで、フォーカスを当て、 その後に、"{ENTER}"を送ることで解決できるようです。 Sub testIEx() Dim IE As Object Dim target As String Dim wText As String target = "https://lab.syncer.jp/Tool/HTML-PrettyPrint/" wText = "<html><head><title>test</title></head><body><h1>test</h1></body></html>" Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .Navigate target Do While .Busy = True Or .ReadyState <> 4 DoEvents Loop Do While .Document.ReadyState <> "complete" DoEvents Loop .Document.getElementsByTagName("textarea")(0).Value = wText .Document.getElementsByTagName("textarea")(0).Focus SendKeys "{ENTER}" MsgBox .Document.getElementsByTagName("textarea")(1).Value End With End Sub
