人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

現在、以下のサイトをWEBクエリを使い参照しているのですが、
http://money.www.infoseek.co.jp/MnForex/fxlast/?fx=F1001
http://futuresource.quote.com/quotes/quotes.jsp?s=CL
時々何らかの理由で参照しているセルの位置がずれてしまいます。

そのような時には、手動でサイトのページをエクセルに移動させて
いるのですが、他にもページがありまして、難しい作業ではないですが
時間的に厳しいです。

現在シートに「USD」、「EUR」、・・・・・・「NY原油」、「NY」・・・・・。
と各銘柄に分かれています。
これをそれぞれコピーしてセルに貼り付けたいのですが、何とかVBAで作業が出来ない
でしょうか。

また、理由がわかりませんが一部の銘柄(特に海外商品銘柄)で更新されない事が
時々あります。ページを更新してから貼り付け作業ができればありがたいです。



●質問者: dadan_dan
●カテゴリ:コンピュータ インターネット
✍キーワード:Web エクセル クエリ コピー サイト
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● pahoo
●10ポイント

具体的な解決策をお示しすることができないので、ポイントは不要で結構です。


「セルの位置がずれて」というのは、たとえば数字が本来表示されるセルではなく、隣りのセルに表示されてしまうといった形でしょうか。

いずれにしても「時々何らかの理由」というのが分からないと、VBAによる対応は難しいと思います。


これは推測ですが、時々、一覧表の中に記号が入ったり強調/色指定タグが挿入されたり、Webクエリが想定していないような状態になるのではないでしょうか。そういった条件がすべて明らかにならないと、VBAで組んでも同じ現象が起きてしまいます。


ご質問にある表を作りだしているAPIを探すのが一番です。

◎質問者からの返答

返信ありがとうございます。

ずれる理由ですが、御指摘の様に記号の変動により起こる可能性が高いと思われます。

また、確かにVBAでも同じ現象は起こるのですが、1行・1列上下左右にずれているのがすぐに判るのですが、WEBクエリでのズレはかなり大きい時もあり元の画面と対比しながらすぐに修正する事は実際の作業上かなり厳しいです。

現状ではコピペの方が理解と対処がしやすく助かります。

出来れば宜しくお願い致します。


2 ● an_shoku_panman
●100ポイント

こちらで如何でしょうか。

そのままでは使えないと思いますが、

少しの変更で何とかなりそうです。。。。

時間が無く修正が出来ませんが

御了承願います。(_ _)


Sub IE_Open_Copy()

Dim objIE As Object

Const OLECMDID_SELECTALL = 17

Const OLECMDID_COPY = 12

Const OLECMDEXECOPT_DODEFAULT = 0

Worksheets(1).Select

Range("A1").Select

'目的のWebページ

Const URL As String = "http://q.hatena.ne.jp/"

Set objIE = CreateObject("InternetExplorer.Application")

With objIE

.Visible = True

.Navigate URL

Do While .Busy

DoEvents

Loop

Do Until .ReadyState = 4

DoEvents

Loop

Application.Wait Now() + TimeValue("00:00:03")

.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT

.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT

Application.Wait Now() + TimeValue("00:00:01")

.Quit

End With

AppActivate Application.Caption, True

Range("A1").Select

'Application.Wait Now() + TimeValue("00:00:05")

Application.SendKeys "^v"

Set objIE = Nothing

End Sub

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ