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/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?

VBA通过单击按钮创建新工作簿

1 个答案: