Excel VBA質問箱 IV

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

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


42626 / 76732 ←次へ | 前へ→

【39169】Re:シートを連続して結合するには
発言  つか E-MAIL  - 06/6/19(月) 15:03 -

引用なし
パスワード
   ▼Blue さん:
>▼つか さん:
>>マクロのあるシートではなく。開いたファイルに追加していく予定です。
>開いたファイルとは?
>100あるExcelファイル全部でしょうか?
>それともある特定のファイルでしょうか?
100あるファイルです。先ほどBlueさんに教えられたように
マクロの記録で行いました。これを100回繰り返して作成するのは
あまりスマートではないと思ったので・・・


Workbooks.Open Filename:="C:\##\##N002_0604###.xls"
  Workbooks.Open Filename:="C:\##\##N003_0604##.xls"
  Windows.Arrange ArrangeStyle:=xlTiled
  Sheets("N003").Select
  Sheets("N003").Copy After:=Workbooks("##N002_0604###.xls").Sheets(1)
  Windows("##N003_0604##.xls").Activate
  ActiveWindow.Close
  Workbooks.Open Filename:="C:\##\##N004_0604##.xls"
  Sheets("N004").Select
  Sheets("N004").Copy After:=Workbooks("##N002_0604###.xls").Sheets(2)
  Windows("##N004_0604##.xls").Activate
  ActiveWindow.Close
  Workbooks.Open Filename:="C:\##\##N005_0604##(###).xls"
  Sheets("N005").Select
  Sheets("N005").Copy After:=Workbooks("##N002_0604###.xls").Sheets(3)
  Windows("##N005_0604##(###).xls").Activate
  ActiveWindow.Close
  Workbooks.Open Filename:="C:\##\##N006_0604##.xls"
  Sheets("N006").Select
  Sheets("N006").Copy After:=Workbooks("##N002_0604###.xls").Sheets(4)
  Windows("##N006_0604##.xls").Activate
  ActiveWindow.Close
  Workbooks.Open Filename:="C:\##\##N007_0604##.xls"
  Sheets("N007").Select
  Sheets("N007").Copy After:=Workbooks("##N002_0604###.xls").Sheets(5)
  Windows("##N007_0604##.xls").Activate
  ActiveWindow.Close
  Workbooks.Open Filename:="C:\##\##N010_0604###.xls"
  Sheets("N010").Select
  Sheets("N010").Copy After:=Workbooks("##002_0604###.xls").Sheets(6)
  Windows("##N010_0604###.xls").Activate
  ActiveWindow.Close
  Workbooks.Open Filename:="C:\##\##N011_0604##.xls"
  Sheets("N011").Select
  Sheets("N011").Copy Before:=Workbooks("##N002_0604###.xls").Sheets(1)
  Windows("##N011_0604##.xls").Activate
  ActiveWindow.Close

    ・
    ・
    ・
 以下繰り返しです

5 hits

【39147】シートを連続して結合するには つか 06/6/19(月) 11:08 質問
【39149】Re:シートを連続して結合するには Blue 06/6/19(月) 11:15 発言
【39150】Re:シートを連続して結合するには つか 06/6/19(月) 11:35 お礼
【39154】Re:シートを連続して結合するには Blue 06/6/19(月) 11:41 発言
【39156】Re:シートを連続して結合するには つか 06/6/19(月) 11:52 お礼
【39159】Re:シートを連続して結合するには Blue 06/6/19(月) 13:22 発言
【39163】Re:シートを連続して結合するには つか 06/6/19(月) 14:32 お礼
【39164】Re:シートを連続して結合するには Blue 06/6/19(月) 14:37 質問
【39169】Re:シートを連続して結合するには つか 06/6/19(月) 15:03 発言
【39171】Re:シートを連続して結合するには Blue 06/6/19(月) 15:28 発言
【39172】Re:シートを連続して結合するには つか 06/6/19(月) 15:37 お礼
【39178】Re:シートを連続して結合するには Blue 06/6/19(月) 15:53 発言
【39189】Re:シートを連続して結合するには つか 06/6/19(月) 16:39 お礼
【39190】Re:シートを連続して結合するには Blue 06/6/19(月) 16:42 質問
【39193】Re:シートを連続して結合するには Blue 06/6/19(月) 16:57 発言
【39194】Re:シートを連続して結合するには つか 06/6/19(月) 17:01 お礼
【39199】Re:シートを連続して結合するには Blue 06/6/19(月) 17:29 発言
【39200】Re:シートを連続して結合するには Blue 06/6/19(月) 17:33 発言
【39204】Re:シートを連続して結合するには つか 06/6/19(月) 18:29 お礼
【39195】Re:シートを連続して結合するには Kein 06/6/19(月) 17:01 発言
【39291】Re:シートを連続して結合するには つか 06/6/21(水) 16:23 お礼

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