Excelを開いたまま終了した場合のファイルについて (ID:87090)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になっております。 環境はｖｂ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 お願いいたします。。