求助：通过以下代码我能够新建一个excel文件，但文件名是固定的。

Private Sub 新建EXCEL文件_Click()

Set ExcelApp = CreateObject("Excel.Application")  '创建EXCEL对象
Set ExcelBook = ExcelApp.Workbooks.Add
Set ExcelSheet = ExcelBook.Worksheets(1)     '添加工作页
ExcelSheet.Activate
ExcelApp.DisplayAlerts = False
ExcelSheet.Name = "sheet1"
ExcelBook.saveas (App.Path & "\2011.xls")

MsgBox "2011.xls创建成功!"
ExcelBook.Close
Set ExcelApp = Nothing
Set ExcelBook = Nothing
Set ExcelSheet = Nothing

End Sub


我想对excel文件名 进行自定义，这样点击一次就可以建立一个excel。最好用commondialog 对话框自定义实现，高手出来帮帮我吧~~~~~~~

[ 本帖最后由 yangyuncai 于 2013-1-30 12:57 编辑 ]

版主，代码具体怎么写哦？
ExcelBook.saveas (App.Path & "\commondialog1.xls")？？？？

VB丢了N年了，现在有个东西要用，麻烦帮忙一下！！！！