|
はじめて質問させていただきます。kinと申します。
過去質問もいろいろと検索してみたのですが、なかなか見つからず質問させていただくものです。
よろしくお願いします。早速ですが、
webクエリーマクロを使って、あるwebサイトの表を読み込むのですが、最近、以下のメッセージが出るようになりました。
「実行時エラー'1004'、サイトへのリクエストが正しくありません。」
ただ、また常に発生するわけではなく、発生するタイミングがまちまちで、決まっていません。
したがって、原因がわからず困っています。
マクロのソースは以下の通りなんですが、原因らしきものをご教示いただきたくお願いします。
uret = "url;" & Worksheets("wk").Cells(a,b).Value
With ActiveSheet.QueryTables.Add(Connection:= _
uret, Destination:= _
Range("A1"))
.Name = uret
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone 'LINKを活かしたまま取込み
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False ←ここで発生
End With
Worksheets("wk").Cells(a,b).Value にはちゃんと実在するurlがセットされております。
動作環境はwindows8(64bit)、excel2010、
マクロはwindows vista(32bit)上でexcel2007を使用し、excel2003バージョンで作成したものです。
大変申し訳ありませんが、よろしくお願いします。
|
|