ここから本文です

お世話になっております。

mai********さん

2019/3/2520:21:40

お世話になっております。

VBAについてコードが分からない為、ご教授頂けないでしょうか?

エクセルバージョンは2010です。

 

エクセルシートのG列2行目以降にURLが150行程度入力されています。

 

行いたい処理としてはG列の最終行を取得し、G2から順にURLのサイトを開き、

そのサイトの中にある別サイトのリンクURLを取得しH列に入力されるようにしたいです。(最終行までループ)

 

以上、お忙しいところ大変恐縮ですが、ご教授頂けると幸いです。

よろしくお願い致します。

閲覧数:
75
回答数:
1

違反報告

ベストアンサーに選ばれた回答

sh1********さん

2019/3/3012:02:46

参照設定を2つ必要になります。

http://www.ken3.org/cgi-bin/group/vba_ie_object.asp


以下のスクリプトで動くと思います。

##########
Sub ie()

Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False

Dim sheet1 As Worksheet
Dim row As Long

Set sheet1 = Worksheets("Sheet1")

Dim startrow As Integer

startrow = 3

row = sheet1.Cells(Rows.Count, 7).End(xlUp).row

For i = startrow To row

ie.Navigate (sheet1.Cells(i, 7).Value)

Do While ie.Busy
Loop

MsgBox ie.Document.body.innerHTML

For Each link In ie.Document.Links

sheet1.Cells(i, 8) = sheet1.Cells(i, 8) & " | " & link.href

Next

Next i

ie.Quit

Set ie = Nothing

End Sub
##########

この回答は投票によってベストアンサーに選ばれました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる