如何在 VBA 中使用 FileSystemObject？

发布于 2024-09-09 18:47:21 字数 149 浏览 2 评论 0原文

有什么我需要参考的吗？我如何使用它：

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

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

原文

Is there something that I need to reference? How do I use this:

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

I am getting an error because it does not recognize these objects.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

绿光 2024-09-16 18:47:21

在 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

Within Excel you need to set a reference to the VBScript run-time library.
The relevant file is usually located at \Windows\System32\scrrun.dll

To reference this file, load the
Visual Basic Editor (ALT+F11)
Select Tools > References from the drop-down menu
A listbox of available references will be displayed
Tick the check-box next to 'Microsoft Scripting Runtime'
The full name and path of the scrrun.dll file will be displayed below the listbox
Click on the OK button.

This can also be done directly in the code if access to the VBA object model has been enabled.

Access can be enabled by ticking the check-box Trust access to the VBA project object model found at File > Options > Trust Center > Trust Center Settings > Macro Settings

To add a reference:

Sub Add_Reference()

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

End Sub

To remove a reference:

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

回复收藏 0 原文

_失温 2024-09-16 18:47:21

在 excel 2013 中，对象创建字符串是：

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

而不是上面答案中的代码：

Dim fs,fname
Set fs=Server.CreateObject("Scripting.FileSystemObject")

In excel 2013 the object creation string is:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

instead of the code in the answer above:

Dim fs,fname
Set fs=Server.CreateObject("Scripting.FileSystemObject")

回复收藏 0 原文

遗弃Ｍ 2024-09-16 18:47:21

这些人提供了如何使用文件系统对象的优秀示例 http://www.w3schools.com/asp /asp_ref_filesystem.asp

<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%>

These guys have excellent examples of how to use the filesystem object http://www.w3schools.com/asp/asp_ref_filesystem.asp

<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%>

回复收藏 0 原文

穿越时光隧道 2024-09-16 18:47:21

添加引用后，我必须使用

Dim fso As New Scripting.FileSystemObject

After adding the reference, I had to use

Dim fso As New Scripting.FileSystemObject

回复收藏 0 原文

软糯酥胸 2024-09-16 18:47:21

如上所述导入脚本运行时后，您必须进行一些细微的修改才能使其在 Excel 2010（我的版本）中工作。在下面的代码中，我还添加了用于用户选择文件的代码。

Dim intChoice As Integer
Dim strPath As String

' Select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

' Show the selection window
intChoice = Application.FileDialog(msoFileDialogOpen).Show

' Get back the user option
If intChoice <> 0 Then
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Else
    Exit Sub
End If

Dim FSO As New Scripting.FileSystemObject
Dim fsoStream As Scripting.TextStream
Dim strLine As String

Set fsoStream = FSO.OpenTextFile(strPath)

Do Until fsoStream.AtEndOfStream = True
    strLine = fsoStream.ReadLine
    ' ... do your work ...
Loop

fsoStream.Close
Set FSO = Nothing

After importing the scripting runtime as described above you have to make some slighty modification to get it working in Excel 2010 (my version). Into the following code I've also add the code used to the user to pick a file.

Dim intChoice As Integer
Dim strPath As String

' Select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

' Show the selection window
intChoice = Application.FileDialog(msoFileDialogOpen).Show

' Get back the user option
If intChoice <> 0 Then
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Else
    Exit Sub
End If

Dim FSO As New Scripting.FileSystemObject
Dim fsoStream As Scripting.TextStream
Dim strLine As String

Set fsoStream = FSO.OpenTextFile(strPath)

Do Until fsoStream.AtEndOfStream = True
    strLine = fsoStream.ReadLine
    ' ... do your work ...
Loop

fsoStream.Close
Set FSO = Nothing

回复收藏 0 原文

~没有更多了~