Excel VBA質問箱 IV

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

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


26640 / 76732 ←次へ | 前へ→

【55423】WEB上の表の参照方法
質問  KEI  - 08/5/3(土) 15:21 -

引用なし
パスワード
   YAHOOファイナンス→株・投資→例:コード6301→時系列の表を現在、エクセルにいったん取り込んでから、A1を選択させて貼り付けまして、A1が”日付”ならば、情報取得成功それ以外なら取得失敗と判断せています。
これでも目的の結果は得られるのですが、回数が多くなると、張り付けという動作が処理速度を低下させてしまします。
今回、お聞きしたい事なのですが、WEB上の表の特定の場所をエクセルに貼り付けずにWEB上で参照して条件判断する事は可能でしょうか?
いろいろ調べたのですが、どうしても方法が見つかりませんでした。
もし、ご存知の方がいれば、どうかよろしくお願いします。

以下のコードは現在使用しているマクロです。何かの参考になればと思います。
↓ここで、取得して、エクセルに貼り付けています。
Sub 取得()
With ActiveSheet.QueryTables.Add(Connection:=urlweb _
    , Destination:=Cells(END, 1))
  .AdjustColumnWidth = False
  .WebSelectionType = xlSpecifiedTables
  .WebFormatting = xlWebFormattingNone
  .WebTables = tableno
  .Refresh BackgroundQuery:=False
End With
End Sub

↓貼り付けた後、日付 の文字があるかで、合否を判断させています。
If Cells(END, 1) = "日付" Then
この後、取得成功ならデータの処理をします。

3 hits

【55423】WEB上の表の参照方法 KEI 08/5/3(土) 15:21 質問
【55426】Re:WEB上の表の参照方法 かみちゃん 08/5/3(土) 16:48 発言
【55433】Re:WEB上の表の参照方法 KEI 08/5/4(日) 0:54 お礼
【55434】Re:WEB上の表の参照方法 かみちゃん 08/5/4(日) 8:04 発言
【55439】Re:WEB上の表の参照方法 KEI 08/5/4(日) 11:18 お礼

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