Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1300to1304
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Application.FileSearch

Application.FileSearch
14.03.2013 12:03:42
Torsten
Hallo beisammen,
folgender Code läuft nicht mehr unter Excel 2010:
myArr = Array("NL*", "FAD*", "IOE*", "IOS*")
For i = 0 To UBound(myArr)
With Application.FileSearch
.NewSearch
.LookIn = "V:\Controlling Budget\Budget 2013\Turnover_Upload BW\BW UpLoad"
.SearchSubFolders = False
.Filename = myArr(i)
mit der Fehlermeldung "Objekt unterstützt diee Aktion nicht" (Excel springt in die Zeile "With Application.FileSearch")
Wie muß der Code denn nun lauten?
Vielen Dank für Eure Unterstützung.
Gruß
Torsten

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.FileSearch
14.03.2013 12:13:46
Daniel
Hi
Application.fileSearch gibt es seit Excel 2007 nicht mehr.
Beiträge dazu gibt es genügend im Archiv.
in deinem Fall vieleicht so:
for i = 0 to Ubound(myArr)
Datei = Dir("V:\Controlling Budget\Budget 2013\Turnover_Upload BW\BW UpLoad\" & myArr(i))
Do While datei  ""
Ergebnis = Ergebnis & ";" & Datei
Dir
Loop
Next

die gefundenen Dateinamen stehen jetzt im String Ergebnis mit Semikolon getrennt.
Gruß Daniel

AW: Application.FileSearch
14.03.2013 13:34:49
Torsten
Hallo Daniel,
vielen Dank für Deine Rückmeldung.
In Deinem Code wird aber leider immer nur die erste Datei aus dem Array eingelesen.
Die anderen Dateien, die in dem Pfad liegen, werden nicht eingelesen. Könntest Du Dir das nochmal anschauen?
Gruß
Torsten

Anzeige
AW: Application.FileSearch
14.03.2013 15:40:59
Torsten
Hallo Hajo,
vielen Dank für Deine Rückmeldung und den Link mit den beispielen.
Gruß
Torsten

AW: Application.FileSearch
14.03.2013 14:44:19
Daniel
Hi
oh sorry
schreib mal vor dem Loop
Datei = Dir statt nur Dir
dann sollte es funktionieren.
Gruß Daniel

AW: Application.FileSearch
14.03.2013 15:39:51
Torsten
Hallo Daniel,
wir haben den Code zwar jetzt hinbekommen:
========================================================================
Const strPath As String = _
"V:\Controlling Budget\Budget 2013\Turnover_Upload BW\BW UpLoad\"
.....
Dim str As String
myArr = Array("NL*", "FAD*", "IOE*")
'Achtung: Greift trotz der Anweisung eine IOS*-Datei ("IOS_525033.xlsx")
For i = 0 To UBound(myArr)
str = Dir(strPath & myArr(i))
Do Until str = ""
Workbooks.Open Filename:=strPath & str
===========================================================================
was uns jetzt aber auffällt - und dafür haben wir keine Erklärung - trotz der Anweisungen im Array öffnet Excel eine Datei, deren Namen mit IOS* beginnt. In diesem Ordner gibt es mehrere Dateien, die mit IOS' beginnen, aber warum greift sich Excel immer wieder diese eine Datei, obwohl IOS* doch im Array gar nicht genannt wird?
Hast Du eine Idee woran das liegen könnte?
Vielen Dank für Deine Unterstützung.
Gruß
Torsten

Anzeige
AW: API-Funktion nutzen...
14.03.2013 13:32:37
JoWE
Hallo Torsten,
schau mal in diesen Link: http://www.vbarchiv.net/api/list_F.html
und hier die API-Funktionen FindFirstFile und FindNextFile
Gruß
Jochen

AW: API-Funktion nutzen...
14.03.2013 15:43:03
Torsten
Hallo Jochen,
vielen Dank für Deine Rückmeldung. Aber ich befürchte, diese Geschichte mit den APIs überfordert mich doch ein wenig..... :-(
Ich aber mit den Hinweisen der anderen bin ich jetzt klar gekommen.
Gruß
Torsten

34 Forumthreads zu ähnlichen Themen

Application.FileSearch weg?
Frank

Hallo Leute,
ich habe ein kleines Problem mit unten stehender Programmierung. Unter Excel 2003 lief das einwandfrei.
Nun habe ich Excel 2007 und jetzt hängt sich die Geschichte bei
"With Application.FileSearch" auf.
Offenbar gibt es dieses Filesearch nicht mehr.
Ich würde ab...
21.09.2008 16:21:54
Thread-ID: 1011315
5 Beiträge
Anzeige
Application.FileSearch geht nicht unter 2007
ray

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...
10.11.2009 15:58:39
Thread-ID: 1115913
11 Beiträge
Application.FileSearch in Office 2007
Lars

Hallo zusammen,
haben soeben office 2007 installiert und nun läuft folgender code nicht mehr:
Dim fs As FileSearch
Dim iCounter As Integer
Dim sPath As String
sPath = "C:\Dokumente und Einstellungen\......." & UserForm3.ComboBox1 'ThisWorkbook.path
Set fs = Applicati...
23.12.2009 18:55:59
Thread-ID: 1125798
6 Beiträge
Anzeige
VBA - Application.FileSearch
markoju

Hallo an alle,
Der Benutzer Tino war so nett und hat mir vor einiger Zeit in unten angeführter Excel-Datei ein Script geschrieben, womit in einem Ordner alle Text-Dateien gelesen, automatisch bei Mausklick ins excel eingefügt werden und anschließend ein Diagramm erstellt wird.
https://w...
14.02.2011 13:42:27
Thread-ID: 1200680
4 Beiträge
Application.Filesearch - Ersatz
Rupert

Hallo liebe Forumgemeinde,
Ich hab folgende codes am laufen, diese habe ich mir Hilfe von diesem Forum erstellt, leider laufen die noch mit application.filesearch. Ich habe schon die diversen Ansätze gesehen von Hajo & Nepomuk, nur leider reicht mein VBA Wissen nicht soweit als das ich...
21.02.2011 10:08:23
Thread-ID: 1202000
12 Beiträge
Application.FileSearch
Reinhardt

Hallo,
ich habe einen für mich "kleinen Schatz" im Archiv gefunden, der aber leider bei mir eine Fehlermeldung erzeugt:
Objekt unterstützt diese Action nicht
With Application.FileSearch
Was kann ich machen?
Gruß Reinhardt.
Problem: In Spalte A sollen die Dateien aus dem...
30.04.2011 17:56:46
Thread-ID: 1212468
3 Beiträge
Hilfe: Application.Filesearch umschreiben
Pierre

Hallo nochmal!
Hatte eben schon mal einen Beitrag geschrieben, aber ich komme einfach nicht weiter. Das Makro aus 2003 funktioniert nicht im 2007, weil 2007 die "Application.FileSearch" nicht unterstützt.
Ich habe mir das angeschaut und schaffe es ehrlich gesagt nicht das Makro umzuschr...
11.07.2011 16:23:04
Thread-ID: 1221717
3 Beiträge
Application.filesearch
lb.unterfranke@googlemail.com

Guten Morgen zusammen,
in unserer Firma ist ein Umstieg von Office 2003 auf Office 2010 vorgesehen. Nun habe ich gehört, das einige Funktionen aus VBA 2003 in 2010 nicht mehr vorhanden sind, u.a. auch Application.FileSearch. Da bei uns einige Makros die Funktion erhalten, müssten diese umge...
14.10.2011 11:48:06
Thread-ID: 1233782
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
10
5
4
3
11
2
2
5
1
1
3
3
4
5
6
4
2
2
3
4
6
9
2