将Excel表格内容导出到文本文档

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命令太快，输出的字符可能不按顺序，导致输出的文本文档将出现乱序。