tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: Webページの取得
投稿日: 2010/06/30(Wed) 19:18
投稿者nobu
こんにちは。
昨日は素早い回答をありがとうございました。

#4 を連続に取得しようとしていますが今回は JavaScript だからでしょうか
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
は試しましたが使えないようですね。

下記のように手動で取得した Callsign が記載のファイルを読み込み
連続して#4の表の取得をしたいのですが表が表示前に保存処理に入ってしまうようで
「エラーコード91 オブジェクト変数または With ブロック変数が設定されていません。 」が
出てしまいます。
表示完了まで待ってから保存するにはどうすれば良いのでしょうか?
ヒントや参考になる資料はあるでしょうか?
Webで探しても見ましたがまだ見つけ出していません。

Private Sub Command11_Click()

Label1.Caption = ""
Label1.Refresh

Open strPath & "5N7M_Results.txt" For Output As #f_o
Open strPath & "5N7M_List.txt" For Input As #f_i
Do
    Input #f_i, tmp1, tmp2, tmp3
        Print #f_o, Trim$(tmp1)
        URL = "javascript:sendRequest2('" & Trim$(tmp1) & "')"
        WebBrowser1.Navigate URL
        Command11_sub
        Sleep 1000
Loop Until EOF(f_i)
    
Close #f_i
Close #f_o

Label1.Caption = "終 了"

End Sub

Private Sub Command11_sub()

  Dim tbl As Object, row As Object, cell As Object
    
    Set tbl = Nothing
    Set tbl = WebBrowser1.Document.getElementById("thegrid")
    
For i = 1 To 50
    If tbl Is Nothing Then
    Else
        For Each row In tbl.rows
            For Each cell In row.cells
                Print #f_o, Tab(cell.cellIndex * 8);
                If cell.tagName = "TH" Then
                    Print #f_o, cell.innerText;
                Else
                    Print #f_o, cell.currentStyle.backgroundColor;
                End If
            Next
                Print #f_o, ""
        Next
        Exit For
    End If
        Sleep 1000
Next i

Set tbl = Nothing

End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。