こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【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

QNo.6182367

すぐに回答ほしいです

質問者が選んだベストアンサー

objApp.SaveをDisplayAlertsプロパティで囲んでみてください。
 

objApp.DisplayAlerts = False
objApp.Save
objApp.DisplayAlerts = True


以上です。

投稿日時 - 2010-09-14 19:19:43

お礼

できました!

とてもシンプルで、ありがとうございました。

投稿日時 - 2010-09-14 19:50:20

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問