求助：通过以下代码我能够新建一个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 & "\2011.xls")

这句是文件名，你把这句里的文件名修改一下就可以了。
直接把 commondialog  生成 的文件名，换到括号里就行了。

嗯，按照版主说的就行了

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

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

丢了N年还能写出这ExcelBook.saveas (App.Path & "\commondialog1.xls")

commondialog1.filetitle（应该没拼错） 这个就是文件名

说的挺好

调用 CommonDialog 控件的 FileName 即可得到文件名，请看以下示例：

Private Sub Command1_Click()
    With CommonDialog1
        ' 设置过滤器.
        .Filter = "Excel 97-2003 工作簿(*.xls)|*.xls"
        ' 显示“另存为”对话框.
        .ShowSave
    End With
   
    MsgBox CommonDialog1.FileName
End Sub

[ 本帖最后由 SeayuFavor 于 2013-1-31 15:53 编辑 ]