ASP(VBScript)にてExcelアプリケーションが終了しない

質問

こんばんは
VBScriptでExcelを読込みサーバのDBに内容を登録後に終了をしているのですがサーバにExcelアプリケーションが残ったままになっています。

strGetFileName = "C:\a.xls"
'Excelシート設定
Set xlsApp = Server.CreateObject("Excel.Application")
xlsApp.Workbooks.Open strGetFileName
Set xlsBook = xlsApp.Workbooks(1)
Set xlsSheet = xlsBook.Worksheets(2)　←　二枚目のシート

－－中略－－

xlsSheet.Application.Quit
'Excelアプリケーションのメモリ開放
Set xlsSheet = Nothing
Set xlsBook = Nothing
Set xlsApp = Nothing

といったコーディングなのですが処理を重ねるたびにタスクマネージャに
Excelアプリケーションが残り、重くなってしまいます。
終了の方法が悪いのではないかとは思いますが、実現方法がわかりません。
オブジェクトをオープンしているのでクローズ命令でも試してみましたがうまくいきませんでした。
どなたかご存知の方いらっしゃいましたら教えてください。

OS Win2000
ASP,BASP
言語 Html,VBScript,JavaScript

回答No.2

LemonT · ベストアンサー

訂正です。
＞Set xlsBook = xlsApp.Workbooks.Open strGetFileName
Set xlsBook = xlsApp.Workbooks.Open(strGetFileName)

以下、追加です。
＞Set xlsSheet = xlsBook.Worksheets(2)
Set xlsSheet = xlsBook.Sheets(2)

＞xlsSheet.Application.Quit
はやめて、
＞Set xlsSheet = Nothing
xlsBook.Close
＞Set xlsBook = Nothing
xlsApp.Quit
＞Set xlsApp = Nothing
以上、動作確認済。

VBと同じと思わない方がいいですね。

お礼

いやあ、やっぱりそうですか．．．
昨日から自分でもいろいろと試していました。
結果、今remonTさんに頂いたコーディングで無事解決しました。
ありがとう御座います。
やっぱりＶＢとVBScriptとは違いますねェ＾＾;

回答No.1

LemonT

こんにちは。

＞xlsApp.Workbooks.Open strGetFileName
＞Set xlsBook = xlsApp.Workbooks(1)
の部分が
Set xlsBook = xlsApp.Workbooks.Open strGetFileName
と思われますが。。。

補足

それはそうなのですが、一応ＶＢでは動いた実績のあるコーディングでして。
せっかく回答いただいたのですが、質問に対する答えではないようですね．．．
でも、ご意見ありがとう御座いました　m(__)m