如何解决如何将 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 举报,一经查实,本站将立刻删除。