| |
IEオブジェクトを利用して、Shift_JISコードの一時ファイルをHTMLファイルを
作成し、無理やりWebQueryを使う方法です。
^^^^^^^^
WebQueryを使ったことないので、間違っているかもしれませんが。。。
Dim url As String
Dim temp As String
Dim filenum As Integer
url = "http://jp.moneycentral.msn.com/investor/invsub/results/statemnt.aspx?lstStatement=CashFlow&Symbol=9501"
temp = ThisWorkbook.Path & "\temp.html"
With CreateObject("InternetExplorer.Application")
.Navigate url
Do While .Busy
DoEvents
Loop
filenum = FreeFile
Open temp For Output As #filenum
Print #filenum, .document.all(0).outerhtml
Close #filenum
.Quit
End With
With ActiveSheet.QueryTables.Add(Connection:="URL;" & temp, Destination:=Range("A1"))
.Name = "statemnt.aspx?lstStatement=CashFlow&Symbol=9501"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Kill temp
たぶん、IEオブジェクトを使っている時点で、WebQueryをいちいち使うことないと思いますが。
(Documentオブジェクトから任意のテーブルを抜き出せばできそうだが。。。私は面倒なので考えませんけど、、、)
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
