如何从所选数据创建新工作簿并为该工作簿命名

Question

我有这段代码可以创建一个新的excel工作簿，并且效果很好，但是我想将其命名为“ FireDrill Report”，但是我不知道如何编码才能为其命名。有人可以帮我吗？

Application.Workbooks.Add
Set xWs = Application.ActiveSheet
Rng.Copy Destination:=xWs.Range("A1")

Answer 1

将新工作簿捕获到一个变量中，然后将其保存以命名，就像这样...

Dim objWB As Workbook
Set objWB = Application.Workbooks.Add
... do stuff
objWB.Save(with your parameters)

...保存它命名。