| |
▼パン さん：
修正です。
左から１、２、３のシートに貼り付けられます。
Dim A(2) As String
A(0) = "testA"
A(1) = "testB"
A(2) = "testC"
For x = 0 To 2
With Workbooks.Open("テスト１" & ".xls") '''''コピーデーター
.Sheets(1).Range("A1:BZ300").Copy '’’範囲
ThisWorkbook.Activate
Sheets(x + 1).Select '’’’左から１番目のシート
Range("A1:BZ300").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
.Close SaveChanges:=False
End With
Next x
>▼素人 さん：
>方法は色々ありますが、コピーしたデーターはどちらにすればいいのでしょうか？
>結果集計ファイルの同一シート（SHEEt1)に３つとも張り付け、別々のシートに
>新しいシートを作り貼り付け。
>単純に行くなら下でも良いですけど。
>
>
>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 ’’’’左から１番目のシート
> 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のファイルを閉じる
>>
>>お手数お掛けいたしますがご教示願えますでしょうか？お願いいたします。
|
|
パン
- 06/9/25(月) 13:48 -
