vba adodb读取文本文件_教程

write2TextFile里的strbuf = .readtext，表示是读取文件内容，此时游标在所有文本后面，写入内容的话就变成追加。建议换行后再写新内容。

如果注释掉strbuf = .readtext，就从文件头开始写。如果新文本长度大于原内容长度，相当于实现覆盖的效果。否则会出现新文本原文本混合的情况。如果原文件文本是12345新内容是666，写完就是66645。似乎adodb.stream没有删除文本的功能，所以函数里直接删除文件再创建了。

一种方法：

调用Excel自带的查询功能 QueryTables.Add 方法读取csv

通过录制宏查看用法

另一种方法：

通过调用Excel 应用打开一个csv文件并把数据复制到指定工作簿

Sub 读文本文件()

'以下在C盘根目录建立测试文件1.txt

Open "c:\1.txt" For Append As #1 '存在打开不存在建立

Print #1, "测试写1行"

Print #1, "测试再写1行"

Close #1 '关闭文件

'以下读以上建立的文件

Dim txt As String '定义读取用数组

Open "c:\1.txt" For Input As #1 '打开文件

Do While Not EOF(1) '循环到文件尾

Line Input #1, txt '读1行到数组

MsgBox txt '显示数组中的内容

Loop

Close #1 '关闭文件

End Sub

欢迎分享，转载请注明来源：内存溢出

vba adodb读取文本文件