VBA 读取文本文件

最新推荐文章于 2024-07-29 15:21:10 发布

LoveFlyingLad

最新推荐文章于 2024-07-29 15:21:10 发布

阅读量4.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： Microsoft Windows开发文章标签： VBA 脚本 excel

本文链接：https://blog.youkuaiyun.com/ecjtuAndy/article/details/51327249

本文介绍了如何使用VBA来读取文本文件，特别是MAP文件。通过创建Collection集合类来存储读取的数据，然后一次性将数据写入Excel表格，减少系统资源的占用。这个方法适用于需要高效处理大量文本数据的场景。

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

Excel在我们的日常办公中，用到非常多。因此，对于它的脚本VBA的使用，难免也比较频繁。在此总结、整理下之前写过的一段VBA读取MAP文件，统计ECU存储空间使用情况的部分代码。

该段程序，先使用Collection集合类装载读取的数据，最后统一写入将数据按照期望的格式，写入Excle表格中。这样一次性读取、写入，可以避免多次在读MAP文件和写Excel文件之间切换，增加系统资源开销。

    Open ThisWorkbook.Path & "\XXX.MAP" For Input As #1
      
    lineNum = 0
    FundStrtLineNum = 0
    bFoundStart = False
    '读取TXT文件
    Do While Not EOF(1)
        lineNum = lineNum + 1
        Line Input #1, txt
        If txt = "Memory map:" Then
            FundStrtLineNum = lineNum
            bFoundStart = True
        End If
        If bFoundStart Then
            If lineNum >= (FundStrtLineNum + 3) And lineNum <= (FundStrtLineNum + 35) Then
               txt