**
NLP文本分类(一):Excel文档批量转txt
**
1:打开Excel文档,简单处理一下排序问题(我的第一列是文本,第二列是打好的标签),给他们简单的按标签排个序分分类。
点击数据一栏,选择好排序顺序。
2:任选一个表格栏按下ALT+F11键进入VBA模式。
Sub ExChange()
Dim I As Integer
For I = 2 To 70 '我有70条0标签数据,第一条是标题不选上,读者根据自己的情况改
Open "G:\按行导出\第" & I & "行.txt" For Output As 1 '自行修改到处地址。
Print #1, Range("A" & CStr(I)).Value
Close 1
Next I
MsgBox "数据导出完成!", vbOKOnly, "导出完成"
End Sub