|
▼ichinose さん:
ご指導ありがとうございました。
最終的に以下のように書き直したところ無事にできました。
感謝感謝です。
Sub 貼り付ける()
Dim 取得フォルダ名 As String
Dim ファイル名 As String
行 = 2
列 = 1
取得フォルダ名 = Workbooks("USD_JPYチャート").Sheets("フォルダ名").Cells(行, 1).Value
Do While 取得フォルダ名 <> ""
ファイル名 = "C:\Documents and Settings\Owner\デスクトップ\為替レート\USD_JPY\レート\" & 取得フォルダ名 & "\USD_JPY_bid.csv"
Workbooks.Open Filename:=ファイル名
Sheets("USD_JPY_bid").Range("A1:B10000").Copy
Windows("USD_JPYチャート.xls").Activate
Sheets("レート").Select
Cells(1, 列).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks("USD_JPY_bid.csv").Close False
行 = 行 + 1
列 = 列 + 2
取得フォルダ名 = Workbooks("USD_JPYチャート").Sheets("フォルダ名").Cells(行, 1).Value
Loop
End Sub
|
|