Excel VBA質問箱 IV

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

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


50635 / 76738 ←次へ | 前へ→

【30988】Re:ユーザーフォームのインポート 訂正
質問  HOSHI  - 05/11/8(火) 17:50 -

引用なし
パスワード
   ichinoseさん、Jakaさん、返信ありがとうございます。

ichinoseさんが記述していただいたコードにて無事に動きました。
ありがとうございます。申し訳ありませんが、もうすこしご教授していただけたら幸いです。

現在のコードは、解放・インポートを行えるのは、ひとつのみとなるのでしょうか?もしそうであるならば、複数のフォームを解放・インポートするには

Sub main()
 Dim ret As Long
 ret = import_fmcomp(ThisWorkbook, ThisWorkbook.Path & "\frm1.frm")

この部分の『"\frm1.frm")』をそれぞれのフォームの名前に変更したマクロを、フォームの個数分だけ作ればいいということになるのでしょうか?
(実際にはこちらの環境にてエクスポートしたフォームの名前は"UserForm1.frm"というものだったので、そこのみ上記場所の記述を変更させています)

それと、フォームを開き、右上の×で閉じた後に、マクロを実行すると、
「読み込み中にエラーが発生しました」となり、ログを見ると、
「行 8: プロパティ OleObjectBlob(UserForm1) のファイル参照が不正です。」
と、なります。
これは、アンロードしていないから、ということになるのでしょうか?(実はよくわかっていません。すいません。)

3 hits

【30940】ユーザーフォームのインポート HOSHI 05/11/7(月) 16:22 質問
【30941】Re:ユーザーフォームのインポート Jaka 05/11/7(月) 16:44 発言
【30958】Re:ユーザーフォームのインポート ichinose 05/11/7(月) 23:16 発言
【30959】Re:ユーザーフォームのインポート 訂正 ichinose 05/11/8(火) 7:57 発言
【30988】Re:ユーザーフォームのインポート 訂正 HOSHI 05/11/8(火) 17:50 質問
【30991】Re:ユーザーフォームのインポート 訂正 ichinose 05/11/8(火) 20:27 発言
【31014】Re:ユーザーフォームのインポート 訂正 HOSHI 05/11/9(水) 10:22 お礼
【31024】Re:ユーザーフォームのインポート 訂正 HOSHI 05/11/9(水) 14:33 お礼
【31043】Re:ユーザーフォームのインポート 訂正 ichinose 05/11/9(水) 20:55 発言
【31058】Re:ユーザーフォームのインポート 訂正 HOSHI 05/11/10(木) 11:49 お礼

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