excel - 将 csv 中的文件导出到 2 行的 TXT

Question

我需要帮助将 csv 文件导出为 txt，它显示 2 列“A”和“B”，我需要为每个 A1 和 B1 创建 1 个 txt 文件，依此类推，但条件是 A1高于B1，即；在 A1 中我有“标题”，在 B1 中“我有内容”我看到有宏，但我无法做到。

以另一个用户的代码为例，但是它创建的文档名称有字符错误，并且没有在内容中添加标题“A1”：

Sub DataDump()

    Dim X
    Dim lngRow As Long
    Dim StrFolder As String

    StrFolder = "C:\temp"
    X = Range([a1], Cells(Rows.Count, 2).End(xlUp))
    For lngRow = 1 To UBound(X)
    Open StrFolder & "\" & X(lngRow, 1) & ".txt" For Output As #1
    Write #1, X(lngRow, 2)
    Close #1
    Next
End Sub