NLP文本分类(一)Excel文档批量转txt

**

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