Dim MyStr As String
Dim LStr As String
MyStr=""
Open "C:\123.txt" For Input As #1 '以读çæ¹å¼æå¼æ件
Do While Not EOF(1) ' 循ç¯è³æ件尾
Line Input #1, LStr '读å
¥ä¸è¡
MyStr = MyStr & LStr & vbCrLf
Loop
Close #1 ' å
³éæ件ã
Print MyStr
温馨提示:答案为网友推荐,仅供参考