vba将一页拆分成多页，并将拆分的项目另存到 WriteFile文件夹里

Sub 另存为工作簿()
Dim sh As Worksheet
For Each sh In Worksheets
If (sh.Name <> "Sheet1") Then

sh.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/WriteFile/" & sh.Name & ".xls"
ActiveWorkbook.Worksheets(sh.Name).UsedRange.Value = ActiveWorkbook.Worksheets(sh.Name).UsedRange.Value
ActiveWorkbook.Save
ActiveWorkbook.Close

End If
Next
End Sub

Sub abc()
ii = Sheets(1).[a1].CurrentRegion.Rows.Count - 1
n = Application.WorksheetFunction.RoundUp(ii / 2000, 0)
For i = 1 To n

Sheets.Add After:=Sheets(i)
Rows(1).Copy Sheets(i + 1).Rows(1)

If (i * 2000 > ii) Then
Dim endindex As Integer
endindex = (ii - ((n - 1) * 2000))

Rows((2000 * (i - 1) + 1 + 1) & ":" & (ii + 1)).EntireRow.Copy Sheets(i + 1).Rows(2 & ":" & (endindex + 1))

Else
Rows((2000 * (i - 1) + 1 + 1) & ":" & (2000 * i + 1)).EntireRow.Copy Sheets(i + 1).Rows(2 & ":" & (2000 + 1))

End If



Next i
Call 另存为工作簿

End Sub