vba打开excel文件快速(功能模块-文件及文件夹-03-文件读取)

这个系列集锦一些常用的功能模块,在一些项目中会穿插应用,下面我们就来聊聊关于vba打开excel文件快速?接下来我们就一起去了解一下吧!

vba打开excel文件快速(功能模块-文件及文件夹-03-文件读取)

vba打开excel文件快速

  • 系统环境:Windows 10
  • Excel:2016版本

这个系列集锦一些常用的功能模块,在一些项目中会穿插应用

功能模块中又包括很多子模块,本文涉及的是:文件及文件夹

今天讲讲对文本文件内容的操作,读取文件


Part 1:准备工作
  1. FSO引入

Set fso = CreateObject("Scripting.FileSystemObject")


Part 2:文件读取
  • 文件读取(fso),读取前需要先打开文件,读取使用Readline
  1. 每执行一次Readline只读取一行,对应指针的位置也会下移一行
  2. 结合循环do while loop,一直读完整个文本,AtEndOfStream判断文本是否读取结束
  3. Line得到的是当前指针所处位置的行号
  4. 使用完以后记得关闭文本文件strNewFileOpen.Close
  5. 关于指针类似于告诉你干活干到哪里的一个标记
  6. 下面代码实现了对”西游记第一回.txt”文件的逐行读出

Sub test() Set fso = CreateObject("Scripting.FileSystemObject") CurrentDir = ThisWorkbook.Path & "\" WenJianName1 = "西游记第一回.txt" WenjianAddr1 = CurrentDir & WenJianName1 Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateTrue = -1 Set strNewFileOpen = fso.OpenTextFile(WenjianAddr1, ForReading, TristateTrue) Do While Not strNewFileOpen.AtEndOfStream HangHao = strNewFileOpen.Line HangContent = strNewFileOpen.Readline Loop strNewFileOpen.Close End Sub

  • 文件读取,Open 绝对路径 For Input As #文件标号
  1. Input结合Line Input #1读取文本内容
  2. Input可选Output或者Append,结合Print #2,向文本中写入
  3. 下面代码从文件1中顺序读出每一行,向文件2追加写入abc

Open WenjianAddr1 For Input As #1 Do While Not EOF(1) Line Input #1, HangContent Loop Close #1 Open WenjianAddr2 For Append As #2 Print #2, "abc" Close #2


以上,为本次的介绍内容,下回见。

本文首发于Excel高效办公之VBA。排版和细节略作修改,发于头条

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页