51福利网
各种薅羊毛福利分享福利网

如何把excel表格中的内容批量转换成txt文档?

excel内容批量生成txt文档,excel批量每行生成一个txt文档

excel表格中一行导出为一个txt文档的方法

51福利网

第一步:ATL+F11

第二步:在左边当前工作簿双击当前工作表(一定要选表,否则老是不成功)

选表窗口如果消失,可以点击:视图——工程资源管理器 调出

第三步:在右边空白处(代码窗口)粘贴如下代码

Sub txt()

On Error Resume Next

MkDir "d:\导出TXT"

Dim i As Long, a As String, b As String

For i = 1 To Cells(65536, 1).End(xlUp).Row

    a = Cells(i, 1)

    b = Cells(i, 2)

    Open "d:\导出TXT\" & a & ".txt" For Output As #1

    Print #1, b

    Close #1

Next i

MsgBox "完成" & i & "条数据导出"

End Sub

第四步:F5运行,导出的TXT文件在:d:\导出TXT

赞(0) 打赏
51福利网薅羊毛福利具有时效性,如已失效,请留言
文章名称:《如何把excel表格中的内容批量转换成txt文档?》-51福利网
免责申明:本站所有活动信息均来自网络,如有失效,不实或侵权,请联系我们删除。谢谢

评论 抢沙发

51福利网最新最全薅羊毛,现金红包线报网

51联盟线报群赚钱·合作·帮助

觉得文章有用就打赏一下文章作者

非常感谢你的打赏,我们将继续给力更多优质内容,让我们一起创建更加美好的网络世界!

支付宝扫一扫打赏

如何把excel表格中的内容批量转换成txt文档?

excel内容批量生成txt文档,excel批量每行生成一个txt文档

excel表格中一行导出为一个txt文档的方法

51福利网

第一步:ATL+F11

第二步:在左边当前工作簿双击当前工作表(一定要选表,否则老是不成功)

选表窗口如果消失,可以点击:视图——工程资源管理器 调出

第三步:在右边空白处(代码窗口)粘贴如下代码

Sub txt()

On Error Resume Next

MkDir "d:\导出TXT"

Dim i As Long, a As String, b As String

For i = 1 To Cells(65536, 1).End(xlUp).Row

    a = Cells(i, 1)

    b = Cells(i, 2)

    Open "d:\导出TXT\" & a & ".txt" For Output As #1

    Print #1, b

    Close #1

Next i

MsgBox "完成" & i & "条数据导出"

End Sub

第四步:F5运行,导出的TXT文件在:d:\导出TXT

赞(0) 打赏
51福利网薅羊毛福利具有时效性,如已失效,请留言
文章名称:《如何把excel表格中的内容批量转换成txt文档?》-51福利网
免责申明:本站所有活动信息均来自网络,如有失效,不实或侵权,请联系我们删除。谢谢

评论 抢沙发