脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 脚本专栏 → VBA → VBA文件替换

VBA实现全文件快速替换的示例代码

 更新时间：2023年08月01日 15:15:51   作者：taller_2000  
要想一下子就替换掉很多个WORD文档中的内容,我们可以使用VBA的办法,本文主要介绍了VBA实现全文件快速替换的示例代码,具有一定的参考价值,感兴趣的可以了解一下

大家对于VBA处理文本文件并不陌生，Open打开文件，Line Input逐行读取处理，然后再使用Print写入到目标文件，整个过程并不复杂，但是如果源文件数据行数较多，那么逐行读取将花费较多的时间。

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
        '数据处理代码
        Print FN2, textline
    Loop
    Close FN2
    Close FN1
End Sub

VBA内置的打开文本文件的方法，并无法实现读取全部文件内容，借助FileSystemObject可以实现一次性快速替换。

示例代码如下

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行代码创建FSO对象。
  • 第6行代码打开源文件。
  • 第7行调用readall方法读取全部文件内容，保存在变量strIn中。
  • 第8行代码关闭源文件。
  • 第9行代码创建目标文件。
  • 第10行代码调用Replace函数实现全文替换，并将结果写入目标文件中。
  • 第11行代码关闭目标文件。
  • 第12代码实现对象变量占用的系统资源。

到此这篇关于VBA实现全文件快速替换的示例代码的文章就介绍到这了,更多相关VBA文件替换内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！

您可能感兴趣的文章:

相关文章

  • Excel VBA指定条件删除整行整列的实现

    Excel VBA指定条件删除整行整列的实现

    本文主要介绍了Excel VBA指定条件删除整行整列的实现，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
    2023-01-01
  • excel vba 限制工作表的滚动区域代码

    excel vba 限制工作表的滚动区域代码

    如果希望限制工作表中滚动的区域，可以通过设置WorkSheet对象的ScrollArea属性来实现。
    2009-07-07
  • VBA中Excel宏的介绍及应用

    VBA中Excel宏的介绍及应用

    本文主要介绍了VBA中Excel宏的介绍及应用，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
    2023-05-05
  • vba将excel按照某一列拆分成多个文件

    vba将excel按照某一列拆分成多个文件

    本文主要介绍了vba将excel按照某一列拆分成多个文件，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧<BR>
    2023-01-01
  • vba 获取PPT幻灯片中的所有标题的代码

    vba 获取PPT幻灯片中的所有标题的代码

    有时候需要获取PPT幻灯片中的所有标题，如果手工的复制肯定很慢，那么可以用vba批量获取，提高工作效率。
    2010-08-08
  • excel vba 高亮显示当前行代码

    excel vba 高亮显示当前行代码

    用条件格式设置高亮显示当前行，难的是如何确定当前行。用VBA就很简单，鼠标右击工作表标签，选择“查看代码”，将下面的代码粘贴到VBE窗口中
    2009-07-07
  • VBA处理数据与Python Pandas处理数据案例比较分析

    VBA处理数据与Python Pandas处理数据案例比较分析

    这篇文章主要介绍了VBA处理数据与Python Pandas处理数据案例比较,本文通过实例代码给大家介绍的非常详细，具有一定的参考借鉴价值，需要的朋友可以参考下
    2020-04-04
  • VBA解决Windows空当接龙的617局

    VBA解决Windows空当接龙的617局

    本文给大家分享的是使用VBA解决Windows空当接龙的617局的方法和思路，有需要的小伙伴可以参考下。
    2015-09-09
  • UserAccessList 集合的功能(VBA)

    UserAccessList 集合的功能(VBA)

    可用 ProtectedRange 对象的 Users 属性返回一个 UserAccessList 集合。
    2009-07-07
  • VBA将excel数据表生成JSON文件

    VBA将excel数据表生成JSON文件

    本文给大家汇总介绍了几种使用VBA处理EXCEL并生成JSON文件的方法和思路，非常的实用，有需要的小伙伴可以参考下。
    2015-09-09

最新评论