从一个Excel复制到其他使用VBA

我需要从一个Excel文件复制到其他使用VBA的信息。 代码在特定目的地（* C：\ Users \ eliza_000 \ Desktop \ aaa *）中为整个工作表（ inv ）创build新的工作簿，但在新工作簿中只需要范围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 

Answer 1

考虑：

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

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

Answer 2

就像是：

 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