怎样使用VBA导出工作表到txt文件？

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”