DocumentCompleteを使うには？ (ID:85543)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

レスが付かないようなので、たたき台で。。。。

Option Explicit
Dim stockURL() As String

Private Sub Command1_Click()
    WebBrowser1.Navigate stockURL(0, 0)
End Sub

Private Sub Form_Load()
    Dim Fileno
    Fileno = FreeFile
    Open App.Path & "\" & "opning.html" For Output As #Fileno
    Print #Fileno, "<font size=" & Chr(34) & "6" & Chr(34) & ">ボタン押してね(^^)</font>"
    Close #Fileno
    setUrl  'URLをセット
    DoEvents
    WebBrowser1.Navigate2 App.Path + "\" + "opning.html"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim n, Fileno
    For n = 0 To UBound(stockURL)
        If URL = stockURL(n, 0) Then
            Fileno = FreeFile
            Open App.Path & "\" & stockURL(n, 1) & ".html" For Output As #Fileno
            Print #Fileno, WebBrowser1.Document.body.outerhtml
            Close #Fileno
            If n < UBound(stockURL) Then
                WebBrowser1.Navigate stockURL(n + 1, 0) '一つ前でおしまい
            End If
            Exit For
        End If
    Next
End Sub

Private Sub setUrl()
    Dim n
    Const UrlH = "http://quote.yahoo.co.jp/q?d=t&s="
    '****URLの追加変更はここでする************
    ReDim stockURL(2, 1)
    stockURL(0, 0) = "4689": stockURL(0, 1) = "Yahoo"
    stockURL(1, 0) = "6758": stockURL(1, 1) = "Sony"
    stockURL(2, 0) = "9437": stockURL(2, 1) = "Docomo"
    '*****************************************
    For n = 0 To UBound(stockURL)
        stockURL(n, 0) = UrlH & stockURL(n, 0) & ".T"
    Next
End Sub

私ならこんなことを。

←解決時は質問者本人がここをチェックしてください。

戻る