如何在VBA中使用FileSystemObject？

有什么我需要参考？ 我如何使用这个：

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

我收到一个错误，因为它不能识别这些对象。

Answer 1

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

• 要引用此文件，加载Visual Basic编辑器（ ALT + F11 ）
• 从下拉菜单中select工具>参考
• 将显示可用参考的列表框
• 勾选“ Microsoft Scripting Runtime ”旁边的checkbox
• scrrun.dll文件的全名和path将显示在列表框下方
• 点击OKbutton。

Answer 2

这些家伙有如何使用文件系统对象的很好的例子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 %> 

Answer 3

在Excel 2013中，对象创buildstring是：

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

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

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