☰

Excel VBA 宏 - 从现有文件中的多个工作表复制数据，并创建新文件并将选定的数据粘贴到单独的工作表中

tag-icon • tag-icon microsoft-excel vba macros copy-paste
Excel VBA 宏 - 从现有文件中的多个工作表复制数据，并创建新文件并将选定的数据粘贴到单独的工作表中

非常感谢任何帮助。

描述：我有一个包含多张数据表的 excel 文件。我需要从多张表中复制所有数据，创建一个新的 excel 文件，然后将该数据粘贴到多张表中。因此，如果我有以下内容：

excel文件1.xlsx-sheet1-sheet2

我需要选择 sheet1，复制 sheet1 中的所有数据，创建一个新的 excel 文件并将 sheet1 数据粘贴到 sheet1new 上的新文件中，然后需要对 sheet2 执行相同的操作。

这是我处理第 1 张表的代码（但不确定如何让它处理第 2 张表的操作，这是我需要一些指导的地方）：

Dim Directory As String
Dim Filename As String

Directory = Range("directory").Value
Filename = Range("filename").Value





Sheets("RHD").Select

Cells.Select
Range("N15").Activate
Selection.Copy

Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

ActiveWorkbook.SaveAs Filename:=Directory & Filename, _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

Sheets("I&S").Select

答案1

Worksheets(Array("Sheet1", "Sheet2")).Copy
With ActiveWorkbook
 .SaveAs Filename:=Environ("TEMP") & "\New3.xlsx", FileFormat:=xlOpenXMLWorkbook 
 .Close SaveChanges:=False 
End With

从docs.microsoft.com

相关内容