|
ichinoseさん、Jakaさん、返信ありがとうございます。
ichinoseさんが記述していただいたコードにて無事に動きました。
ありがとうございます。申し訳ありませんが、もうすこしご教授していただけたら幸いです。
現在のコードは、解放・インポートを行えるのは、ひとつのみとなるのでしょうか?もしそうであるならば、複数のフォームを解放・インポートするには
Sub main()
Dim ret As Long
ret = import_fmcomp(ThisWorkbook, ThisWorkbook.Path & "\frm1.frm")
この部分の『"\frm1.frm")』をそれぞれのフォームの名前に変更したマクロを、フォームの個数分だけ作ればいいということになるのでしょうか?
(実際にはこちらの環境にてエクスポートしたフォームの名前は"UserForm1.frm"というものだったので、そこのみ上記場所の記述を変更させています)
それと、フォームを開き、右上の×で閉じた後に、マクロを実行すると、
「読み込み中にエラーが発生しました」となり、ログを見ると、
「行 8: プロパティ OleObjectBlob(UserForm1) のファイル参照が不正です。」
と、なります。
これは、アンロードしていないから、ということになるのでしょうか?(実はよくわかっていません。すいません。)
|
|