-2

Web サイトと連携してソース内の特定のボタンを識別し、それを使用してデータを Excel ファイルにエクスポートできるマクロを作成しました。以下は私のマクロです...以下で見つけた問題はコメントにあります。さらに仕様が必要な場合はお知らせください。

 Sub Scrape1()
 Dim Browser As InternetExplorer
 Dim Document As HTMLDocument
 Dim Elements As IHTMLElementCollection
 Dim Element As IHTMLElement
 Dim excelElement As IHTMLElement
 Dim objElement As Object

 Set Browser = New InternetExplorer
 Browser.Visible = True
 Browser.navigate "http://www.site.com"

 Do While Browser.Busy And Not Browser.readyState = READYSTATE_COMPLETE
 DoEvents
 Loop

 Set Document = Browser.Document

 Set Elements = Document.getElementById("ctl31_ctl06_ctl04_ctl00_Menu").
 getElementsByTagName("a")

 For Each Element In Elements

 'The object I'm looking to use has an InnerText of "Excel"
 'set objElement as the Element with the InnerText of "Excel" so that I can say 
 objElement.Click

 Next Element

 Set Document = Nothing
 Set Browser = Nothing
 End Sub
4

1 に答える 1