tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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)は途中のエラーはあったものの結果的に解放されていましたが、これは最初に投稿したコードだと思うのです。
その時は途中のエラーもなく、最後に解放されない状態であったのですが、、、。
ちょっと不思議な気分です。
違いはというと参照設定を外すことなくテストしていたことです。今回投稿してみて初めて参照設定をはずして再度設定してテストしてみてうまく解放されたということは、何かコード以外の原因があるのかなぁとか思っています。
ともあれまずはうまくいきましたので当面の間これで続けていきます。
魔界の仮面弁士様、花ちゃん様、いろいろたくさんのご指導ありがとうございました。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。