|
かみちゃんさん
返信ありがとうございます。
>この環境が手元にないので、すぐに確認はできないのですが、
>今できているコードを提示していただくことはできませんか?
長いコードになっていますので、概略としては、
複数サイトからwebクエリで情報を取得する構成で、
取得するサイトごとにPrivate Subに分けて、Callで呼び出しています。
これをDo Loopで繰り返ししています。
Callで呼び出しているwebクエリ部分は以下です。
With Worksheets("取込み").QueryTables.Add(Connection:= _
"URL;●● Destination:=Worksheets("取込み").Range("J10"))
.Name = "MSN Money(会社情報・決算期)取り込み"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
*URLが記入できないため、●●表記にしています。
そのほか確認したい個所があればお知らせいただけますでしょうか?
|
|