excel - 如何在 VBA 中使用 FileSystemObject？

Question

有什么我需要引用的吗？我该如何使用它:

Dim fso As New FileSystemObject
Dim fld As Folder
Dim ts As TextStream

我收到错误，因为它无法识别这些对象。

Answer 1

在 Excel 中，您需要设置对 VBScript 运行时库的引用。 相关文件通常位于\Windows\System32\scrrun.dll

• 要引用此文件，请加载 Visual Basic 编辑器 (ALT+F11)
• 从下拉菜单中选择“工具”>“引用”
• 将显示可用引用的列表框
• 勾选“Microsoft Scripting Runtime”旁边的复选框
• scrrun.dll 文件的全名和路径将显示在列表框下方
• 点击确定按钮。

如果已启用对 VBA 对象模型的访问，也可以直接在代码中完成此操作。

可以通过勾选复选框信任对 VBA 项目对象模型的访问来启用访问，该复选框位于文件 > 选项 > 信任中心 > 信任中心设置 > 宏设置

添加引用:

Sub Add_Reference()

    Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\scrrun.dll"
'Add a reference

End Sub

要删除引用:

Sub Remove_Reference()

Dim oReference As Object

    Set oReference = Application.VBE.ActiveVBProject.References.Item("Scripting")

    Application.VBE.ActiveVBProject.References.Remove oReference
'Remove a reference

End Sub