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

Question

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

调整，如果你正在使用一个版本的Excel预2007 。

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