VBA 通过单击按钮创建一个新工作簿答案

【问题标题】：VBA Create a new workbook with a button clickVBA 通过单击按钮创建一个新工作簿
【发布时间】：2018-04-28 17:11:08
【问题描述】：

我正在尝试创建一个宏，以便在按下现有工作簿上的按钮时创建一个新工作簿。我想将新创建的工作簿保存在与现有工作簿相同的文件夹中并给它一个新名称？有人可以帮我吗？

非常感谢您！

这是我到现在为止的代码，但它不能按我想要的那样工作（找不到对象并且没有将它保存在同一文件夹中）：

Sub CreateNewWorkBook()

'Adding New Workbook
Workbooks.Add
'Saving the Workbook
 ActiveWorkbook.SaveAs Filename:=thisWb.Path & "\Test.xls"
 ActiveWorkbook.Close savechanges:=False

End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

尝试以下代码：

https://msdn.microsoft.com/en-us/library/office/aa221273(v=office.11).aspx

Sub AddNew()
Set NewBook = Workbooks.Add
    With NewBook
        .Title = "All Sales" 'You can modify this value.
        .Subject = "Sales" 'You can modify this value.
        .SaveAs Filename:="Allsales.xls"
    End With
End Sub

要获取文件的路径，已经有一个问题了：

How to get the path of current worksheet in VBA?

【讨论】：