将1个excel表分成多个excel表（每个1000条logging）

我有一个超过60Klogging的Excel表。 我想把这个Excel表分成多个表，每个表有1000个logging。

有没有办法在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表单？