Avatar billede snowball Novice
16. juni 2005 - 12:59 Der er 8 kommentarer og
1 løsning

VBA: Effektiv søge funktion

Hej.

Jeg står og mangler en funktion som ud fra visse kriterier kan returnere resultatet af en søgning.

Som input vil jeg gerne kunne angive følgende:

1) Sti til folder som der skal søges i.
2) Angive om der skal søges i kun den folder man angiver, eller også evt. foldere der ligger i den folder man angiver.
3) Hvilken filtype (f.eks. *.* *.xls *.txt osv.) man vil søge efter.

Som output vil det være bedst hvis resultatet bliver lagt i et array.

Jeg har fundet flere eksempler på nettet, men endnu ikke et eksempel som fuldt ud opfylder ovenstående punkter, og som ikke mindst er effektiv :)

Håber der er nogen der ligger inde med en brugbar funktion :)

På forhånd tak.
Avatar billede stefanfuglsang Juniormester
16. juni 2005 - 14:46 #1
Kan FileSearch ikke opfylde dine krav?
sakset fra hjælpen:

With Application.FileSearch
    .NewSearch
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .Filename = "Run"
    .MatchTextExactly = True
    .FileType = msoFileTypeAllFiles
End With
With Application.FileSearch
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With
Avatar billede snowball Novice
16. juni 2005 - 14:57 #2
Ikke helt, for så vidt jeg kan læse og prøve mig frem til, så kan jeg ikke angive hvilken som helst filtype til ".FileType", men kun en række konstanter!?
Avatar billede stefanfuglsang Juniormester
16. juni 2005 - 20:23 #3
Du kan sætte .Filename = "*.txt" eller "*.xls" ... sammen med .FileType = msoFileTypeAllFiles

Om det er den mest effektive metode ved jeg ikke, men det virker i hvert fald
Avatar billede snowball Novice
17. juni 2005 - 10:33 #4
Jeg får en "Type mismatch" hvis jeg prøver at sætte .FileType til f.eks. "*.dll". (Office 97 (ja, ved godt den er gammel ;)))

Desuden får ovenstående eksempel vist problemer med at opfylder punkt 2 på min liste!?
Avatar billede snowball Novice
17. juni 2005 - 10:35 #5
Hov, det var jo FileName og ikke FileType jeg skulle ændre, så det punkt virker fint, men så er der jo igen det med punkt 2.
Avatar billede snowball Novice
17. juni 2005 - 10:38 #6
DOH! Jeg er da vist totalt blind - godt det snart er weekend ;o)

Havde fuldstændig overset SearchSubFolders feltet.

Med et par ændringer, så ser det ud til at kunne det jeg ønsker.

Laver du et svar? ;)
Avatar billede stefanfuglsang Juniormester
17. juni 2005 - 11:28 #7
Okeydokey.
God weekend!
Avatar billede snowball Novice
17. juni 2005 - 15:17 #8
Tak, og i lige måde :)
Avatar billede snowball Novice
20. juni 2005 - 13:01 #9
http://www.eksperten.dk/spm/627202 - lidt flere problemer - måske du kan hjælpe? :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester