如何在 Excel VBA 中从文本文件中读取数据？

在 Excel VBA 中，我们可以使用 Open 和 Input 函数来从文本文件中读取数据。

Open 函数

Open 函数用于打开一个文件，语法如下：

Open FilePath For Mode [Access] As #FileNumber

其中：

• FilePath 是文件路径，可以是相对路径或绝对路径；
• Mode 是打开文件的模式，可以是 Input、Output、Append 等；
• Access 是文件的共享模式，可以是 Shared、Lock Read、Lock Write 等；
• FileNumber 是文件号，用于标识打开的文件。

例如，下面的代码用于打开一个名为 data.txt 的文件：

Dim FileNum As Integer
FileNum = FreeFile
Open "C:\data.txt" For Input As #FileNum

Input 函数

Input 函数用于从文本文件中读取数据，语法如下：

Input [#FileNumber, ] Variable1 [, Variable2 ...]

其中：

• FileNumber 是文件号，用于标识要读取的文件；
• Variable1、Variable2 等是变量名，用于保存读取的数据。

例如，下面的代码用于从 data.txt 文件中读取一行数据：

Dim Line As String
Input #FileNum, Line

示例代码

Sub ReadTextFile()
    Dim FileNum As Integer
    Dim Line As String
    
    ' 打开文件
    FileNum = FreeFile
    Open "C:\data.txt" For Input As #FileNum
    
    ' 读取文件
    Do While Not EOF(FileNum)
        Input #FileNum, Line
        Debug.Print Line
    Loop
    
    ' 关闭文件
    Close #FileNum
End Sub

注：以上代码用于逐行读取文本文件的内容，并通过 Debug.Print 输出到调试窗口中。

总结

通过以上介绍，我们学习了如何在 Excel VBA 中从文本文件中读取数据。在实际开发中，我们可以根据需求灵活运用 Open 和 Input 函数，来读取文本文件中的数据。