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

【问题标题】：copying from one excel to other using VBA使用VBA从一个excel复制到另一个
【发布时间】：2015-05-04 19:28:54
【问题描述】：

我需要使用 VBA 将信息从一个 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

【问题讨论】：

标签： vba excel

【解决方案1】：

考虑：

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

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

【讨论】：

【解决方案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

【讨论】：