求助：看看这个代码该怎么改？

yangyuncai 发布于 2013-01-30 12:40， 509 次点击

求助：通过以下代码我能够新建一个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 编辑 ]

7 回复

风吹过b2013-01-30 14:23

ExcelBook.saveas (App.Path & "\2011.xls")

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

seafish0112013-01-30 21:54

嗯，按照版主说的就行了

yangyuncai2013-01-31 08:32

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

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

Artless2013-01-31 11:25

以下是引用yangyuncai在2013-1-31 08:32:49的发言：

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

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

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

seafish0112013-01-31 15:07

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

billyppppp2013-01-31 15:41

以下是引用风吹过b在2013-1-30 14:23:04的发言：

ExcelBook.saveas (App.Path & "\2011.xls")

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

说的挺好

SeayuFavor2013-01-31 15:51

调用 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 编辑 ]