以下コードを実行したところ、パスワードありのExcelファイルを開く際はobjExcelが解放されるのですが、
パスワードなしの場合はSet objExcel = Nothing後もメモリが解放されない事象が起きています。
以下を参考にやってみましたが、DoEventsを挟んでも解決せず。。。
WorkBooks.Openで開いたブックはWorkBooks.Closeでメモリ解放されるのでしょうか?
どなたか原因がわかる方がいらっしゃいましたら回答をお願いします。
vba
1'※tgtPathは対象のExcelファイルパス 2On Error Resume Next 3 4Dim objExcel, wb As Object 5Set objExcel = CreateObject("Excel.Application") 6Set wb = objExcel.Workbooks.Open(tgtPath, Password:=vbNullString) 7 8errDescription = Err.Description 9errNum = Err.Number 10 11' ダイアログ非表示にしてブックを閉じる 12Application.DisplayAlerts = False 13wb.Close 14Application.DisplayAlerts = True 15 16Set wb = Nothing 17objExcel.Quit 18Set objExcel = Nothing 19
解決済みですが、
再現するか試してみたいのですが、このコードはエクセルのブックに書いているのでしょうか?
それとも他のVBAでしょうか?
どのアプリのVBAでしょうか?
回答3件
あなたの回答
tips
プレビュー