我想用VBA代码实现以下功能
新建一个新的excel表格,命名为test.xlsx
并将其保存在C盘下即 C:\test.xlsx
挺简单的功能,求大神给个完整的代码,多谢了
Sub 新建()
Workbooks.Add
ActiveWorkbook.SaveAs "C:\test.xls", True
MsgBox "新建Excel工作薄完成"
End Sub
Workbooks.Add
ActiveWorkbook.SaveAs "C:\test.xls", True
MsgBox "新建Excel工作薄完成"
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2017-05-20
Sub 宏1()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\test.xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
End Sub本回答被网友采纳
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\test.xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
End Sub本回答被网友采纳
第2个回答 2014-09-12
Sub 宏1()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub