'主分割文件的名称与路径自己改

Option Explicit
Dim destpath$, fname$, aa$, Fno&, lineno&
Const linepertxt = 50 '每个.txt要几行自己改
Private Sub Form_Load()
    destpath = Environ("USERPROFILE") & "\"
End Sub

Private Sub Command1_Click()
    Open "c:\axleop.txt" For Input As #1 '要分割的主文件
    Fno = 1: lineno = 0 'Fno可以自己改,以免重复(手动或另加代码改)
    fname = destpath & Format(Str(Fno), "00") & ".txt"
    Open fname For Output As #2
    While Not EOF(1)
       Line Input #1, aa
       Print #2, aa
       lineno = lineno + 1
       If lineno >= linepertxt Then
          Fno = Fno + 1: lineno = 0
          Close #2
          fname = destpath & Format(Str(Fno), "00") & ".txt"
          Open fname For Output As #2
       End If
    Wend
    If lineno Mod linepertxt <> 0 Then Close #2
    Close #1
    MsgBox "OK"
End Sub