❶ VBA怎样读入txt
Sub读文本文件()
'以下在C盘根目录建立测试文件1.txt
Open"c:1.txt"ForAppendAs#1'存在打开不存在建立
Print#1,"测试写1行"
Print#1,"测试再写1行"
Close#1'关闭文件
'以下读以上建立的文件
DimtxtAsString'定义读取用数组
Open"c:1.txt"ForInputAs#1'打开文件
DoWhileNotEOF(1)'循环到文件尾
LineInput#1,txt'读1行到数组
MsgBoxtxt'显示数组中的内容
Loop
Close#1'关闭文件
EndSub