Excelを開いたまま終了した場合のファイルについて

解決

あこ  2004-12-02 11:13:43  No: 87090  IP: [192.*.*.*]

お世話になっております。
環境はｖｂ6.0です。accessをDBに使用しております。
ACCESSからEXCELにデータを印刷処理をしようとするプログラムで

実行時にEXCELにデータを書込み後、終了せずに途中で
終了してしまったEXCELファイルがあるのですが・・
そのファイルが開いたままの状態のようで  PCを終了しようとすると
メッセージ「EXCELが終了できません。」がでてきて終了できません。
このファイルを削除？または閉じた状態に戻す方法など知っていましたら
教えてください。よろしくお願いいたhしますm(_ _)m

Private Sub sample_AA()

    Dim cn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim objExcel As Excel.Application

    Dim s_tblname As String
    Dim s_xlsname As String  'エクセルファイルのアドレスパス名
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\access\SAMPLE_DB.mdb;"

    cn.Open
    Set rst = New ADODB.Recordset
    
    s_tblname = "テーブル１"     'ワークテーブルを読込み
    rst.Source = s_tblname
    
    rst.ActiveConnection = cn
    rst.CursorType = adOpenStatic
    rst.Open
    Set objExcel = New Excel.Application
    
    s_xlsname = "C:\tmp\WK_PRINT.xls" '出力エクセルファイル        s_sheetname="Sheet1"

    objExcel.Workbooks.Open (s_xlsname)
    objExcel.Worksheets(ps_sheetname).Select
    
    'RecordSetオブジェクトをExcelシートにコピー
    objExcel.Cells(1, 1) = "さんぷる"
    objExcel.Cells(2, 1).CopyFromRecordset rst'＜ーーここで終了してしまいました。。。
    
    objExcel.Quit
    
    rst.Close
    cn.Close
    Set rst = Nothing
    Set cn = Nothing
    Set objExcel = Nothing
End Sub

お願いいたします。。

編集 削除
あこ  2004-12-02 11:29:31  No: 87091  IP: [192.*.*.*]

大変失礼いたしました。。。自己解決しました。
タスクマネージャーからEXECLの終了をさせてファイルの削除ができました(_ _;;)常識範囲ですね。。
本当にパニックになってしまい  こちらに助けを求めてしまいました・・
すみませんでしたm(_ _)m・・・

編集 削除