WebサイトのUSD/JPYの過去データをIE等のブラウザを立ち上げることなく日付を指定してエクセルに取り込みたいです

Question

下記↓サイトのUSD/JPYの過去データをIE等のブラウザを立ち上げることなく日付を指定してエクセルに取り込みたいのですが、
可能でしょうか？
http://www.investing.com/currencies/usd-jpy-historical-data

Sub 米円()

Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.investing.com/currencies/usd-jpy-historical-data", Destination:=ActiveCell.Offset(0, 0).Range("$A$1"))
.Name = "?kd=1&tm=d&vl=a&mk=1&p=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebTables = "2"
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

End Sub

上記でもブラウザを立ち上げることなくデータをエクセルに取り込めるのですが、ページに表示されている30日分のデータしか取り込めません。
もっと日付を遡って過去データを取得したいのですが、可能でしょうか？
可能でしたら、方法をご教授して頂けたら幸いです。

よろしくお願いいたします。

Answer 1

この investing のサイトを見ると日付範囲を変更したときにAjaxで画面を更新しているから、EXCELでは無理に思えます。

investing でなくてもよいのであれば Yahoo! ファイナンス とかどうでしょうか？

Yahoo! ファイナンス は URL のクエリーで日付範囲を指定できるので、これなら EXCELでも簡単だと思います。

2016/7/3 から 2016/8/2 の日毎の表の場合、以下のような URL になります。

http://info.finance.yahoo.co.jp/history/?code=USDJPY%3DX&sy=2016&sm=7&sd=3&ey=2016&em=8&ed=2&tm=d

Comments

[masao5059]

回答ありがとうございます。
御教示頂いたURLで頑張ってみます。
ありがとうございました。