vba中如何处理这样的文本文件

来源：百度知道 编辑：UC知道 时间：2024/05/23 21:01:08
我有这样的一个文本文件。比方说文件名叫“测试.txt”，下面是文件里的三行数据，每行两个数据，之间用逗号或空格隔开，如何分别读取每一行，然后把每一行数据中的两个数据分别赋值给变量，文件内容如下：
12，36
56，85
66，25

fileName = "文件路径"
lngFileNum = FreeFile()
Open fileName For Input As #lngFileNum

Do Until EOF(lngFileNum)
Line Input #lngFileNum, strData
varData = Split(strData, ",") ',可以换空格
Debug.Print varData(0)
Debug.Print varData(1)
Loop
Close #lngFileNum

用随机文件就可以

可以办到，不过有点麻烦而已