如何将 2 行导出为单独的纯文本

问题描述

我需要帮助将 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 (将#修改为@）