35、高级 VBA 文件操作技巧

高级 VBA 文件操作技巧

1. 文本文件操作基础

在 VBA 中， Print # 语句可用于向文件写入一系列值，每个值之间用制表符分隔。若语句以分号结尾，则不会在每个值后插入回车换行符。通常使用 Line Input # 或 Input 语句从文件中读取由 Print # 写入的数据。

2. 文本文件操作示例

• 导入文本文件数据 ：以下代码可读取文本文件，并将每行数据放入单个单元格（从活动单元格开始）。

Sub ImportData() 
    Open "c:\data\textfile.txt" For Input As #1
    r = 0
    Do Until EOF(1)
        Line Input #1, data 
        ActiveCell.Offset(r, 0) = data 
        r = r + 1
    Loop
    Close #1 
End Sub

不过，此过程在多数情况下实用性不强，因为每行数据只是简单地存入单个单元格，直接使用“文件”➜“打开”来打开文本文件会更便捷。

• 将区域导出到文本文件 ：下面的示例将所选工作表区域的数据写入 CSV 文本文件。虽然 Excel 本身可将数据导出为 CSV 文件，但它会导出整个工作表，而此宏可处理指定的单元