Создание копии рабочего листа в цикле

Question

Я пытаюсь скопировать список листов, сохраняя каждый в качестве другого файла. Он продолжает давать мне error 1004, говоря, что Copy method of Worksheet class failed. Выбор линии Sheets(i).Copy. Мне нужно сделать копию листа, а не копировать и вставлять значение в другое место, поскольку мне нужно форматирование, которое нужно переносить.

Может кто-нибудь помочь исправить ошибку, поскольку я не могу найти то, что я сделал неправильно?

Sub CSR() 

Dim wb As Workbook, First As Integer, Last As Integer, i As Integer, j As Integer 
Dim rng As Range 
Dim wk As Worksheet 
Dim filepath As String 
Dim filename As String 

Set wb = ThisWorkbook 

filepath = "H:\Finance\Danny Bland\" 
wb.Activate 
First = Sheets("LIVE FLEET").Index 
Last = Sheets("Email Attachment").Index 

For i = First + 1 To Last - 1 


wb.Activate 
Set wk = wb.Sheets(i) 
wk.Activate 
filename = Sheets(i).Name 
Sheets(i).Activate 
Sheets(i).Copy 

Cells.Copy 
Range("A1").PasteSpecial xlPasteValues 

ActiveWorkbook.SaveAs filename:=filepath & filename & ".xlsx" 
ActiveWorkbook.Close 

Next i 

End Sub 

Answer 1

Попробуйте это:

Private Const filepath As String = "H:\Finance\Danny Bland\" 

Sub CSR() 

    Dim wb As Workbook 
    Dim wk As Worksheet 

    Set wb = ThisWorkbook 
    wb.Activate 

    For Each wk In Sheets ' for all sheets in the workbook 
     ' if sheet name isn't live fleet or email attachment 
     If wk.Name <> "LIVE FLEET" Or wk.Name <> "Email Attachment" Then 
      ExportSheet wk ' you want to export it 
     End If 
    Next 

End Sub 

' you may need to modify this so exactly suit your needs 
Private Sub ExportSheet(sh As Worksheet) 

    sh.Copy 
    sh.Cells.Copy 
    sh.Range("A1").PasteSpecial xlPasteValues 

    sh.SaveAs filename:=filepath & sh.Name & ".xlsx" 
    sh.Parent.Close 

End Sub