Question

我需要使用VBA将信息从一个excel文件复制到其他文件。代码在整个工作表（ 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

类似的东西：

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

Answer 2

考虑：

{{1}}

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

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

2 个答案: