用FSO处理文本文件

Sub Test()
    r = [j65536].End(3).Row
    c = Application.Match([F2].Value, [J1:P1], 0)
    ar = Range("J1").Resize(r, c)
    txtfile = ThisWorkbook.Path & "\新模版－" & [F3] & ".txt"
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(txtfile, 1)
    a = f.readall
    f.Close
   
    For i = 2 To r
        a = Replace(a, ar(i, 1), ar(i, c))
    Next
   
    Set d = New DataObject
    d.SetText a
    d.PutInClipboard
End Sub