欢迎大家来到IT世界,在知识的湖畔探索吧!

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

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

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

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

Part 1：准备工作

1. FSO引入

Set fso = CreateObject("Scripting.FileSystemObject")

欢迎大家来到IT世界,在知识的湖畔探索吧!

Part 2：文件读取

• 文件读取（fso），读取前需要先打开文件，读取使用Readline

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

欢迎大家来到IT世界,在知识的湖畔探索吧!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。排版和细节略作修改，发于头条