VBスクリプトで起動したExcelがQuitで終了しない

Question

お世話になります。

次のVBスクリプトを特定の PC で実行すると、Excel のプロセスが残ってしまう事象

が起きています。

Dim xlApp

Dim xlWorkbook

Set xlApp=WScript.CreateObject("Excel.Application")

Set xlWorkbook = xlApp.Workbooks.Open ("C:\Users\Administrator\BIN\test.xlsx")

xlWorkbook.Close

xlApp.Quit

test.xlsx は、エクスプローラーで新規作成した空のブックです。

ブックを開かなければ問題なく終了します。

環境は Windows7 SP1 64bit、Excel2010 64bit (14.0.7015.1000) です。

原因として何が考えられるでしょうか？

Answer 1

M14Clusterさん、こんにちは。

外しているかもしれませんが、

Set xlApp = Nothing

を追加してみてはいかがでしょう。

[参考]

Excelを解放したい(2)　Workbook().CloseとApplication.Quitと(2)

http://blog.livedoor.jp/midorityo/archives/50735275.html

また、特定の PC のみの現象との事ですので、

・Excel を＜Office セーフモード ＞で起動した場合はどうか。

・常駐アプリケーションが干渉していないか確認する＜クリーンブート＞ではどうか。

・＜新規ユーザーアカウント＞ではどうか。

といった事もお試しになってみてはいかがでしょう。

また、プログラムに関する話題は、開発の方が集まる Msdn フォーラム ですと 情報が集まり易いと思いますので、是非そちらもご利用になってみて下さいね。

■ Msdn フォーラム

Answer 2

Makapuさん、ありがとうございます。

>Set xlApp = Nothing

これは効果なしでした。

>・Excel を＜Office セーフモード ＞で起動した場合はどうか。

言われてみれば、で、アドインを調べたところ、COMアドインを外したら問題は解消しました。

COMアドインのベンダーに問い合わせてみます。

>・＜新規ユーザーアカウント＞ではどうか。

これでも問題は起きませんでした。

やりたいことはタスクスケジューラによる自動化なので、当面の解決手段として使えそうです。

ありがとうございました。