|
*回答頂き、有難うございます。
Webクエリでのデータ取得です。よろしくご指導願います。
1.下記を試してみました。 → 結果は、「15171」と表示されました。
Sub test()
Sheets("dMA10").Select '← 当該ブックの10シート目の選択です。
MsgBox ThisWorkbook.Names.Count ' ← 「15171」と表示されましたが、
何を意味しているのか分かりません。
End Sub
2.価格データを取得するマクロです。
Sub Get_Data()
With ActiveSheet.QueryTables.Add(Connection:= _
url, Destination:=Cells(lastrow, 2))
.Name = "Yahoo"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = wtbl
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False '←この行で止まってしまいます。
End With
End Sub
3.VBAの初心者なので、下記については追って勉強してみます。
>それに、IEオブジェクトを使う方法への変更も検討されてみてはどうでしょう。
>://www.ken3.org/vba/backno/vba164.html
|
|