Excel VBA質問箱 IV

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

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


51166 / 76732 ←次へ | 前へ→

【30440】Re:別ブックのシートを統合したい
質問  VBA初心者 丸助 E-MAIL  - 05/10/27(木) 17:16 -

引用なし
パスワード
   >コードをUpしていただけませんか?
はい。下の通りです。

'名簿と印刷フォームをシート追加する
Private Sub Workbook_Open()

 Application.ScreenUpdating = False
 '名簿台帳シート
 SheetAddandCopy ("Meibo.xls")
 '印刷フォームシート
 SheetAddandCopy ("PrintForm.xls")

End Sub

Sub SheetAddandCopy(sFileName As String)
Dim new_ws As Variant
Dim copy_ws As Variant
Dim sPath As String
 
 sPath = ThisWorkbook.Path
 
 '同一フォルダ内の指定ファイルを開く&コピー
 Workbooks.Open Filename:=sPath & "\" & sFileName, ReadOnly:=True
 Set copy_ws = Workbooks(sFileName).Worksheets(1).Cells
 Set new_ws = ThisWorkbook.Worksheets.Add
 copy_ws.Copy (new_ws.Cells(1, 1))
 Workbooks(sFileName).Close
 
 Set new_ws = Nothing
 Set copy_ws = Nothing

End Sub


以上ですが、どうでしょうか?
動作が速くなる方法がありますでしょうか?


>比較するしかないのかな?
>データ量にもよりますが。

そうですか。面倒なので強制的に保存しましょうかね。。。
また別の問題なんですが、
BookのBeforeCloseイベントで、名簿シートを本体ブックにコピーして
削除するコードを入れると、×ボタンを押して、閉じるときの
「変更を保存しますか?」をキャンセルすると、名簿シートが削除され
てしまい、そのままプログラムを動作できる状態ではなくなってしまうの
ですが、よい方法はありますでしょうか。

0 hits

【30402】別ブックのシートを統合したい VBA初心者 丸助 05/10/26(水) 19:02 質問
【30403】Re:別ブックのシートを統合したい Statis 05/10/26(水) 19:19 発言
【30440】Re:別ブックのシートを統合したい VBA初心者 丸助 05/10/27(木) 17:16 質問
【30441】Re:別ブックのシートを統合したい Statis 05/10/27(木) 17:52 回答
【30443】Re:別ブックのシートを統合したい VBA初心者 丸助 05/10/27(木) 18:49 質問
【30445】Re:別ブックのシートを統合したい Statis 05/10/27(木) 19:49 発言
【30446】Re:別ブックのシートを統合したい VBA初心者 丸助 05/10/27(木) 19:59 質問
【30449】Re:別ブックのシートを統合したい Statis 05/10/27(木) 20:25 回答
【30451】Re:別ブックのシートを統合したい VBA初心者 丸助 05/10/27(木) 20:52 質問
【30452】Re:別ブックのシートを統合したい Statis 05/10/27(木) 21:10 回答
【30453】Re:別ブックのシートを統合したい VBA初心者 丸助 05/10/27(木) 21:21 お礼
【30459】Re:別ブックのシートを統合したい こたつねこ 05/10/27(木) 22:22 発言
【30546】Re:別ブックのシートを統合したい Statis 05/10/30(日) 9:20 回答

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