Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Files in 2007 einlesen gibt Fehlermeldung

Files in 2007 einlesen gibt Fehlermeldung
05.12.2008 15:32:00
PeterE
Hallo Zusammen
Dieser Code (aus Herber kopiert) funktioniert mit Excel 2003 bestens, doch bei Excel 2007 kommt der
Laufzeitfehler 445, Objekt unterstützt diese Aktion nicht

Sub SU_Innendienst_Obj_Meldungen()
Const strPfad As String = "C:\temp"
Dim i As Integer
Dim fs As FileSearch
ChDrive ("C:")
ChDir strPfad
Set fs = Application.FileSearch ' in 2003 ok, in 2007 Laufzeitfehler 445, Objekt unterstützt  _
diese Aktion nicht
With fs
.FileType = msoFileTypeExcelWorkbooks
.LookIn = CurDir
.Execute
For i = 1 To .FoundFiles.Count
MsgBox Dir(.FoundFiles(i))
Next i
End With
End Sub


Bin dankbar für jede Unterstützung - brauche diese Funktion dringend
Danke
PeterE

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Files in 2007 einlesen gibt Fehlermeldung
05.12.2008 15:38:00
Jürgen
Hallo Peter,
das FileSearch-Objekt wird Office 2007 nicht mehr unterstützt. Alternative z.B.

Sub SU_Innendienst_Obj_Meldungen()
Const strPfad As String = "C:\temp"
Dim Dateiname as String
Dateiname = Dir(strPfad & "\*.xl*)
Do until Dateiname = ""
MsgBox Dateiname
Dateiname = Dir
End Sub


Herzlichen Gruß
Jürgen

AW: Files in 2007 einlesen gibt Fehlermeldung
05.12.2008 19:46:58
PeterE
Hallo Jürgen
Danke für den Tipp - es hatte noch 2 kleine Fehler (Schlusszeichen nach .xl*" und loop am Ende der Schlaufe, aber jetzt läuft es einwandfrei - vielen Dank

Sub SU_Innendienst_Obj_Meldungen()
Const strPfad As String = "E:\Daten-1-Peter\_PC\_Makros\Herber" '"C:\temp"
Dim Dateiname As String, n As Integer
Dateiname = Dir(strPfad & "\*.xl*")
Do Until Dateiname = ""
n = n + 1
MsgBox n & ".) " & Dateiname
Dateiname = Dir
Loop
End Sub


mfg
PeterE

Anzeige
AW: Files in 2007 einlesen gibt Fehlermeldung
05.12.2008 15:38:59
Hajo_Zi
Hallo Peter,
in 2007 wird Application.FileSearch nicht unterstützt. Schaue auch hier http://hajo-excel.de/2007_hinweise.htm

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige