vba打开txt文件_VBA基础入门（34）读取txt文本文件

对于这样的txt文本文件，我们怎么一行一行去读取数据呢？

#00001 65536

*00001 65536

说说常用的两种方法，一种是把txt文本文档读到Excel中，然后获取最大行数，做个循环来遍历这个文件。一种是用Line Input这个方法遍历整个txt文本文件。

第一种方法就用Workbooks.open Filename:= (文件路径)就可以了，举个例子，如果你知道文件路径(path)和文件名(name)的话，就可以Workbooks.open Filename:=path & "\" & name。

注意：上面的path 和 name 均为自己定义的变量。

①Workbook.open Filename:=path & "\" & name

②Maxrow=Range("A10000").End(xlup).row

③Do While NowRow <= Maxrow

④    src=Range("A" & NowRow)

⑤    ......

⑥Loop

①把文件以Excel的形式打开，②获取文件的最大行，③-⑥做一个循环，其中NowRow为自己定义的变量，代表着当前的行数，记得在做循环之前对变量NowRow初始化，NowRow=1。

第二种方法也是我们今天要着重说明的Line Input方法。

①Open Inpath For Input As #1

②Do Until EOF(1)

③   Line Input #1,src

④    ......

⑤Loop

⑥Close #1

①把inpath这个文件打开作为#1，inpath是变量，同上面讲述的文件路径一样，就不在赘述，②-⑤做了一个do until循环，循环读取这个文件，直到把文件读完，其中③是核心，逐行来读取数据，把读取到的数据放到src中，src也是自己定义的变量，可以定义成其他名字，④我们就可以对src这个每一行的数据进行其他你想要的处理。⑥关闭文件。