こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBAにて特定のサイトからのWebクエリ取得に失敗します。

こんにちは。

現在、http://www.oanda.com/convert/fxhistory
というサイトから為替レートを取得してチャートを
自動作成するマクロを使っているのですが、
2,3日前からWebクエリの取得に失敗するようになりました。

(ソース引用)---------------------------------------
    With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" + url _
, Destination:=Range("A1"))

RefreshStyle = xlOverwriteCells
.AdjustColumnWidth = False
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.Refresh BackgroundQuery:=False
End With
(ソース引用 終)------------------------------------

.Refresh~の部分で
---------------------------------------------
実行時エラー 1004
ファイルにアクセスできませんでした。次のいずれかを行ってみてください。

?指定したフォルダがあるか
?読み取り専用になっていないか
?次の文字が含まれていないか<>?[]:|*
?ファイル名、パス名が半角218文字より長くないか
---------------------------------------------
(?以降のエラーメッセージは編集していますが、このような内容です)

というエラーが出ます。

しかも
自宅の環境(WinXP Pro SP2,Office2003)ではエラーが出て
会社の環境(Win2000,Office2000)では問題なく動いたりします。

あと、マクロからではなく、
エクセル上から直接「データ→外部データの取り込み」で
Webクエリを取得しようとしても同様のエラーが出ます。

サイトで何か対策されているのか、
こちら側での問題なのか・・・
何かご存知の方がいらっしゃいましたら、
回答よろしくお願いいたします。

投稿日時 - 2007-04-01 09:52:15

QNo.2884378

暇なときに回答ください

質問者が選んだベストアンサー

テスト(URLを直接開く)の結果判ったこと
ホップアップが、出て アドインを有効にするかと聞いてきます。
このアドインを事前に有効にして置く必要があるのでは。

投稿日時 - 2007-04-01 11:20:19

お礼

アドイン等の設定については聞かれなかったのですが、
一時ファイル、履歴等を削除したら正常に動作しました。
何かの拍子に古いファイルを読み込んでいたということでしょうか?
ともかく、ご回答のおかげできっかけがつかめました。
ありがとうございます。

投稿日時 - 2007-04-01 12:55:52

このQ&Aは役に立ちましたか?

3人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問