如何用VBA完成数据列表转到指定txt文件中并可以追加写入

mai51

问题见下图：

yaofengda

...         

bajifeng

Sub ba()    'by bajifeng | QQ：249346223
pth = "D:\bajifeng\01.txt"  'txt文件位置
Set fso = CreateObject("Scripting.FileSystemObject")
fdn = fso.GetParentFolderName(pth)
If Not fso.FolderExists(fdn) Then
    fso.CreateFolder fdn
End If
Set otxt = fso.OpenTextFile(pth, ForWriting, True)
ar = Range([a1], ActiveSheet.UsedRange)
For j = 1 To UBound(ar, 2)
    For i = 2 To UBound(ar)
        If Len(ar(i, j)) Then
            otxt.WriteLine ar(i, j)
        End If
    Next
Next
otxt.Close
End Sub

bajifeng

>>>>>>>>>>>

mai51

yaofengda 发表于 2020-10-19 10:11
...

老师，可能是我没说清楚，我是说可以根据自己需求选择哪一列追加写入新数据，哪一列将新数据替换或覆盖旧数据。原EXCEL列表数据内容是是被清除的，导入新数据希望在原TXT文本中追加补充替换等操作。如下附图举例示意图效果：

mai51

bajifeng 发表于 2020-10-19 11:06
Sub ba()    'by bajifeng | QQ：249346223
pth = "D:\bajifeng\01.txt"  'txt文件位置
Set fso = Create ...

老师，疑问同5楼。