将1个Excel工作表拆分为多个Excel工作表（每个1000个记录）

Question

我有一张超过6万条记录的excel表。我想将这张excel表分成多张，每张都有1000条记录。

有没有办法在VBScript中实现或直接在excel中实现？

现在我有以下代码，它需要一系列单元格并保存为另一个文件。

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\user\Desktop\User\users.xlsx")

objWorkbook.Worksheets("users").Range("A1:A1000").Copy
objWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial
objWorkbook.Worksheets("Sheet1").Activate
objWorkbook.SaveAs "C:\Users\user\Desktop\User\Sample57.xlsx", 51

在上面的代码中，我们可以进行修改，使其遍历所有行并自动化整个Excel工作表吗？