Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7372 / 76732 ←次へ | 前へ→

【74948】Re:あるサイトから結果データを自動取得
質問  さん  - 13/10/30(水) 11:30 -

引用なし
パスワード
   >>>こんばんわ。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
312 hits

【74944】あるサイトから結果データを自動取得 さん 13/10/29(火) 17:46 質問
【74945】Re:あるサイトから結果データを自動取得 γ 13/10/29(火) 20:41 発言
【74948】Re:あるサイトから結果データを自動取得 さん 13/10/30(水) 11:30 質問
【74949】Re:あるサイトから結果データを自動取得 13/10/30(水) 19:16 発言
【74953】Re:あるサイトから結果データを自動取得 さん 13/10/30(水) 23:11 お礼
【74950】Re:あるサイトから結果データを自動取得 γ 13/10/30(水) 20:27 発言
【74951】Re:あるサイトから結果データを自動取得 γ 13/10/30(水) 20:57 発言
【74952】Re:あるサイトから結果データを自動取得 さん 13/10/30(水) 23:09 お礼

7372 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free