Application.FileSearch geht nicht unter 2007 | Herbers Excel-Forum

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox MsgBox


Betrifft: Application.FileSearch geht nicht unter 2007
von: ray
Geschrieben am: 10.11.2009 15:21:13

Hallo,
mein folgender Code funktioniert nach der Umstellung auf E2007 nicht mehr, da da FileSearch nicht mehr unterstützt wird.
Kann mir jemand beim umbauen helfen, damit es unter 07 auch geht?

Sub objektanzeigen2()
Application.ScreenUpdating = False
Worksheets("outputFiles").Select
Set Fs = Application.FileSearch
inp1xx = Worksheets("datenOutput").Range("e28").Value
With Fs
    .LookIn = "F:\MV\" & inp1xx
    .SearchSubFolders = True
    .FileName = "*.*" 'alle
        
    If .Execute > 0 Then
        MsgBox "Ich habe " & .FoundFiles.Count & " Dateien gefunden"
        
        Dim iMaxx
        iMaxx = Cells(Rows.Count, 1).End(xlUp).Row
        
    For I = 1 To .FoundFiles.Count
          
        Worksheets("outputFiles").Cells(I, 1).Value = .FoundFiles(I)
                      
        Next I
    
    Else
       MsgBox "Es wurden keine Dateien gefunden"
    End If
End With
'sortieren und in der ListBox auf frmFiles anzeigen lassen
    Sheets("outputFiles").Select
    Cells.Select
    Selection.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("a1").Select
   'sortieren ende
frmFiles.Show 
End 

Sub   
      
      
Viele Grüße aus Hamburg 
      
      Ray
       

Betrifft: AW: Application.FileSearch geht nicht unter 2007
von: Oberschlumpf
Geschrieben am: 10.11.2009 15:58:39
Hi Ray
Hier ein Link, der erst mal grundsätzlich das Wegfallen von FileSearch in XL 2007 "erleichtert".
https://www.herber.de/forum/archiv/1076to1080/t1079374.htm
Du musst es halt nur noch deinen Wünschen anpassen.
Hilfts?
Ciao
Thorsten

Betrifft: AW: Application.FileSearch geht nicht unter 2007
von: Martin S.
Geschrieben am: 10.11.2009 16:46:28
Hallo Ray,
das wurde schon 1000mal in diesem Forum erklärt. Bitte auch mal die Archivsuche benutzen!
Viele Grüße
Martin

Betrifft: AW: Application.FileSearch geht nicht unter 2007
von: ray
Geschrieben am: 11.11.2009 08:27:35
Hallo Thorsten,
ich komme mit dem Link nicht klar. Ich bin leider nicht schlau genug, um das umzusezten. Kannst Du helfen?
Ich möchte mir alle Dateien eines Orders inkl. Unterordner (nur die Liste) inkl. Pfade in das sheet outputFiles reinschreiben.
Vielleicht hat ja jemand Zeit für mich.
Grüße aus HH
Ray

Betrifft: AW: Application.FileSearch geht nicht unter 2007
von: Oberschlumpf
Geschrieben am: 11.11.2009 11:44:10
Hi Ray
mit Hilfe dieses Threads
https://www.herber.de/forum/archiv/232to236/t233495.htm
habe ich dir diese Datei erstellt:
https://www.herber.de/bbs/user/65769.xls
Schau dir die Bsp-Datei an und übertrage den Code in deine Originaldatei.
Hilfts?
Ciao
Thorsten

Betrifft: Respekt Thorsten. Echt genial. Gruß mT
von: ray
Geschrieben am: 12.11.2009 10:34:49
Schick mir mal Deine Email. Ich hab den Code in der Firma gebraucht und möchte Dir gern was bezahlen.
Gruß Ray

Betrifft: AW: Respekt Thorsten. Echt genial. Gruß mT
von: Oberschlumpf
Geschrieben am: 12.11.2009 10:57:27
Hi Ray
Danke fürs Angebot, aber die meiste Zeit verbrachte ich damit, den von mir genannten Link zu finden, mit dessen Hilfe ich dann meine Lösungsidee nur anpassen musste ;-)
Freut mich aber, dass es nun passt.
Ciao
Thorsten

Betrifft: AW: Respekt Thorsten. Echt genial. Gruß mT
von: ray
Geschrieben am: 12.11.2009 11:29:48
Na ja, falls Du es Dir überlegst, sag es mir. Ist ja bald Weihnachten...
Nochmals vielen herzlichen Dank, war eine große Hilfe.
Gruß Ray

Betrifft: AW: Respekt Thorsten. Echt genial. Gruß mT
von: Oberschlumpf
Geschrieben am: 12.11.2009 12:46:57
du machst mich neugierig :-)
Nenn du mir hier deine eMail-Adresse - ich schreib dir dann
Ciao
Thorsten

Betrifft: AW: Respekt Thorsten. Echt genial. Gruß mT
von: ray
Geschrieben am: 12.11.2009 13:51:15
r a y s t e i n ät g m x Punkt d e

Betrifft: AW: Respekt Thorsten. Echt genial. Gruß mT
von: ray
Geschrieben am: 12.11.2009 13:51:43
ich meine .net

Beiträge aus den Excel-Beispielen zum Thema "email senden > empfänger in zelle"