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