Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9239 / 76732 ←次へ | 前へ→

【73056】Re:VBAでのソース取得のタイムアウトについて
回答  ウッシ  - 12/11/1(木) 14:41 -

引用なし
パスワード
   こんにちは

取り敢えず、動くコードが無いと回答も付きにくいので、

Sub test()
  Dim objRequest As Object
  Dim sHTML   As String
  Dim s     As Long
  
  Set objRequest = CreateObject("MSXML2.ServerXMLHTTP.4.0")

  For s = 1 To 2
    With objRequest
      .Open "GET", Worksheets("Sheet1").Cells(s, 1).Value, False
      .SetRequestHeader "Content-type", "text/html"
      .SetTimeouts 1000, 1000, 1000, 1000
      .Send
      If .Status <> 200 Then
      Else
        Debug.Print StrConv(.responsebody, vbUnicode)
      End If
      'ソース処理部
    End With
  Next
End Sub

セルA1、A2 に適当に URL を入力して実行にしておきました。
1 hits

【73053】VBAでのソース取得のタイムアウトについて 宮本 12/11/1(木) 11:01 質問
【73056】Re:VBAでのソース取得のタイムアウトについ... ウッシ 12/11/1(木) 14:41 回答
【73060】Re:VBAでのソース取得のタイムアウトについ... 宮本 12/11/1(木) 17:51 回答
【73061】Re:VBAでのソース取得のタイムアウトについ... ウッシ 12/11/1(木) 23:54 回答
【73063】Re:VBAでのソース取得のタイムアウトについ... 宮本 12/11/2(金) 16:22 回答
【73065】Re:VBAでのソース取得のタイムアウトについ... ウッシ 12/11/2(金) 16:47 回答
【73070】Re:VBAでのソース取得のタイムアウトについ... 宮本 12/11/5(月) 10:10 回答
【73071】Re:VBAでのソース取得のタイムアウトについ... ウッシ 12/11/5(月) 11:23 回答
【73079】Re:VBAでのソース取得のタイムアウトについ... 宮本 12/11/5(月) 17:45 回答

9239 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free