|
Excel : Mit Excel Dateinamen im Verzeichnis finden
MarkusK am 14.10.2010 um 20:37 Uhr (0)
Hallo Wolfgang,die frage ist eigentlich, woran soll man denn die Datei erkennen?Darf es die erst beste sein?Dann könntest du diese Funtkion verwenden.(Funktion in ein Modul, und dann unter den Benutzerdefinierten Funktionen in Excel)Public Function Erste_Datei(Pfad As String, Endung As String) As StringOn Error GoTo fehler:Dim i As Integeri = InStrRev(Endung, ".")Endung = "*." & Right(Endung, Len(Endung) - i)Pfad = Pfad & IIf(Right(Pfad, 1) = "", "", "")If Dir(Pfad, vbDirectory) "" Then With Application. ...
| | In das Form Excel wechseln |
|
Excel : Mit Excel Dateinamen im Verzeichnis finden
MarkusK am 15.10.2010 um 10:06 Uhr (0)
Hallo Karin,gut zu wissen, habe nur Zugriff auf Version 2003.Mit dir() geht es ja auch...------------------Gruss Markus
| | In das Form Excel wechseln |
|
Excel : Mit Excel Dateinamen im Verzeichnis finden
MarkusK am 15.10.2010 um 16:21 Uhr (0)
Hallo Wolfgang,ich versteh ehrlich nicht ganz was du genau möchtest, bzw. bin ich mir nicht sicher ob ich dich verstanden habe.Möchtest du ein Verzichnis ermitteln in dessen Namen am Ende ".pro" steht?Wenn dem so ist, versuch mal diese Funktion.Code:Public Function Erster_Ordner(Pfad As String, Endung As String) As StringOn Error GoTo fehler:Dim i As IntegerDim s As Stringi = InStrRev(Endung, ".")Endung = "*." & Right(Endung, Len(Endung) - i)Pfad = Pfad & IIf(Right(Pfad, 1) = "", "", "")s = Dir(Pfad & Endu ...
| | In das Form Excel wechseln |
|
Excel : Mit Excel Dateinamen im Verzeichnis finden
MarkusK am 17.10.2010 um 11:17 Uhr (0)
Pfad = Pfad & IIf(Right(Pfad, 1) = "", "", "")s = Dir(Pfad & Endung, vbDirectory)Do While s "" If GetAttr(Pfad & s) = vbDirectory Then Erster_Ordner = s Exit Do End If s = DirLoop fehler:End FunctionPublic Function Erste_Datei(Pfad As String, Endung As String) As StringOn Error GoTo fehler:Dim i As IntegerDim s As Stringi = InStrRev(Endung, ".")Endung = "*." & Right(Endung, Len(Endung) - i)Pfad = Pfad & IIf(Right(Pfad, 1) = "", "", "")s = Dir(Pfad & Endung)If s "" Then Erste_Datei = sfehler:End ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
