vba 公共方法集锦

'公共方法：查找文件,并打开文件，返回文件对象
'参数：path,文件所在路径
'文件名：模糊查询时的文件名
Public Function findAndOpenFiles(path As String, fileName1 As String) As Workbook
        Dim openWB As Workbook


        Set fso = CreateObject("Scripting.FileSystemObject")
        Set fld = fso.Getfolder(path)
        Set fsb = fld.subfolders
        
        
        
        For Each fd In fsb                  'ergodic folders
            fileName = Dir(fd & "\" & fileName1 & "*.xlsx")
            Do While fileName <> ""         'ergodic files
                Set openWB = Workbooks.Open(fd & "\" & fileName)
                Set findAndOpenFiles = openWB
                Exit For
            Loop
        Next fd
End Function
'公共方法：