如何在VBA中使用FileSystemObject

所以我对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

---

读取文本文件不需要

FileSystemObject

。 您可以这样做（无需任何外部库）：

---

问题在于未使用

Set

打开。尝试如下：

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

---

这是另一种选择，但并不能真正回答问题。您只是在

objtext=…

前面缺少了一个

Set

关键字，还有一个

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