如何把excel工作簿的数据按照对应的要求批量转为txt文档 50

如图1:想要把表格里面的数据,把A列相同的数据,批量保存为txt文档,并且用E列对应的数据命名。修改后为:如同图2的txt文档。A列有多少不同的数据,就生成多少txt文档... 如图1:想要把表格里面的数据,把A列相同的数据,批量保存为txt文档,并且用E列对应的数据命名。修改后为:如同图2的txt文档。A列有多少不同的数据,就生成多少txt文档,每个txt的文档都要根据A列相对应的E列的数据命名。谢谢 展开
 我来答
knifefox
2022-08-08 · TA获得超过1.6万个赞
知道大有可为答主
回答量:1329
采纳率:75%
帮助的人:685万
展开全部


Sub test()

    Dim fso As Object

    Dim myTxt As Object

    Dim MyFName As String

    Dim i As Long, j As Long

    Set fso = CreateObject("Scripting.FileSystemObject")

    For i = 2 To [A1].End(xlDown).Row

        If Cells(i, 1) <> Cells(i - 1, 1) Then

            MyFName = ThisWorkbook.Path & "/" & Cells(i, 5) & ".txt"

            Set myTxt = fso.CreateTextFile(Filename:=MyFName, OverWrite:=True)

            For j = 1 To 5

                myTxt.write Cells(1, j) & vbTab

            Next

            myTxt.write vbCrLf

        End If

        For j = 1 To 5

            myTxt.write Cells(i, j) & vbTab

        Next

        myTxt.write vbCrLf

    Next

    myTxt.Close

    Set myTxt = Nothing

    Set fso = Nothing

End Sub

追问
有没有不用代码的,或是简单一点的呀,因为表格的数据 比列举的要多很多
追答
批量转为txt肯定需要代码的,不用代码你只能复制粘贴了
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式