写了个批量替换txt的vba代码

var6

网上的程序又贵又不敢用，还是自己编译好用，我要免费发出来有要的吗
来自: Android客户端

NEW_SHIT

管他呢，发出来在说

var7

Dim arrFiles() As String
Dim countFiles%
Sub 替换文件内容()
    Dim strPath$
    Dim i%
    Dim fso As New FileSystemObject, fd As Folder
    '遍历文件夹
    strPath = "C:\Users\Administrator\Desktop\操作台\替换区\"
    ReDim arrFiles(0 To 999)
    countFiles = 0
    Set fd = fso.GetFolder(strPath)
    SearchFiles fd
    arrFiles = Filter(arrFiles, ".txt", True, vbTextCompare)
    '替换每一个文件
    For i = 0 To UBound(arrFiles)
        Set txt = fso.OpenTextFile(arrFiles(i), 1, False)
        stri = txt.ReadAll
        txt.Close
        Set txt = Nothing
        '批量替换
        For num = 1 To 65536
            'If Cells(num, 1) <> "" And IsNumeric(Cells(num, 1)) Then
            If Cells(num, 1) <> "" Then
                stri = replace(stri, Cells(num, 1), Cells(num, 2))
            Else
                Exit For
            End If
        Next num
        Set txt = fso.OpenTextFile(arrFiles(i), 2, True)
        txt.Write (stri)
        txt.Close
        Set txt = Nothing
        Set fs = Nothing
        'MsgBox arrFiles(i) & "文件替换停止在规则的第" & num & "行"
    Next i
    MsgBox "文件替换停止在规则的第" & num & "行"
''输出改写数据
'    MsgBox UBound(arrFiles) + 1
'    For i = 0 To UBound(arrFiles)
'        MsgBox arrFiles(i)
'    Next i
End Sub

Sub SearchFiles(ByVal fd As Folder)
     Dim fl As File
     Dim sfd As Folder

     For Each fl In fd.files
        If countFiles > UBound(arrFiles) Then ReDim Preserve arrFiles(0 To countFiles + 999)
        arrFiles(countFiles) = fl
        countFiles = countFiles + 1
    Next fl
End Sub

var7

var7 发表于 2021-10-30 15:11
Dim arrFiles() As String
Dim countFiles%
Sub 替换文件内容()

很简单，具体怎么用还用我说明吗？就是用来txt添加城堡用的