No18015.Excel.Application.Quitでプロセスが終了しない

OS:xp
Access Version:2k3

どなたか教えてください。
下記のコードであるファイルを開き、そのまま閉じているだけのプログラムなのですが、
エクセルを終了しても、タスクマネージャでプロセスを見るとExcel.exeが起動したままの状態になっています。成城にプロセスを終了するにはどのようにコードを修正すればよいのでしょうか？


=========================================================
private sub test()
Dim oExl As Excel.Application
Dim oExlBook As Excel.Workbook

'Excelファイルオープン
Set oExl = New Excel.Application
oExl.Application.Visible = True
Set oExlBook = oExl.Application.Workbooks.Open("c:\test.xls")

'Excel終了
oExlBook.Close True
oExl.Application.Quit
Set oExlBook = Nothing
Set oExl = Nothing
End sub
=========================================================

こんにちはー。

> Set oExl = New Excel.Application
　　　　↓
Set oExl = CreateObject("Excel.Application")

では、どうでしょうか？
（解決しないかもしれませんが）

>こんにちはー。
>
> > Set oExl = New Excel.Application
> 　　　　↓
> Set oExl = CreateObject("Excel.Application")
>
> では、どうでしょうか？
> （解決しないかもしれませんが）


以下のように直しても結果は同じです。
どうしてなんでしょうか？

=========================================================
private sub test()
Dim oExl As Variant
Dim oExlBook As Variant

'Excelファイルオープン
Set oExl = CreateObject("Excel.Application")
oExl.Application.Visible = True
Set oExlBook = oExl.Application.Workbooks.Open("c:\test.xls")

'Excel終了
oExlBook.Close True
oExl.Application.Quit
Set oExlBook = Nothing
Set oExl = Nothing
End sub
=========================================================

横から失礼します。
こちらでは正常に終了されるのですが、確認のため下記のように修正してみてください。
> 'Excel終了
> oExlBook.Close True
> oExl.Application.Quit
oExl.Quit
> Set oExlBook = Nothing
> Set oExl = Nothing
> End sub

ちなみに Excel のバージョンは？

> 横から失礼します。
> こちらでは正常に終了されるのですが、確認のため下記のように修正してみてください。
> > 'Excel終了
> > oExlBook.Close True
> > oExl.Application.Quit
> oExl.Quit
> > Set oExlBook = Nothing
> > Set oExl = Nothing
> > End sub
>
> ちなみに Excel のバージョンは？

修正しましたが、プロセスは残ったままでした・・・・
エクセルのバージョンは2003です。
現在のコードは以下の通りです
==========================================
Private sub test()
Dim oExl As Variant
Dim oExlBook As Variant
Set oExl = CreateObject("Excel.Application")
oExl.Application.Visible = True
Set oExlBook = oExl.Application.Workbooks.Open("c:\test.xls")

oExl.Quit
End Sub
==========================================

> Private sub test()
Dim oExl As As Object
Dim oExlBook As As Object
> Set oExl = CreateObject("Excel.Application")
> oExl.Application.Visible = True
> Set oExlBook = oExl.Application.Workbooks.Open("c:\test.xls")
>
> oExl.Quit
Set oExl = Nothing
> End Sub

Set oExl = Nothingが抜けている

> > Private sub test()
> Dim oExl As As Object
> Dim oExlBook As As Object
> > Set oExl = CreateObject("Excel.Application")
> > oExl.Application.Visible = True
> > Set oExlBook = oExl.Application.Workbooks.Open("c:\test.xls")
> >
> > oExl.Quit
> Set oExl = Nothing
> > End Sub
>
> Set oExl = Nothingが抜けている

普通はQuitすればプロセスは終了するのですが・・・
ちなみにNothingいれても終わりません・・・・

環境の問題でしょうか？

おはようございます。
横から失礼致します。
oExlBookについてもQuitとNothingをしてみては？

ご無沙汰しましたー。

> > Set oExl = Nothingが抜けている

Set oExlBook = Nothing　も抜けてますね。
あと、一応、BookをCloseしてからQuitしたほうがお行儀が良さそう。

一番最初のコードが一番きれいなように思うんですけど…
個人的には、「Dim *** As Object」と宣言するのは好きじゃないです(^^;

> private sub test()
> Dim oExl As Excel.Application
> Dim oExlBook As Excel.Workbook
>
> 'Excelファイルオープン
Set oExl = CreateObject("Excel.Application")
oExl.Visible = True
Set oExlBook = oExl.Workbooks.Open("c:\test.xls")
>
> 'Excel終了
> oExlBook.Close True
oExl.Quit
> Set oExlBook = Nothing
> Set oExl = Nothing
> End sub

↑で、ダメなら、

> 環境の問題でしょうか？

かもしれません。
もしくは、全く別のところで何かが邪魔してるとか。

ちなみに、Accessを閉じれば、Excelプロセスは消えます？