Как мне создать новую книгу из выбранных данных и назвать эту книгу

Question

У меня есть этот код для создания новой книги Excel, и она прекрасно работает, но я бы хотел назвать ее «Отчет FireDrill», но я не знаю, как ее кодировать, чтобы дать ей имя.Может ли кто-нибудь помочь мне с этим?

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)

... сохраняя ее имена.