Sub test()
Dim i, totR As Integer
On Error GoTo Line1
Application.ScreenUpdating = False
Application.DisplayAlerts = False
totR = Range("A65000").End(xlUp).Row
For i = 1 To totR
Rows(i).Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Range("A1") & ".txt", xlUnicodeText
ActiveWorkbook.Close
Next i
Line1: Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024