【Access VBAからExcelを閉じたい】

【Access VBAからExcelを閉じたい】

以下のコマンドを書いて、
クエリ結果をExcelに貼りつけました。

ですが、Excelを保存して閉じることができず、、、。
（自動起動・終了を目的としています）

具体的には、

objApp.Save

を実行すると、
『この場所に"RESUME.XLW"という名前のファイルが既にあります。置き換えますか？』
とメッセージボックスが出てきます。

何もメッセージを出さずに、上書き保存→Excelを閉じるには、どのように書けばよろしいでしょうか？

以下ソース - - - - - - - - - - - - - - - -

Private Sub XLS_Paste_1()

On Error GoTo Err_XLS_Paste_1

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim objApp As Object

Dim ExeName As String
Dim SheetName As String

ExeName = "\\FileServer01\Share\Excel_Base.xls"
SheetName = "Report"

Set DB = CurrentDb
Set RS = DB.OpenRecordset("qry_sel_DAILY_DATA")

On Error Resume Next

Set objApp = CreateObject("Excel.Application") '変数にExcelオブジェクトを格納

objApp.Visible = True 'Excelを画面に表示させる

With OBJEXE
objApp.Workbooks.Open (ExeName)
With objApp.Sheets(SheetName)

.Range("B53:G83").ClearContents '転記エリアのクリア
.Cells(53, 2).CopyFromRecordset RS 'B53基準で出力

End With

objApp.Visible = True
objApp.Save
objApp.Quit
Set objApp = Nothing

Set RS = Nothing
Set DB = Nothing
Set OBJEXE = Nothing

Exit Sub

End With

Exit_XLS_Paste_1:
Exit Sub

Err_XLS_Paste_1:
MsgBox Err.Description
Resume Exit_XLS_Paste_1

End Sub

投稿日時 - 2010-09-14 18:20:00