Excel VBA質問箱 IV

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

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


9717 / 76734 ←次へ | 前へ→

【72576】Re:webクエリが進まなくなる現象への対応について
質問  アツ  - 12/8/26(日) 2:38 -

引用なし
パスワード
   かみちゃんさん
返信ありがとうございます。

>この環境が手元にないので、すぐに確認はできないのですが、
>今できているコードを提示していただくことはできませんか?

長いコードになっていますので、概略としては、
複数サイトからwebクエリで情報を取得する構成で、
取得するサイトごとにPrivate Subに分けて、Callで呼び出しています。
これをDo Loopで繰り返ししています。


Callで呼び出しているwebクエリ部分は以下です。

  With Worksheets("取込み").QueryTables.Add(Connection:= _
   "URL;●● Destination:=Worksheets("取込み").Range("J10"))
    .Name = "MSN Money(会社情報・決算期)取り込み"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
  End With

*URLが記入できないため、●●表記にしています。
そのほか確認したい個所があればお知らせいただけますでしょうか?

5 hits

【72560】webクエリが進まなくなる現象への対応について アツ 12/8/24(金) 23:05 質問
【72563】Re:webクエリが進まなくなる現象への対応に... かみちゃん 12/8/25(土) 7:28 発言
【72576】Re:webクエリが進まなくなる現象への対応に... アツ 12/8/26(日) 2:38 質問

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