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

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

要用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

在excel中，将每行数据的输出为一个独立的文本文件txt可用如下代码可以实现： private sub commandbutton1_click() application.screenupdating = false '关闭屏幕刷新 dim nrow&, ncolumn& '定义区域变量 nrow = cells(rows.count, 1).end(3).row '确定最后行行号 for i = 1 to nrow '在行中进行循环 ncolumn = cells(i, columns.count).end(1).column '确定每行最后列列号 open thisworkbook.path & "\文件" & i & ".txt" for output as #1 '创建文本进行输入内容 print #1, join(application.transpose(application.transpose(range(cells(i, 1), cells(i, ncolumn)))), ",") '输入此行内容，以","分隔内容 close #1 '关闭文本 next '下次循环 application.screenupdating = true '开启屏幕刷新，与前对应 msgbox "导出完成" '完成友好提示 end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息