|
>下のマクロで改良したほうが良い点
とくにありませんが、なぜ処理を二つに分けたのかが分かりません。
もしそのように分割処理する必要があるなら
Public objIE As Object
Sub IECreate()
Const strURL As String = "http://www.google.co.jp/"
If Not objIE Is Nothing Then Exit Sub
Set objIE = CreateObject("InternetExplorer.application")
objIE.Navigate strURL
Do While objIE.Busy = True: DoEvents: Loop
Do While objIE.ReadyState <> 4: DoEvents: Loop
End Sub
Sub SuIE()
Dim Su As String
If objIE Is Nothing Then Exit Sub
Su = objIE.Document.Body.innerHTML
Call ListMake(Su) 'Suのデータからリストを作る
'HTMLソースの取得テスト
'Open "C:\SampleSu.txt" For Output As #1
'Print #1, Su
'Close #1
'ソーステストEnd
End Sub
というようにすれば良いかとおもいます。あくまで個人的なスタイルの問題ですが。
|
|