任何帮助都将不胜感激。
说明:我有一个包含几张数据的excel文件。我需要从多个工作表中复制所有数据,创建一个新的Excel文件,然后将数据粘贴到多个工作表中。所以,如果我有以下内容:
excelfile1.xlsx-sheet1-sheet2
我需要选择sheet1,复制sheet1中的所有数据,创建一个新的excel文件,然后将sheet1数据粘贴到sheet1new的新文件中,然后需要对sheet2进行相同的操作。
这是我处理1张纸的代码(但不确定如何要求它处理第二张纸的动作,这是我需要一些指导的地方):
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
Worksheets(Array("Sheet1", "Sheet2")).Copy
With ActiveWorkbook
.SaveAs Filename:=Environ("TEMP") & "\New3.xlsx", FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句