快捷導(dǎo)航

VBA實(shí)現(xiàn)全文件快速替換的示例代碼

更新時(shí)間：2023年08月01日 15:15:51 作者：taller_2000

要想一下子就替換掉很多個(gè)WORD文檔中的內(nèi)容,我們可以使用VBA的辦法,本文主要介紹了VBA實(shí)現(xiàn)全文件快速替換的示例代碼,具有一定的參考價(jià)值,感興趣的可以了解一下

大家對(duì)于VBA處理文本文件并不陌生，Open打開(kāi)文件，Line Input逐行讀取處理，然后再使用Print寫入到目標(biāo)文件，整個(gè)過(guò)程并不復(fù)雜，但是如果源文件數(shù)據(jù)行數(shù)較多，那么逐行讀取將花費(fèi)較多的時(shí)間。

Sub demo()
    FN1 = FreeFile
    Open OutFile For Output As FN1
    FN2 = FreeFile
    Open InFile For Input As FN2
    Do Until EOF(1)
        Line Input #1, textline
        '數(shù)據(jù)處理代碼
        Print FN2, textline
    Loop
    Close FN2
    Close FN1
End Sub

VBA內(nèi)置的打開(kāi)文本文件的方法，并無(wú)法實(shí)現(xiàn)讀取全部文件內(nèi)容，借助FileSystemObject可以實(shí)現(xiàn)一次性快速替換。

示例代碼如下

Sub ReplaceTxt()
    strSrcFile = "C:\temp\test.txt"
    strOldTxt = "c:\111\"
    strNewTxt = "d:\333\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objRead = fso.OpenTextFile(strSrcFile, 1)
    strIn = objRead.readall
    objRead.Close
    Set objWrite = fso.CreateTextFile(strSrcFile)
    objWrite.WriteLine Replace(strIn, strOldTxt, strNewTxt)
    objWrite.Close
    set fso = Nothing
End Sub

【代碼解析】