タイトル : Subroutineの引数が原因でExcelが開放できなくなります。 投稿日 : 2009/08/31(Mon) 17:30 投稿者 : camputer
こんにちは、質問させていただきます。camputerと申します。 10年近く研究で計算プログラムを作成しておりましたが、 1年ほど前にVB.NETに触れVBが好きになりました。 どうぞよろしくお願いいたします。 開発環境はVB2008+XP+Excel2003になります。 ↓のように、Subroutine呼び出しの行で解放できなくなるのですが、 Private Sub Excel練習 ・・・ Dim Shape1 As Excel.Shape ・・・ subroutine1(String1, String2, Shape1, String3, Integer1, Integer2) '↑ここの行が無ければ開放されます。。 ・・・ End Sub Sub subroutine1(ByVal String1, ByVal String2, ByVal Shape1, ByVal String3 , ByRef Integer1, ByRef Integer2) '※Subroutine内のコード無し End Sub テストしておりますと、上のsubroutine1の引数を(2行とも)変更して、 subroutine1(String1, String2, Shape1, String3, Integer1) だと開放できるので、Integer2が怪しいのかな?と考え、次のようにしてみましたが、 subroutine1(Integer2) 何故か↑でも開放できます。。。 解決手段が塞がってしまいました。。。何か思い当たることなど 是非ともヒントをいただけないでしょうか。 Excelの開放については散々出ているようなので、どこかに情報源があるのではと 思うのですが、「Subroutine 開放」などと検索しても分かりませんでした。 もしもとんちんかんな質問でしたら申し訳ございませんが、 是非ともアドバイスをいただきたくお願いいたします。 どうぞよろしくお願いいたします。 |