VBA FileSystemObject 用户定义类型未定义

以下VB代码，产生编译错误：用户定义类型未定义

Dim fso As New FileSystemObject, fil As FileListBox

Set fil = fso.createtextfile("c:/sam.txt", True)



产生原因：使用FileSystemObject但未引用Microsoft Scripting Runtime



解决办法：

FileSystemObject

要先点"工程-->引用-->Microsoft Scripting Runtime"

在Excel VBA使用FileSystemObject的时候，

"Alt + F11"切换到Visual Basic编辑器界面，

在"工具-->引用"中确保勾选"Microsoft Scripting Runtime"



参考：

1 http://tieba.baidu.com/f?kz=229253166

2 http://baike.baidu.com/view/347454.htm