|
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
この後、取得成功ならデータの処理をします。
|
|