|
>>>こんばんわ。VBAに挑戦しているのですが、
力尽きたので、お助けをお願いしています。
教えて頂ける方がいましたら宜しくお願いいたします。
(内容)
「sheet1」の「A1」列にある英文字の言葉を
englishnepalidictionaryドットコムの検索ボックスに自動入力
それから、出力の結果を「B1」列に貼り付ける。
上記をA2、A3・・・にも繰り返す、約1000回。
例:エクセルファイルの「sheet1」「A1」列にある英文字(apple)を検索し結果の「स्याउ」をB1列に出力
エクセルファイルの「sheet1」「A2」列にある英文字(ball)を検索し結果の「भकुण्डो, गोल वस्तु」をB2列に出力
A3、A4・・・にも同様
よろしくお願いいたします。
>>>>==================================
ありがとうございます。
VBAに向いてないのですみません。
こんな形です。
Sub test()
Dim ele As Object
Dim Placeholder As Object
Set sht = Sheets("Sheet1")
RowCount = 1
sht.Range("A" & RowCount) = "英語"
sht.Range("B" & RowCount) = "結果"
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.navigate "httpwww.englishnepalidictionary.ドットコム"
’禁止語句の為ドットコムにしました。
Set Placeholder = .document.getElementsByName("search-input")
Placeholder.Item(0).Value = "search-input"
.document.getElementById("btnSearch").Click
Set Result = .document.getElementsByName("Search")
Result.Item(0).Value = Search
For Each ele In .document.all
Select Case ele.classname
Case "search-result"
RowCount = RowCount + 1
Case "結果"
sht.Range("B" & RowCount) = Search
End Select
Next ele
End With
Set objIE = Nothing
End Sub
|
|