1、打开Excel表格，点击【开发工具】、【Visual Basic】调出VBE编辑器。
2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块代码框里边输入以下VBA程序代码，再按【F5】键运行程序。Sub ExStr坡纠课柩ing()Dim str0, str1, str2, She, myWay, i1, WaitTimeOn Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1myWay = "D:\ABCD1\Wenben.txt" '文本文档输出路径For i1 = 2 To 1000If 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 IfNextMsgBox "导出完成"End Sub
4、程序运行完成。
5、打开输出路径下面的文本文档。
6、文本文档输出完成。
