|
▼素人 さん:
方法は色々ありますが、コピーしたデーターはどちらにすればいいのでしょうか?
結果集計ファイルの同一シート(SHEEt1)に3つとも張り付け、別々のシートに
新しいシートを作り貼り付け。
単純に行くなら下でも良いですけど。
dim A(2) as string
A(0)="testA"
A(1)="testB"
A(2)="testC"
for X=0 to 2
With Workbooks.Open(A(X) &".xls") '''''コピーデーター
.Sheets(1).Range("A1:BZ300").Copy ’’’範囲
ThisWorkbook.Activate
Sheets(1).Select ’’’’左から1番目のシート
Range("A1:BZ300").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
.Close SaveChanges:=False
End With
next x
>VBAに詳しくなく初歩的で申し訳ございません。
>同じフォルダ内にある複数のファイルを選択して、結果集計ファイルにデータをコピーしたいのですが、複数のファイルを選択する場合にはどのように行えばよいのでしょうか?
>
>1つめのファイル名:testA.xls
>2つめのファイル名:testB.xls
>3つめのファイル名:testC.xls
>
>とありましたら、ファイル名にtest A〜C.xlsを選択して入力することで、各A〜Cのファイルの該当箇所のデータをコピーしたいということです。
>手順としては、以下のようになります。
>1.testA.xlsのファイルを開いてデータを入手してきて、testAのファイルを閉じる
>2.testB.xlsのファイルを開いてデータを入手してきて、testBのファイルを閉じる
>3.testC.xlsのファイルを開いてデータを入手してきて、testCのファイルを閉じる
>
>お手数お掛けいたしますがご教示願えますでしょうか?お願いいたします。
|
|