Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22954 / 76732

←次へ　｜　前へ→


	【59150】Re:Excelファイルの結合をするには？？？？

ponpon - 08/11/30(日) 18:43 -


	引用なし

	パスワード

こんな感じにすると少しは早くなるかも。
結果.xlsを開いて、そこにコードを記述しています。

Sub TEST00001()
　　Dim Fnm(1 To 2) As String
　　Dim PPBk As Workbook
　　Dim SSBk As Workbook
　　
　　Application.ScreenUpdating = False　　　'画面更新の停止
　　Fnm(1) = ThisWorkbook.Path & "\１.xls"　'結果.xlsと同じフォルダにある
　　Fnm(2) = ThisWorkbook.Path & "\２.xls"　'結果.xlsと同じフォルダにある
　　Set PPBk = ThisWorkbook　　’開いているファイル(結果.xls）
　　
　　For i = 1 To 2
　　　 Set SSBk = Workbooks.Open(Fnm(i))
　　　 DoEvents
　　　 SSBk.Sheets("Sheet1").UsedRange.Offset(1).Copy
　　　 PPBk.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial
　　　 Application.CutCopyMode = False　'クリップボードをクリア
　　　 DoEvents
　　　 SSBk.Close (False)
　　Next
　　Set PPBk = Nothing
　　Set SSBk = Nothing
　　Erase Fnm
　　Application.ScreenUpdating = True　　'画面更新の再開

End Sub

0 hits

▼

【59088】Excelファイルの結合をするには？？？？ 夜勤担当 08/11/27(木) 13:05