vb保存excel文件的问题？

[marswgj]

代码如下：
Dim objExl As Excel.Application '声明对象变量
Set objExl = New Excel.Application '初始化对象变量
objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1
objExl.Workbooks.Add '增加一个工作薄
objExl.Sheets(objExl.Sheets.Count).Name = "book1" '修改工作薄名称

objExl.Sheets("book1").Select '选中工作薄<月报表>

objExl.Range(objExl.Cells(1, 1), objExl.Cells(1, 12)).Select
objExl.Selection.Merge

'objExl.Selection.NumberFormatLocal = "@" '设置格式为文本

objExl.Cells(1, 1) = "月报表"
objExl.Quit
Set objExl = Nothing '清除对象
现在执行完，会弹出一个保存的对话框，我想不出现这个对话框，而由我指定路径和文件名。
怎么实现？谢谢

[pweixing]

Workbooks("BOOK1.XLS").Close SaveChanges:=False
保存的时候不提示！

[pweixing]

Sub AddNew()
Set newBook = Workbooks.Add
With newBook
.Title = "1995 Sales"
.Subject = "Sales"
.SaveAs filename:="95Sales.xls"
End With
End Sub

[pweixing]

纠正一下：第一个Workbooks("BOOK1.XLS").Close SaveChanges:=False是不保存，=TRUE是直接保存

[viena]

同意楼上，另外

objExl.Range(objExl.Cells(1, 1), objExl.Cells(1, 12)).Select
objExl.Selection.Merge

没有必要选中，直接
objExl.Range(objExl.Cells(1, 1), objExl.Cells(1, 12)).Merge
就可以了