| 
    
     |  | ▼bykin さん: どうも、回答ありがとうございました。
 
 先ほど、エラーのおきる環境で、いただいたサンプルコードで実行してみましたが
 状態変わらずで、初期化されてました。
 うーん、マイクロソフトのバグでしょうか(-_-;)
 動作させる環境がまずいのかもしれませんが、もう少し調査してみます。
 ありがとうございました。
 
 >こんばんわ。
 >
 >あんまし自信ないねんけど・・・(^^;;
 >
 >main.xls のコードは↓こう変更して
 >
 >Private Sub CommandButton1_Click()
 >  Workbooks.Open Filename:=("c:\sub.xls")
 >  ActiveWorkbook.RunAutoMacros xlAutoOpen
 >End Sub
 >
 >sub.xls については
 >Private Sub Workbook_Open()
 >を全部削除してそのかわりに標準モジュールに
 >
 >Sub Auto_Open()
 >  ptest = 1  ''変数の初期化
 >  MsgBox ("現在の変数の値は" & ptest & "です。")
 >End Sub
 >
 >って書いたらうまいこといけへんかな?
 >
 >同じ環境やないので実験はしてまへん。うまいこといかんかったらかんにんな。
 >ほな。
 
 |  |