(十七)VBA常用基础知识：读写text文件

最新推荐文章于 2025-06-05 23:10:32 发布

Six dog

最新推荐文章于 2025-06-05 23:10:32 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： excel windows 开发语言

本文链接：https://blog.csdn.net/charles542307299/article/details/134021796

VBA 专栏收录该内容

20 篇文章

订阅专栏

文章详细介绍了使用VBA在Excel中进行文件读取（test.txt）、写入（test2.txt和test4.txt）以及数据覆盖的操作，包括打开文件、逐行读写和结果确认的过程。

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

读取文件
1.1.数据准备

1.2 代码准备

Sub test()
    Dim buf As String, n As Long
    Open "/Users/sixdog/Documents/VBA/test.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            n = n + 1
            Sheet1.Range("A" & n) = buf
        Loop
    Close #1
End Sub

1.3 执行结果确认
在这里插入图片描述
2.写入文件
2.1 准备空文件test2.txt

2.2 代码准备

Sub writeTest()

    Open "/Users/sixdog/Documents/VBA/test2.txt" For Append As #1
         For i = 1 To 10
            Print #1, "nihao" & i
         Next
    Close #1
 
End Sub

2.3 结果确认
在这里插入图片描述
3.数据覆盖写入
3.1 数据准备

3.2 代码准备

Sub writeTest()

    Open "/Users/sixdog/Documents/VBA/test4.txt" For Output As #1
         For i = 1 To 10
            Print #1, "你好" & i
         Next
    Close #1
 
End Sub

3.3 结果确认
在这里插入图片描述