タイトル : Re^2: AccessVBAでエクセルが解放がされない件 投稿日 : 2014/02/27(Thu) 23:54 投稿者 : まほろば
1. >環境依存の問題が生じている可能性も考えられます すみません、自宅の方はExcel2013と2010が共存していることを忘れていました。 その他アドインや自動マクロの類はありません。 2. >Excel.Application だけを 起動→表示→終了→Nothing させるコードを試してみてください これもテストしましたが依然解放されていませんでした。 3. >myAccDate = Format(myAcDate, "Short Date") 右辺のmyAcDateはmyAccDateの投稿するときのタイプミスです。お手数かけてすみませんでした。 4. >原因箇所を特定してみてください。 いろいろとテストするうち下記のような結果になりました。 書き換えたのは「Excelの参照設定の有無」と「Set xlApp =〜」の2か所です。 結果は (1)Excelの参照設定あり Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") 解放される (2)Excelの参照設定なし Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") rowCount = mysheet.Range("A1").End(xlDown).Row (反転)xlDown 「コンパイルエラー 変数が定義されていません。」 となったので rowCount=600 としてテスト 解放される (3)Excelの参照設定あり Dim xlApp As Object Set xlApp = New Excel.Application 解放される (4)Excelの参照設定なし Dim xlApp As Object Set xlApp = New Excel.Application (反転)New Excel.Application 「コンパイルエラー ユーザー定義型は定義されていません。」 (2)は途中のエラーはあったものの結果的に解放されていましたが、これは最初に投稿したコードだと思うのです。 その時は途中のエラーもなく、最後に解放されない状態であったのですが、、、。 ちょっと不思議な気分です。 違いはというと参照設定を外すことなくテストしていたことです。今回投稿してみて初めて参照設定をはずして再度設定してテストしてみてうまく解放されたということは、何かコード以外の原因があるのかなぁとか思っています。 ともあれまずはうまくいきましたので当面の間これで続けていきます。 魔界の仮面弁士様、花ちゃん様、いろいろたくさんのご指導ありがとうございました。 |