|
▼素人 さん:
ファイル名を指定することをセルでするなら
A(0)=RANGE"A1")とかA(0)=cells(1,1).valueとなりますしもしフォームを使えば別の指定になります。
自由にとなりますが入力をするのか?今日より3日さかのぼるかでも違います、
簡単に表現すればA(0)〜A(2)へ”〜〜”と代入すればよいです。
また、Range("A1:BZ300").PasteSpecial Paste:=xlPasteAllとありますが、これをループでまわすと同じところへ張り付けされますのでもし別の位置へ貼り付けなら
Range("A1:BZ300")を選択できるようにした方が良いです。
その後の処理とデーター量で変わりますので流れが解ればコードもかわってきます。
>パンさん
>
>ありがとうございます。
>コピーしたデータは、結果集計ファイルの同一のシートに貼り付けたいと思っておりました。
>ファイル名のtest A・B・Cは、固定ではなく自由に変えられればと思っております。(例えば、test A9月25日版 等)その際には、
>A(0)=”test A”
>というのをどのように変更すればよろしいのでしょうか?
>初歩的な質問で申し訳ございません。
>
>▼パン さん:
>>▼素人 さん:
>>方法は色々ありますが、コピーしたデーターはどちらにすればいいのでしょうか?
>>結果集計ファイルの同一シート(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
|
|