VBAmacros将表单复制并粘贴到新的工作簿中

我每天都要做一个报告，在这个报告中，我必须复制并粘贴几个表格到一个名为“报告”（今天的date）的新工作簿中。

在我的报告中，我有4张：客户，订单，国家，身份证。

客户和国家是从主文件简单的复制和粘贴，但订单和ID是从主文件中的我的工作表之一过滤数据。 订单被过滤为“完成”，Id是除ID 200和500以外的所有内容。

我试着build立一个基于这个解决scheme的macros在这里find： http : //www.hivmr.com/db/ack717pc8f88jpdsf7838pcaspkcsdmd

复制和粘贴的作品，但我无法复制和粘贴多个工作表/重命名工作表和过滤数据。

编辑：

Sub CopyInNewWB() 'has been tested Dim newWS, WS As Worksheet Application.ScreenUpdating = False Set WS = ThisWorkbook.Sheets("Sheet1") Set newWS = Workbooks.Add.Sheets("Sheet1") WS.Cells.Copy newWS.Cells.PasteSpecial xlValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub 

Answer 1

不知道如何设置过滤后的图纸，但是这种方法会将您的主图纸中的图纸精确地复制到当前如何过滤到新的工作簿中：

 Sub CopyInNewWB() Dim wbO As Workbook, wbN As Workbook On Error GoTo ErrHandler Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.DisplayAlerts = False Set wbO = ActiveWorkbook Set wbN = Workbooks.Add wbO.Sheets("Customers").Copy wbN.Sheets(1) wbO.Sheets("Orders").Copy wbN.Sheets(2) wbO.Sheets("Country").Copy wbN.Sheets(3) wbO.Sheets("ID").Copy wbN.Sheets(4) wbN.Sheets("Sheet1").Delete wbN.Sheets("Customers").Activate Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.DisplayAlerts = True ErrHandler: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.DisplayAlerts = True End Sub