相关疑难解决方法(0)

如何解决用户定义类型未定义的错误?

以下是在文件夹中搜索“requirements”等文件夹的过程。当开始逐步通过时,我收到一条错误消息,因为FileSystemObject

用户定义类型未定义

我错过了什么?

Sub GetSubFolders()

Dim f As Folder, sf As Folder, myFile As File
Dim fso As New FileSystemObject                   ' <=========== ERROR HERE

Set f = fso.GetFolder("C:\Users\C58227\Desktop\Projects\CRDs")

For Each sf In f.SubFolders
    For Each mySubFolder In myFolder.SubFolders
        For Each myFile In mySubFolder.Files
            If myFile.Name Like "Requirements" Then
                MsgBox myFile.Name
                Exit For
            End If
        Next

        MsgBox "Else"
    Next
Next

End Sub
Run Code Online (Sandbox Code Playgroud)

excel vba fso

3
推荐指数
1
解决办法
7204
查看次数

标签 统计

excel ×1

fso ×1

vba ×1