❶ 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