VBA 读写文本文件

直接采用Open函数+Line input命令

  Private Sub txt_read()
           Dim txt As String
            Open "D:\dzh.txt" For Input As #1 '
            '对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，
            '并决定缓冲区所使用的访问方式。
            '打开文件作为数据输入用，文件号为#1
            Do While Not EOF(1)
                Line Input #1, txt  '从已打开的顺序文件中读出一行并将它分配给 String 变量
                'Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13))
                '或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上
                MsgBox txt
            Loop
            Close #1
    End Sub
    -----------------------------------------------------------------------------------------------
1、Open 语句 
打开方式有 
Input：以读取方式打开。
Output：以写入方式打开。
Append：以追加方式，即添加内容到文件末尾打开。
Binary：以二进制方式打开。
Random：以随机方式打开，如果未指定方式，则以 Random 方式打开文件。
 Open pathname For mode As [#]filenumber
 Open "c:\a.txt" For Output As #1
filenumber  是一个有效的文件号，范围在 1 到 511 之间。
如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。 
2、Close 语句 
语法：Close [filenumberlist]
     filenumberlist 参数为一个或多个文件号，若省略 filenumberlist，则将关闭 Open 语句打开的所有活动文件。 
说明：打开文件后，必须在使用完后关闭文件。
 
3、EOF 函数 
语法：EOF(filenumber) 
功能：返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。
Open "c:\a.txt"  For Input As #1 ‘以读入方式打开c:\a.txt
Do While Not EOF(1)  '未到达结尾
          Line Input #1, s1     '读入一行，放入s1变量中
        Loop
        Close #1