ACCESS VBA Excelの操作（保存と終了）

Dim objE As Object
Set objE = CreateObject("Excel.Application")
objE.Visible = True
objE.UserControl = True

With objE
.Workbooks.Open Filename:= _
"ファイルのパス"
.Range("A3").Select
.Range("A3").Value = ”TEST"
'**保存部分
.ActiveWorkBook.SaveAs Filename:= _
"ファイルのパス"
'**閉じる部分
.ActiveWorkBook.Close SaveChanges:=False
.Quit

End With

こんな感じですかね。
とりあえず動きますが、
この記述がいいのか悪いのかまではわかりません(--;