求助:看看这个代码该怎么改?
求助:通过以下代码我能够新建一个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 编辑 ]