|
初めての投稿なのですがよろしくお願い致します。
質問の内容ですが、
ダウンロードしてきたファイルがそれぞれフォルダの中に入っています。
そのフォルダ名は取得して"フォルダ名"というシートにA2から順に下へ一覧になっています。
その一覧の名前のBOOKをA2から下に順に開いて、A1からB10000までコピーして
USD_JPYチャートというまとめるためのBOOKに順に貼り付けたいと思っていますが、うまくいきません。
以下に自分で作ってみたものを書きますがどこがおかしいのでしょうか?
Sub 貼り付ける()
Dim 取得フォルダ名 As String
Dim ファイル名 As String
行 = 2
列 = 1
Do While 取得フォルダ名 <> ""
取得フォルダ名 = Workbooks("USD_JPYチャート").Sheets("フォルダ名").Cells(行, 1).Value
ファイル名 = "C:\Documents and Settings\Owner\デスクトップ\為替レート\USD_JPY\レート\取得フォルダ名\.csv"
Workbooks(ファイル名).Open
Sheets("USD_JPY_bid").Range("A1:B10000").Copy
Workbooks("USD_JPYチャート").Sheets("レート").Cells(1, 列).Paste
行 = 行 + 1
列 = 列 + 2
Loop
End Sub
|
|