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

发布网友发布时间：2024-10-02 16:46

共4个回答

热心网友时间：2024-12-01 23:01

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

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

Chr(13)已经有解释了

热心网友时间：2024-12-01 23:02

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 就是您想要的（在本文中检出所有的内容）

热心网友时间：2024-12-01 23:02

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

eof(1)
文件行数

chr(13)
表示回车

热心网友时间：2024-12-01 23:03

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

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

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