将范围导出到新的 Excel 文档 VBA

Question

我是 VBA 的新手，但正在处理一些报告，创建一个宏按钮以将定义的范围自动导出到新的.xlsx文档中会简单得多。

到目前为止，我有：

Sub ExportTest()
Dim WS As Worksheet
Dim Rng As Range
Set Rng = Range("A1:K10")
Application.Workbooks.Add
Set WS = Application.ActiveSheet
Rng.Copy Destination:=WS.Range("A1")
WS.SaveAs "test", ".xlsx"
End Sub

我收到错误 1004，这似乎是 SaveAs 部分的问题。

但无法弄清楚如何自动将其保存到预定义的文件夹中。 此外，如果可能的话，是否可以将文件名作为原始工作簿中的单元格引用？

Answer 1

SaveAs 语法中有错误。试试这个

WS.SaveAs "test", xlOpenXMLWorkbook

Answer 2

我想我现在解决了，谢谢！

Sub Test()
Dim WS As Worksheet
Dim Rng As Range
Set Rng = Range("A1:K10")
Application.Workbooks.Add
Set WS = Application.ActiveSheet
Rng.Copy Destination:=WS.Range("A1")
Dim Path As String
Dim filename As String
Path = "C:test"
filename = Range("A1")
WS.SaveAs filename:=Path & filename & ".xlsx", FileFormat:=xlOpenXMLWorkbook
End Sub