1、打开Excel表格，点击【开发工具】、【Visual Basic】调出VBE编辑器。
2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块代码框里边输入以下VBA程序代码，再按【F5】键运行程序。
Sub ExString()
Dim str0, str1, str2, She, myWay, i1, WaitTime
On Error Resume Next '忽略运行过程中可能出现的错误
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1
myWay = "D:\ABCD1\Wenben.txt" '文本文档输出路径
For i1 = 2 To 1000
If mysheet1.Cells(i1, 2) <> "" Then '如果单元格不是空白，则
str0 = " >>" & myWay & "&& echo "
str1 = Replace(mysheet1.Cells(i1, 2), Chr(10), str0) '将换行符替换
str2 = "cmd /c echo " & str1 & " >>" & myWay '命令字符拼接
She = Shell(str2, 0) '执行cmd命令程序
WaitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
Application.Wait WaitTime '间隔1秒后再执行
End If
Next
MsgBox "导出完成"
End Sub
4、程序运行完成。
5、打开输出路径下面的文本文档。
6、文本文档输出完成。
1、VBA程序知识要点总结：
1、Shell是执行一个可以执行的文件。
2、cmd /c表示唤起cmd命令，执行完成后关闭。
3、chr(10)是换行符。
4、replace主要是将单元格里面的换行符替换成cmd命令文本输出的路径及换行符&&。
5、在cmd命令里边，换行符用&&表示。
6、之所以要间隔1秒再执行一次VBA程序，如果唤起的cmd命令太快，输出的字符可能不按顺序，导致输出的文本文档将出现乱序。
