Excel VBA質問箱 IV

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

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


23009 / 76732 ←次へ | 前へ→

【59094】Re:Excelファイルの結合をするには????
発言  Jaka  - 08/11/28(金) 10:28 -

引用なし
パスワード
   実際のファイル構成がどうなっているのかわからないので、
大体で。
1つのフォルダに集めてDir関数でフルパスファイル名を取得してやっても
良いのだろうけど、基本操作っぽく。
Dir関数やその他のフォルダ単位で処理したい場合は、ヘルプやここを
検索すれば見つかると思います。


Dim Fnm(1 To 15) As String
Dim PPBk As Workbook
Dim SSBk As Workbook
Fnm(1) = "ファイル1のフルパス"
Fnm(2) = "ファイル2のフルパス"
Fnm(3) = "ファイル3のフルパス"
Fnm(4) = "ファイル4のフルパス"
Fnm(5) = "ファイル5のフルパス"
Fnm(6) = "ファイル6のフルパス"
Fnm(7) = "ファイル7のフルパス"
Fnm(8) = "ファイル8のフルパス"
Fnm(9) = "ファイル9のフルパス"
Fnm(10) = "ファイル10のフルパス"
Fnm(11) = "ファイル11のフルパス"
Fnm(12) = "ファイル12のフルパス"
Fnm(13) = "ファイル13のフルパス"
Fnm(14) = "ファイル14のフルパス"
Fnm(15) = "ファイル15のフルパス"
Set PPBk = Workbook.Open ("コピー先ブックのフルパス")
For i = 1 To 15
  Set SSBk = Workbook.Open(Fnm(i))
  DoEvents
  SSBk.Sheets("Sheet1").UsedRange.Copy
  PPBk.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial
  DoEvents
  SSBk.Close (False)
Next
Set PPBk = Nothing
Set SSBk = Nothing
Erase Fnm

0 hits

【59088】Excelファイルの結合をするには???? 夜勤担当 08/11/27(木) 13:05 質問
【59089】Re:Excelファイルの結合をするには???? Jaka 08/11/27(木) 13:23 発言
【59091】Re:Excelファイルの結合をするには???? 夜勤担当 08/11/28(金) 7:27 質問
【59094】Re:Excelファイルの結合をするには???? Jaka 08/11/28(金) 10:28 発言
【59128】Re:Excelファイルの結合をするには???? 夜勤担当 08/11/29(土) 22:33 質問
【59129】Re:Excelファイルの結合をするには???? ponpon 08/11/29(土) 22:50 発言
【59138】Re:Excelファイルの結合をするには???? 夜勤担当 08/11/30(日) 12:54 質問
【59150】Re:Excelファイルの結合をするには???? ponpon 08/11/30(日) 18:43 発言
【59345】Re:Excelファイルの結合をするには???? 夜勤担当 08/12/7(日) 16:18 質問
【59353】Re:Excelファイルの結合をするには???? ponpon 08/12/7(日) 23:14 発言
【59181】Re:Excelファイルの結合をするには???? Jaka 08/12/1(月) 15:06 発言
【59346】Re:Excelファイルの結合をするには???? 夜勤担当 08/12/7(日) 16:24 質問
【59358】Re:Excelファイルの結合をするには???? Jaka 08/12/8(月) 14:02 発言
【59185】Re:Excelファイルの結合をするには???? Yuki 08/12/1(月) 17:14 発言

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