vba中检索一个txt文件中的字符串如何实现？

2025-03-01 16:31:15

推荐回答（4个）

回答1：

#1
这个是一个有效的文件号，范围在1到511之间。一般的用法是给一个变量
fnum=FreeFile
open "c:\text.txt" for input as #fnum

EOF(1)
是End Of File的意思，表示到达文件的结尾处。一般使用Do...Loop循环加上EOF函数来循环获得文本文件的每一行数据

Chr(13)已经有解释了

回答2：

dim strall,str as string
open "c:\text.txt" for input as #1
do until eof(1)
line input #1,str
strall = strall & str & chr(13)
loop
close #1

strall 就是您想要的（在本文中检出所有的内容）

回答3：

input as #1
是说打打开的1号文件，这里就是指c:\text.txt

eof(1)
文件行数

chr(13)
表示回车

回答4：

提供思路
用QueryTables.Add 加载具体txt到excel
再遍历检索

vba中 检索一个txt文件中的字符串如何实现？

vba中检索一个txt文件中的字符串如何实现？