【excel怎么读取txt】Excel-VBA功能模块-文档和文件夹-03-读取文档

系统环境：Windows 10Excel:2016版

这个系列汇集了几个常用的功能模块，可以在一些项目中应用。

功能模块包含许多与文件和文件夹相关的子模块

今天谈论对文本文件内容的操作、文件读取

第1部分：准备工作

FSO是Set FSO=CreateObject(' Scri；)。

第2部分：读取文件

读取文件(FSO)；读取前必须打开文件；每次使用启用读取的Readline时，只读取一行Readline；指针的位置也下降，与循环do while loop一起读取全文。AtEndOfStream确定文本是否读取末尾行。行使用当前指针所在位置的行号。使用后记得关闭文本文件。指针类似于告诉你工作的地方。以下代码是西游记第一部。读取“txt”文件中的每一行Sub test()。

set FSO=CreateObject(' Scri；)。

当前dir=t' \ '

WenJianName1='西游记第一集。" txt "

wenjian addr 1=current dir wenjian name 1

Const for reading=1，for writing=2，for appending=8，tristate true=-1

set strnew file open=(wenjian addr 1，for reading，tristate true)

Do While Not

HangHao=

HangContent=

循环(音乐)

End Sub

读取文件，Open绝对路径For Input As #文件标签与Input Line Input #1组合读取文本内容与Input可选Output或Append，Print #2组合，将以下代码写入文本从文件1中依次读取每行，并将ABC opend附加写入文件2

Do While Not EOF(1)

Line Input #1，HangContent

循环(音乐)

Close #1

Open WenjianAddr2 For Append As #2

Print #2，' abc '

Close #2

上面，为了这次介绍的内容，下次见。

这篇文章在微信公众号Excel高效办公室的VBA上发行。排版和细节稍加修改，刊登在头条上