Question

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

如图1：想要把表格里面的数据，把A列相同的数据，批量保存为txt文档，并且用E列对应的数据命名。修改后为：如同图2的txt文档。A列有多少不同的数据，就生成多少txt文档，每个txt的文档都要根据A列相对应的E列的数据命名。谢谢





Answer 1

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肯定需要代码的，不用代码你只能复制粘贴了