Question

Excel每行数据导出成txt.文件的VBA代码

你好，我想把excel报表中每一行的数据导出生成一个txt文件，例如：a1,a2,a3....生成txt1，txt2.......。希望大神给个vba代码，谢谢

Answer 1

Excel每行数据导出成txt.文件的VBA代码：

步骤一 设置宏先把加载宏安全性设为中或低
步骤二 插入模块alt+f11打开VBA编辑器
打开 菜单栏》插入》模块，把下面代码加进去

Sub DaoChu()
Dim I As Integer, J As Long, RW As Long
For I = 1 To ActiveSheet.UsedRange.Columns.Count
    Open ThisWorkbook.Path & "\" & Cells(1, I) & ".txt" For Output As 1
        For J = 2 To Cells(65536, I).End(3).Row
            Print #1, Cells(J, I).Value
        Next J
    Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

步骤三 保存以后关闭EXCEL步骤四 测试再重新打开excel，按ctrl+shift+P就完成导出了，文件在D盘根目录下
如果你想放在其他目录，可以吧Open “D:\” &中的D:\改成你要的目录，但是目录不能有中文字符

Answer 2

1. （一）导入文本文件数据到EXCEL中：

2. 运用，excel的获取外部数据，导入文本数据的功能

3. 可以用文件-打开-选择文本文件-打开，的方法，也可以导入文本文件

4. 还可以调用FSO(FileSystemObject)方法来导入文本文件
   

Answer 3

sub output()
ipath="你实际的文件位置"

irow=activesheet.usedrange.rows.count
for i=1 to irow
Open iPath & "\txt" & i & ".txt" For Append As #1
Print #1, cells(i,1)
Close #1
next
end sub