VBA单击按钮创建一个新的工作簿

Question

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

提前非常感谢您！

那是我到目前为止的代码，但是无法按我想要的方式工作（找不到对象，也没有将其保存在同一文件夹中）：

Sub CreateNewWorkBook()

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

End Sub

Answer 1

请尝试以下代码：

https://msdn.microsoft.com/zh-CN/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

要获取文件的路径，已经存在以下问题：

如何在VBA中获取当前工作表的路径？