Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11419 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【16099】特定のシートを抽出 みっつー 04/7/16(金) 14:24 質問[未読]
【16100】Re:特定のシートを抽出 IROC 04/7/16(金) 15:37 回答[未読]
【16102】Re:特定のシートを抽出 みっつー 04/7/16(金) 15:52 質問[未読]
【16108】Re:特定のシートを抽出 IROC 04/7/16(金) 16:53 回答[未読]
【16177】Re:特定のシートを抽出 みっつー 04/7/20(火) 9:51 お礼[未読]
【16099】特定のシートを抽出
質問  みっつー  - 04/7/16(金) 14:24 -
引用なし
パスワード
   質問します。
同フォルダ内のファイル（複数）の中の、ある特定のシート（たとえばシート２，３）を別のエクセルのファイルにコピーするというやり方がわかりません。
どなたか教えてください。
【16100】Re:特定のシートを抽出
回答  IROC  - 04/7/16(金) 15:37 -
引用なし
パスワード
   その操作を「マクロの記録」してみて下さい。
【16102】Re:特定のシートを抽出
質問  みっつー  - 04/7/16(金) 15:52 -
引用なし
パスワード
   ▼IROC さん：
>その操作を「マクロの記録」してみて下さい。

ChDir _
　　　　"D:\files\請求書\20日締分"
　　Workbooks.Open Filename:= _
　　　　"D:\\請求書\20日締\●●商店.xls"
　　Sheets(Array("請求書", "請求書 2")).Select
　　Sheets("請求書 2").Activate
　　Sheets(Array("請求書", "請求書 2")).Copy Before:=Workbooks("20日締め分トータル").Sheets(1)
End Sub

たぶんこういう動作をファイルの数だけ繰り返していくと思うのですが。
【16108】Re:特定のシートを抽出
回答  IROC  - 04/7/16(金) 16:53 -
引用なし
パスワード
   >たぶんこういう動作をファイルの数だけ繰り返していくと思うのですが。

ひとまず、１個のファイルの対して、マクロの記録で出来ませんか？


そのあとに、複数のファイルに対して行うように変更すればよいと思います。
ただし、それには
>同フォルダ内のファイル（複数）の中の、ある特定のシート（たとえばシート２，３）
の指定方法（もしくは条件）が必要です。
【16177】Re:特定のシートを抽出
お礼  みっつー  - 04/7/20(火) 9:51 -
引用なし
パスワード
   実はまだはじめたばかりでファイルに対する命令というのがまだよくわかっていません。
でもなんとなくわかりました。またわからないことがありましたら質問させていただきます。
本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11419 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free