[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^3: Subroutineの引数が原因でExcelが開放できなくなります。 投稿日 ： 2009/09/02(Wed) 11:01 投稿者 ： camputer
| こんにちは、camputerです。 すみません。もう一度だけ質問させてください。一度だけ開放できた症状を見ましたが、 解決直後に再び開放できない現象になってしまいました。 色々テストし続けてみましたが、解決いたしません。。 アドバイスいただきたくお願い申し上げます。 Private Sub 練習 call Excel練習(String3) End Sub Private Sub Excel練習(ByVal String3 As String) ・・・ Dim Shape1 As Excel.Shape ・・・ subroutine1(String1, String2, Shape1, String3, Integer1, Integer2) '↑ここの行が原因です ・・・ End Sub Sub subroutine1(ByVal String1 As String, ByVal String2 As String _ , ByVal Shape1 As Excel.Shape, ByVal String3 As String _ , ByRef Integer1 As Integer, ByRef Integer2 As Integer) '※Subroutine内のコードは無し End Sub テストいたしましたところ、 subroutine1(String1, String2, Shape1, String3, Integer1)だと間違いなく開放できますが、 subroutine1(String1, String2, Shape1, String3, Integer1, Integer2)だと開放できません。。 魔界の仮面弁士様からAs〜のご指摘をいただけたので、特別にInteger2が問題の場合以外にも、 全体として開放しにくいコーディングの複合要因が原因で起こる現象のように感じましたので、 最初のサブルーチンから２度引数として渡してあるString3についても 一度別の変数に入れてみたり、subroutine1の引数から消したりしましたが、 改善いたしません。。。 ByVal Shape1 As Excel.Shape についても考えてみたのですが、過去ログにいくつか (ByVal Wb As Excel.Workbook・・・)といったような宣言を見かけますので、 大丈夫なのかな？と思うのですが。。。 どこか怪しそうなところを御指摘いただけないでしょうか。。。 どうぞよろしくお願いいたします。 |
をクリックするとツリー全体を一括表示します） - Subroutineの引数が原因でExcelが開放できなくなります。 - camputer 09/08/31-17:30No.9324