数据在A列
Sub 生成文件()
'经测试己通过
j = 0
For i = 1 To 10000
If i Mod 100 = 1 Then
Close #1 '关闭文件句柄版
j = j + 1
Open "D:\" & j & ".txt" For Output As #1 '生成TXT文件
End If
If i Mod 100 = 0 Then
Print #1, Cells(i, 1).Text; '写入TXT的内容
Else
Print #1, Cells(i, 1).Text '写入TXT的内容
End If
Next
Close #1 '关闭文件句柄版
MsgBox "生成成功,文件在D盘" '提示
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024