前提・実現したいこと
Excelを使ってスクレイピングの勉強を始めたばかりの者です。
Google翻訳 (https://translate.google.com/?hl=ja#ja/en/) で
日本語「おはよう」と入れたら、英語「Good morning」を Excelの一行目に表示されるようにしたいのですが、うまくいきません。
'多分ここがおかしい
が問題なのではと思うのですが、あれこれやってもNGです。
どなたか教えていただけないでしょうか
発生している問題・エラーメッセージ
Google翻訳は表示され、「おはよう」も「Good morning」も表示されますが、
Excelの一行目には表示されず、「On Error GoTo Continue」走ります。
該当のソースコード
Sub Honyaku()
Dim objIE As InternetExplorer Dim sURL As String Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True sURL = "https://translate.google.com/?hl=ja#ja/en/" '日本語 → 英語 objIE.navigate sURL Wait objIE objIE.document.getElementById("source").Value = "おはよう" Call WaitFor(WaitTime) 'n秒停止 On Error GoTo Continue Dim Eng As Variant
'多分ここがおおかしい
Eng = objIE.document.getElementsByClassName("tlid-translation translation")(0).innerText
Cells(1, 1).Value = Eng Set objIE = Nothing Exit Sub
Continue:
MsgBox ("翻訳エラー")
Set objIE = Nothing
End Sub
Sub Wait(ByVal objIE As InternetExplorer)
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE DoEvents Loop
End Sub
Function WaitFor(ByVal second As Integer)
Dim futureTime As Date
futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend
End Function
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/06/03 13:29