1

編集

inet1.GetChunk を呼び出して、ドキュメントの HTML 全体を 1 つの変数名でレンダリングしようとしています。しかし、私には問題があります。私は以下のコードを投稿しました：

Sub File_Names()

Dim myURL

ActiveSheet.Range("a1").End(xlDown).Select
lastColumn = Selection.Row

For columnNumber = 2 To lastColumn
    workbench = Cells(columnNumber, 1).Value
    myURL = "my_web_page"&workbench
    Dim inet1 As Inet


Set inet1 = New Inet
With inet1
    .Protocol = icHTTP
    .URL = myURL
    .Execute , "Get"
End With

While inet1.StillExecuting
    DoEvents
Wend

mypage = inet1.GetChunk(1024, icString)


Do While Len(ReturnStr) <> 0
    DoEvents
    mypage = mypage & ReturnStr
    Cells(2, 10).Value = mypage
    ReturnStr = myURL.GetChunk(1024, icString)
Loop


CAMnum = InStr(mypage, "Component Accessory Matrix")
intStart = InStrRev(mypage, "pkid=", CAMnum) + 5
newnum = Mid(mypage, intStart, 6)
Cells(columnNumber, 2).Value = newnum

Next columnNumber


End Sub

私が得る問題はですmypage = inet1.GetChunk(1024,icString)。「実行時エラー 24: オブジェクトが必要です」と表示されます。このエラー メッセージが表示される理由がわかりません。助言がありますか？

4

1 に答える 1

0

.OpenURL同期です。URL を開き、変数に完全に読み込まれるまでブロックするmypageため、コンテンツは既に「1 つの変数名の下」にあります。

非同期読み取りが必要な場合は、.Executeメソッドとイベントを使用する必要があります。_StateChanged( GetChunk メソッドで State イベントを使用する)

于 2012-07-16T14:43:28.617 に答える