I have a sub that works in excel 2003 but not works in excel 2007 error: With Application.FileSearch

heliorq

New Member
Joined
Sep 4, 2015
Messages
2
Dear friends. I have a sub in a macro excel, that works weel in 2003, but not works in excel 2007 or 2010, apper to depure when get the line : With Application.FileSearch .
Thanks for any help.

the sub is :
Code:
Sub MostraPADTEC()


    Range("15:16").Select
    Selection.EntireRow.Hidden = False


    Range("29:34").Select
    Selection.EntireRow.Hidden = False
     
    Range("17:22,23:28").Select
    Selection.EntireRow.Hidden = True
    Range("B30").Select
    
Dim Classeurs() As String, I As Long, Aux1 As Integer
With Application.FileSearch
      .NewSearch
     .FileType = msoFileTypeExcelWorkbooks ' p/ excel
     '.FileType = msoFileTypeWordDocuments ' p/ word
     '.FileType = msoFileTypePowerPointPresentations 'p/powerpoint
     '.FileType = msoFileTypeOfficeFiles    ' p/ todos
      .Filename = "*.*" 'p/ txt
      .LookIn = "C:\CIGR-DWDM\NIVEIS ÓPTICOS\SAPO\Entrada\PADTEC"   ' localiza os arquivos contidos em C:\
      .SearchSubFolders = True
      .Execute
With .FoundFiles
      ReDim Classeurs(1 To .Count, 1 To 2)
      For I = 1 To .Count
            Aux1 = Len(.Item(I)) - InStr(1, StrReverse(.Item(I)), "\")
            Classeurs(I, 1) = Mid(.Item(I), 1, Aux1 + 1)
            Classeurs(I, 2) = Mid(.Item(I), Aux1 + 2)
      Next I
Application.ScreenUpdating = True
With Range("AC1000").Resize(.Count, 2)
      .Value = Classeurs
      .Sort [AC1000]
Range("A15").Select
End With
End With
End With


Range("B30:E30").Select
Selection.ClearContents
Range("B30").Select
     
End Sub
---------------------
next sub is :
 
Last edited by a moderator:

Forum statistics

Threads
1,085,568
Messages
5,384,490
Members
401,904
Latest member
markschneider89

Some videos you may like

This Week's Hot Topics

Top