質問

ExcelVBAで、ユーザーフォームを新規Bookにコピーしたい

質問者：himawarink
投稿日時：2008/05/15 21:35

シートをコピーして新規Bookで保存するマクロを作成しています。
このシートには「クリックするとユーザーフォームを開く」ボタンをつけているのですが、コピー先のBookにユーザーフォームをコピーすることができません。
（全て自動化したいので、両方のBookをVBEで開いてドラッグでコピーするようなことは考えていません。）
良い方法がありましたら、アドバイスください。
よろしくお願いします。

通報する

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者：Bonjin
回答日時：2008/05/17 17:30

フォームをエクスポートして新しいブックにインポートすればOKです。
下はユーザーフォームのMyFormをC:\myform.frmにエクスポーとして新しいブックにインポートする例です。

Dim newBook As Workbook
ThisWorkbook.VBProject.VBComponents.Item("MyForm").Export "C:\myform.frm"
Set newBook = Workbooks.Add
newBook.VBProject.Import "C:\myform.frm"

通報する