Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30134 / 76732

←次へ　｜　前へ→


	【51868】Re:WEBクエリできないサイト

ぶどう - 07/10/8(月) 20:44 -


	引用なし

	パスワード

ichinose さん、ありがとうございます。
すばらしいです。
特定の表のみ取り込むこともできるんですね。
とりあえずやりたいことはできるようになりました。時々取り込みできないサイトがあったのですがこれで応用が効くようになりました。

あとは、この処理を1000回繰り返すとして高速化のために、

1. WEBの画像を表示しないで文字のみ取り込みできるか。又は画像が表示されるのを完全に待つことなく取り込み始めることができるか。

2. 1セル毎の記入式の取り込みではなく、WEBの文字部分全体（特定の表だけでなくてよいので）一括取り込みできるか。

例えば、以下のコードですと全体が一括取得できて、その後に必要な部分のみ取り出すということができますが、同じ感覚で CreateObject("InternetExplorer.Application") 方式でWEBページ全体を一括取り込みできないでしょうか？複数の必要な表が含まれているWEBページですと、一旦全部取り込んだ方が簡単かと思いまして。

Sub main()
With ActiveSheet.QueryTables.Add(Connection:= _
　　　　"URL;ＨＴＴＰ://stock.searchina.ne.jp/data/code.cgi?market=&code=0001", Destination:=Worksheets("Sheet1").Range("A1"))
'　　　　"URL;ＨＴＴＰ://stock.searchina.ne.jp/data/code.cgi?market=&code=" + code + "", Destination:=Worksheets("Sheet1").Range("A1"))
　　　　.FieldNames = True
　　　　.RowNumbers = False
　　　　.FillAdjacentFormulas = False
　　　　.PreserveFormatting = True
　　　　.RefreshOnFileOpen = False
　　　　.BackgroundQuery = True
　　　　.RefreshStyle = xlInsertDeleteCells
　　　　.SavePassword = False
　　　　.SaveData = True
　　　　.AdjustColumnWidth = False
　　　　.RefreshPeriod = 0
　　　　.WebSelectionType = xlAllTables
　　　　.WebFormatting = xlWebFormattingNone
　　　　.WebPreFormattedTextToColumns = True
　　　　.WebConsecutiveDelimitersAsOne = True
　　　　.WebSingleBlockTextImport = False
　　　　.WebDisableDateRecognition = False
　　　　.Refresh BackgroundQuery:=False
　　End With
End Sub

1 hits

▼

【51833】WEBクエリできないサイト ぶどう 07/10/6(土) 18:08