Question

在excel中，如何将每行数据的输出为一个独立的文本文件txt

Answer 1

要用VBA处理：

Sub 保存为独立文本1_Click()
Sheets("sheet1").Select '选定要保存的工作表
lastrow = Cells(Rows.Count, 1).End(3).Row
k = 1
For i = 1 To lastrow    '从第1行到最后一行,每为一个文件
    Rows(i).Copy '复制这行内容
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:=k & ".txt", FileFormat:=xlText, CreateBackup:=False '以txt类型存储搜索
    ActiveWindow.Close (True) '关闭文件
    k = k + 1
Next
MsgBox "保存完毕"
End Sub

Answer 2

使用VBA代码写入，比如在sheet1中的数据，将每行的数据建立一个TXT文件，并写入。下面是一个测试的代码

Sub 写入()
Dim rn, rg, r As Range
Set Rng = Range("a1", [a1].End(xlDown))
For Each rg In Rng
Open ThisWorkbook.Path & "\" & rg.Value & ".txt" For Output As #1
For Each r In Range(rg, rg.End(xlToRight))
Print #1, r.Value,
Next r
Close #1
Next rg
End Sub
这个代码复制到需要拆分的工作表的vbe窗口，然后执行，所建立的TXT文件是与本工作簿的路径一致。