| |
▼HOSHI さん：
こんばんは。
>
>マクロ「test」をコピペして実行してみました。
>一応これまでの流れを書いておきます。
>
>mainのみだった場合
> main実行
> ↓
> 「ok」とでて、ユーザーフォームも更新されている。
> ↓
> ユーザーフォームを開いて、×で閉じた後、mainをまた実行してみた
> ↓
> 「読み込み中にエラーが発生しました」
> ↓
> もう一度mainを実行してみた
> ↓
> 「ok」
>結果的にはできるのですが、なぜ途中、一度フォームを開いて×で閉じると、エラーになるのかが、理論的にわからなかったので、お聞きした次第です。ちなみに一度mainで更新した後、フォームを一度も開かずにmainを再度実行してみたところ、エラーにはなりませんでした。
>
>testも試してみましたが、こちらの環境ではエラーになりました。「読み込み中にエラーが発生しました」とでて、ログには「行 2: フォーム名または MDI フォーム名 UserForm1 は既に使われています。」となっています。
>
>書くのが遅くなりましたが、（これも最低限提示するべき情報でした！すいません！）osはxp2のExle2002です。
現象確認しました。
私は、Win2000＆Excel2002SP3で確認しました。
testが正常に作動したのは、ある条件下のみでした。失礼しました。
で、結局はこのような使い方は止めた方がよいです、ということなんですが、
それとは別にこれを動かす方法があるのか、模索してみました。
考え方としては、フォームを入れ替えるブックと入れ替えを行うコードを含むブックに
分けてみたらどうかと思いました。
例えば、
仮にフォームの入れ替えを行うブックをtextbk.xlsとします。
入れ替えるユーザーフォームは、Userform1
このブックの標準モジュールには、
'=================================================
Sub test()
UserForm1.Show
Application.OnTime Now(), "importbk.xls!main"
End Sub
次に入れ替えを実行するコードを含んだブックを
importbk.xlsとします。
このimportbk.xlsの標準モジュールに
'===============================================================
Sub main()
Dim ret As Long
ret = import_fmcomp(Workbooks("testbk.xls"), ThisWorkbook.Path & "\userform1.frm")
If ret = 0 Then
MsgBox "good"
Else
MsgBox Error(ret)
End If
End Sub
'========================================
import_fmcomp、 get_formnm、及び、get_forminf_lineは、
同じ内容でこのブックの標準モジュールに記述します。
尚、testbk.xls、importbk.xls、インポートするUserform1.frmは、
同じフォルダ上にあるとします。
testbk.xls、importbk.xlsが共に開いた状態で
testbk.xlsのプロシジャーtestを実行してみてください。
私が確認した限り正常に作動しています。
|
|
ichinose
- 05/11/9(水) 20:55 -
