質問: VBAでpapago開けません。 なんかインターネットエクスプローラーでpapagoまではいくけど、ページが表示されません。 お教えください。
回答: 手動の時の引数の tk=ja&st=○○ の所がVBAでは tk=ja○○ になっているのでページが表示しないのだと思います。 また結果の所得でも class="lmt__target_textarea" はhtmlの中にありません。 またJavaScriptが結果を用意するまで待ってません。 >ie.navigate "" & WorksheetFunction.EncodeURL(Range("D" & r).Value) 'D列注目行の値(URLエンコード)で翻訳 >Do While ie.Busy Or ie.ReadyState <> 4: DoEvents: Loop '表示完了待ち >Do >s = ie.document.getElementsByClassName("lmt__target_textarea")(0).innerText '結果文字取得 >Loop Until s <> "" '結果が空白でなかったら終わり(空白ならまだ用意できていない) を ie.navigate "" & WorksheetFunction.EncodeURL(Range("D" & r).Value) 'D列注目行の値(URLエンコード)で翻訳 Do While ie.Busy Or ie.ReadyState <> 4: DoEvents: Loop '表示完了待ち Do While IsNull(ie.document.getElementById("txtTarget")): DoEvents: Loop '結果タグ待ち s = ie.document.getElementById("txtTarget").innerText '結果取得 に変えてみてください。