如何在 VBA 中使用 FileSystemObject答案

【问题标题】：How to use the FileSystemObject in VBA如何在 VBA 中使用 FileSystemObject
【发布时间】：2015-10-12 03:38:37
【问题描述】：

所以我对 VB 很陌生，我只是想创建一些可以打开 .txt 文件然后读取第一行并输出它的东西。我已经把我的代码放在下面，但是当我运行它时，我得到了错误

对象变量或未设置块变量

因为线

objTXT=objFSO.OpenTextFile("C:\...",ForReading)

任何帮助，我觉得我缺少一些非常基本的东西。

Private Sub Text_Reader()

    Dim objFSO As FileSystemObject
    Dim objTXT As TextStream
    Dim str$

    Set objFSO = New FileSystemObject

    objTXT = objFSO.OpenTextFile("C:\...", ForReading)
    str = objTXT.ReadLine
    MsgBox (str)

End Sub

【问题讨论】：

您只是在objTXT = ... MSDN Reference to OpenTextFile 和bit more here on SO 前面缺少了一个Set 关键字

标签： vba filesystemobject

【解决方案1】：

您不需要FileSystemObject 来读取文本文件。你可以这样做（没有任何外部库）：

Public Sub readTextFile(filepath As String)
    Dim intFile As Integer
    Dim text As String
    '------------------------------------------------------------------------------------------------------

    intFile = VBA.FreeFile()

    Open filepath For Input As #intFile
    Line Input #intFile, text
    Close intFile

    Call MsgBox(text)

End Sub

【讨论】：

这是一个替代方案，但并不能真正回答所提出的问题。

【解决方案2】：

问题是不使用Set 打开。尝试如下：

Set objTXT = objFSO.OpenTextFile("C:\...", ForReading)

【讨论】：