快捷導(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打開文件，Line Input逐行讀取處理，然后再使用Print寫入到目標(biāo)文件，整個(gè)過程并不復(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)置的打開文本文件的方法，并無法實(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

【代碼解析】

第2行代碼指定源文件。
第3行代碼指定查找的字符串。
第4行代碼指定新字符串。
第5行代碼創(chuàng)建FSO對(duì)象。
第6行代碼打開源文件。
第7行調(diào)用readall方法讀取全部文件內(nèi)容，保存在變量strIn中。
第8行代碼關(guān)閉源文件。
第9行代碼創(chuàng)建目標(biāo)文件。
第10行代碼調(diào)用Replace函數(shù)實(shí)現(xiàn)全文替換，并將結(jié)果寫入目標(biāo)文件中。
第11行代碼關(guān)閉目標(biāo)文件。
第12代碼實(shí)現(xiàn)對(duì)象變量占用的系統(tǒng)資源。

到此這篇關(guān)于VBA實(shí)現(xiàn)全文件快速替換的示例代碼的文章就介紹到這了,更多相關(guān)VBA文件替換內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章:

相關(guān)文章

Excel?VBA指定條件刪除整行整列的實(shí)現(xiàn)
本文主要介紹了Excel?VBA指定條件刪除整行整列的實(shí)現(xiàn)，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧
2023-01-01
excel vba 限制工作表的滾動(dòng)區(qū)域代碼
如果希望限制工作表中滾動(dòng)的區(qū)域，可以通過設(shè)置WorkSheet對(duì)象的ScrollArea屬性來實(shí)現(xiàn)。
2009-07-07
VBA中Excel宏的介紹及應(yīng)用
本文主要介紹了VBA中Excel宏的介紹及應(yīng)用，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧
2023-05-05
vba將excel按照某一列拆分成多個(gè)文件
本文主要介紹了vba將excel按照某一列拆分成多個(gè)文件，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧<BR>
2023-01-01
vba 獲取PPT幻燈片中的所有標(biāo)題的代碼
有時(shí)候需要獲取PPT幻燈片中的所有標(biāo)題，如果手工的復(fù)制肯定很慢，那么可以用vba批量獲取，提高工作效率。
2010-08-08
excel vba 高亮顯示當(dāng)前行代碼
用條件格式設(shè)置高亮顯示當(dāng)前行，難的是如何確定當(dāng)前行。用VBA就很簡(jiǎn)單，鼠標(biāo)右擊工作表標(biāo)簽，選擇“查看代碼”，將下面的代碼粘貼到VBE窗口中
2009-07-07
VBA處理數(shù)據(jù)與Python Pandas處理數(shù)據(jù)案例比較分析
這篇文章主要介紹了VBA處理數(shù)據(jù)與Python Pandas處理數(shù)據(jù)案例比較,本文通過實(shí)例代碼給大家介紹的非常詳細(xì)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2020-04-04
VBA解決Windows空當(dāng)接龍的617局
本文給大家分享的是使用VBA解決Windows空當(dāng)接龍的617局的方法和思路，有需要的小伙伴可以參考下。
2015-09-09
UserAccessList 集合的功能(VBA)
可用 ProtectedRange 對(duì)象的 Users 屬性返回一個(gè) UserAccessList 集合。
2009-07-07
VBA將excel數(shù)據(jù)表生成JSON文件
本文給大家匯總介紹了幾種使用VBA處理EXCEL并生成JSON文件的方法和思路，非常的實(shí)用，有需要的小伙伴可以參考下。
2015-09-09