1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 工作表到文本() '以output龅歧仲半打开方式 Dim i As Long, irow As Long, S As String Const NName As String="d:\数据.txt" '要保存文件的位置 Open NName For Output As #1 '以读写方式打开文件，每次写内容都会覆盖原先的内容 irow=[a1048576].End(xlUp).Row '工作表里最后一列 For i=1 To irow '开始循环写入数据 S=Cells(i, 1) & " | " & Cells(i, 2) & " | " & Cells(i, 3) & " | " & Cells(i, 4) & " | " & Cells(i, 5) Print #1, S '把数据写到文本文件里 Next i '写入下一个 Close #1 '关闭文件 MsgBox "工作表到文本文件转换完成！", 65, "提示"End Sub
5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序瞬间将工作表数据导出到文本文件，存于D盘根目录，名为“数据.TXT”
