Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38935 / 76732 ←次へ | 前へ→

【42921】Re:複数ファイルの選択
発言  パン E-MAIL  - 06/9/25(月) 14:01 -

引用なし
パスワード
   ▼素人 さん:
ファイル名を指定することをセルでするなら
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
2 hits

【42909】複数ファイルの選択 素人 06/9/25(月) 11:22 質問
【42912】Re:複数ファイルの選択 パン 06/9/25(月) 12:31 発言
【42919】Re:複数ファイルの選択 素人 06/9/25(月) 13:42 質問
【42921】Re:複数ファイルの選択 パン 06/9/25(月) 14:01 発言
【42923】Re:複数ファイルの選択 素人 06/9/25(月) 14:13 お礼
【42920】Re:複数ファイルの選択 パン 06/9/25(月) 13:48 発言

38935 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free