Private Sub Command1_Click()
Open "c:/1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
x = x + 1
If x = 3 Then Print temp
Loop
Close #1
Print x & "行"
End Sub
读取后使用split函数切割成数组,可以直接使用
Q:What do you prefer?,A:apple,B:orange,C:suggar,D:banana,R:A,Explain:An apple everyday keep the doctor away!
本文介绍了一个使用VBA进行文本文件读取的基本示例,通过打开指定路径的文本文件,并逐行读取内容,展示了如何利用VBA实现简单的文件操作功能。

2924

被折叠的 条评论
为什么被折叠?



