１）ダウンロードしたファイル
doller_daily.xls、euro_daily.xls、14tsuka.xls
から日付,始値,高値,安値,終値のデータの抜き取り。
ということで、
-----
Sub Yomikomi()
'
' Yomikomi Macro
'
'
'ドル円
'転送元ファイル選択
Windows("doller_daily.xls").Activate
'転送元シート選択
Sheets("DATA-PRICE").Select
'最終列取得
r1 = ActiveSheet.UsedRange.Rows.Count
'データコピー
Range(Cells(2, 1), Cells(r1, 5)).Select
Selection.Copy
'貼り付け先ファイル（資金運用.xls）選択
Windows("資金運用.xls").Activate
'シート（ドル円）へ貼り付け
Sheets("ドル円").Select
'Range("A13").Select '貼り付け位置の補正（必要時のみ）
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'ドル円終了
End Sub
-----
といった感じでファイルから、通貨のデータをコピーしました。（上記を必要分だけコピーし、転送元転送先のファイル名シート名を修正してすべての通貨ペアをコピーできるようにしている。）利用時には転送元と転送先のファイルを開いておく必要があるが、この方が簡単で汎用性があるかなと思い一手間掛ける事にしている。
また、マクロの作成は、一から作成してるわけではなく、マクロの記録で記録したものを一部修正。
ただ、今回のでいえば
ActiveSheet.UsedRange.Rows.Count
なんかは「エクセル マクロ 最終列」でググって探してるわけだけどね。
【資産運用＞素人外為日記の最新記事】
