VBS转易语言。，。，有没有大佬帮帮忙。。。

pjtwan

【按数量拆分】
Sub Macro1()
Dim i As Integer
For i = 1 To 5
    Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "拆分" & i
    Sheets("sheet1").Activate
    ActiveSheet.Range(Cells((i - 1) * 20 + 1, 1), Cells(i * 20, 7)).Copy
    Sheets("拆分" & i).Activate
    ActiveSheet.Paste
Next
End Sub
【单独保存出来每个工作表到当前目录】
Sub fencun()
Application.ScreenUpdating = False
For each sht in thisworkbook.sheets
   sht.copy
   With ActiveWorkbook
      .SaveAs Filename:=ThisWorkbook.Path & "\" & sht.name & ".xlsx"
      .Close True
     End With
Next
Application.ScreenUpdating = true
MsgBox "保存工作表完成！"

End Sub


有没有大佬帮忙把VBS改写成易语言。。。或者直接写个例子给我吧，上面的只能用VBS，，而且拆分的时候，怎么把每份的开头都带标题。。
功能如下：
一份5000条xx的Excel表格，拆分成10份500条xx的表格。

sishein

思路  1.载入表格, 读取全部xx 2.循环每10条重新输出一个EXCEL即可