使用VBA从一个excel复制到另一个excel

我需要使用VBA将信息从一个excel文件复制到另一个excel文件。代码在特定目标（*C:\Users\eliza_000\Desktop\aaa*）为整个工作表（inv）创建新工作簿，但我只需要新工作簿中的A1:E32范围。 这是我用来复制所有工作表的代码

Sub SaveInvWithNewName()

Dim NewFN As Variant
'Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "C:\Users\eliza_000\Desktop\aaa\inv" & Range("E6").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close


End Sub

比如：

Dim WB As Workbook
Dim WB2 As Workbook
Dim NewFN As String

Set WB = ThisWorkbook
Set WB2 = Workbooks.Add(1)

WB.ActiveSheet.Range("A1:E32").Copy WB2.Sheets(1).Range("a1")

NewFN = "C:\Users\eliza_000\Desktop\aaa\inv" & Range("E6").Value & ".xlsx"
NewFN = "C:\temp\stuff.xlsx"
WB2.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
WB2.Close

考虑：

Sub dural()
    ActiveSheet.Copy
    Rows("33:1048576").Delete
    Columns("F:xfd").Delete
End Sub

如果您使用的是Excel 2007之前的版本，请进行调整