使用 2 行将 csv 中的文件导出到 TXT

问题描述

我需要帮助将 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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）