VBA 读写文本文件

最新推荐文章于 2025-05-18 15:45:58 发布

若海隐湖

最新推荐文章于 2025-05-18 15:45:58 发布

阅读量1.2w

点赞数 3

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签：读写文本文件

本文链接：https://blog.youkuaiyun.com/weixin_42578747/article/details/90111536

本文介绍了如何使用VBA通过Open函数和Line Input命令来读取和写入文本文件，详细阐述了相关步骤和语法，帮助用户掌握VBA在文本文件处理上的基本技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

直接采用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 方式打开文件时，可以建立这