|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.05.2012 14:47:45 |
Lars Jago |
|
|
 Unterordner durchsuchen + Datei Import |
04.05.2012 17:29:34 |
Brumms |
|
|
|
04.05.2012 18:24:03 |
Lars Jago |
|
|
|
04.05.2012 19:29:00 |
Brumms |
|
|
|
04.05.2012 23:20:25 |
Lars Jago |
|
|
|
05.05.2012 02:09:05 |
Brumms |
|
|
|
06.05.2012 20:37:32 |
Till |
|
|
|
06.05.2012 20:45:32 |
Till |
|
|
|
07.05.2012 19:53:31 |
Lars Jago |
|
|
|
08.05.2012 03:48:32 |
Till |
|
|
|
09.05.2012 11:29:04 |
Lars Jago |
|
|
|
09.05.2012 12:08:53 |
Lars Jago |
|
|
|
09.05.2012 13:28:58 |
Lars Jago |
|
|
Von:
Brumms |
Datum:
04.05.2012 17:29:34 |
Views:
1330 |
Rating:
|
Antwort:
|
Thema:
Unterordner durchsuchen + Datei Import |
|
Vielleicht hilft Dir für erste die Suche in Unterordnern :
Sub SearchFile()
Dim iCounter As Integer
With Application.FileSearch
.Filename = Range("B1").Value ' In Zelle B1 die zu suchene Datei eintragen z.B. datenbanktest.xls
.LookIn = Range("B2").Value ' In Zelle B2 den Startordner der Suche eintragen z.B C:\Users\
.SearchSubFolders = True
.Execute
If .FoundFiles.Count = 0 Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Else
For iCounter = 1 To .FoundFiles.Count
MsgBox .FoundFiles(iCounter)
Next iCounter
End If
End With
End Sub
' Die Suche braucht zeit - also nicht ungeduldig werden
"Mein Problem ist nun, dass ich die folgenden Möglichkeiten (Mögl.1 und Mögl.2) gerne aufgrund der Komplexität ausschliessen möchte "
Was Du damit meinst erschließt sich mir nicht so wirklich ;-(
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.05.2012 14:47:45 |
Lars Jago |
|
|
Unterordner durchsuchen + Datei Import |
04.05.2012 17:29:34 |
Brumms |
|
|
|
04.05.2012 18:24:03 |
Lars Jago |
|
|
|
04.05.2012 19:29:00 |
Brumms |
|
|
|
04.05.2012 23:20:25 |
Lars Jago |
|
|
|
05.05.2012 02:09:05 |
Brumms |
|
|
|
06.05.2012 20:37:32 |
Till |
|
|
|
06.05.2012 20:45:32 |
Till |
|
|
|
07.05.2012 19:53:31 |
Lars Jago |
|
|
|
08.05.2012 03:48:32 |
Till |
|
|
|
09.05.2012 11:29:04 |
Lars Jago |
|
|
|
09.05.2012 12:08:53 |
Lars Jago |
|
|
|
09.05.2012 13:28:58 |
Lars Jago |
|
|