Question

使用VBA将excel中每一行的内容映射到txt文件中，如图

Answer 1

代码和图例如下，运行代码后就会生成a.txt, b.txt和c.txt三个文件：
Sub Excel和txt映射()
Dim i&, j&, info$
For i = 1 To 3 '可在此处修改行数，这里假定有3行
    info = ""
    For j = 1 To 3 '可在此处修改列数，这里假定有3列
        info = info & "," & Cells(i, j)
    Next j
    info = Right(info, Len(info) - 1)
    Open ThisWorkbook.Path & "\" & Cells(i, 1) & ".txt" For Output As #1 '将每行第1个单元格信息作为txt文件名
        Print #1, info
    Close #1
Next i
End Sub

Answer 2

直接把各行的内容读出来，然后写到文件里就可以。

追问

但是文本里面有固定的格式，求VBA语句

追答

写文本文件，内容都是你定的，需要写什么和需要什么样的格式，直接设置好，写在文本文件里就可以了。

追问

用print语句吗？我试过了不行

追答

不是，是写文本文件，具体还要再查一下。

追问

不会，我也是现学的