将多个工作表复制到不同的工作簿

下面的代码应该将工作簿中名为PCReport的所有工作表（除了最后2个）复制到名为Insp＆date的新工作簿中。

它落在了线上

Workbooks(xWkb).Sheets(sheet.Name).Copy after:=Workbooks(tgtWkb).Sheets(x) 

错误是运行时错误424，需要对象。

x = 1，总数= 10，xWkb =“PCReport.xlsm”，tgtWkb =“Insp25112015.xls”

 Dim total As Integer Dim NewWkb As Workbook Dim xWs As Worksheet Dim xWkb As String Dim tgtWkb As String Dim i As Integer xWkb = "PCReport.xlsm" Set NewWkb = Workbooks.Add 'ActiveWorkbook.SaveAs "C:\Users\Carol\Desktop\Insp" & Format(Date, "ddmmyyyy") & ".xls" ActiveWorkbook.SaveAs "C:\Users\Carol.Hedges\Insp" & Format(Date, "ddmmyyyy") & ".xls" tgtWkb = ActiveWorkbook.Name total = Workbooks(xWkb).Worksheets.Count i = 1 For x = 1 To total - 2 Workbooks(xWkb).Sheets(sheet.Name).Copy after:=Workbooks(tgtWkb).Sheets(x) i = i + 1 Next 

Answer 1

这可能对你有所帮助，你不需要我像Paresh所build议的那样，在使用while循环时可能会很有用，

 Dim NewWkb As Workbook Dim xWkb As Workbook Dim x as Integer Set xWkb = Workbooks("PCReport.xlsm") Set NewWkb = Workbooks.Add NewWkb.SaveAs "C:\Users\Carol.Hedges\Insp" & Format(Date, "ddmmyyyy") & ".xls" For x = 1 To xWkb.Worksheets.Count - 2 xWkb.Sheets(x).Copy after:=NewWkb.worksheets(NewWkb.worksheets.count) Next x