Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichnis öffnen

Forumthread: Verzeichnis öffnen

Verzeichnis öffnen
29.10.2008 11:27:00
Jakob
Hallo,
ich möchte per VBA den Datei/öffnen-Dialog starten. Es sollen alle xls-Dateien im Verzeichnis "C:\Documents and Settings\User\" angezeigt werden.
Wir müßte der Code dafür aussehen?
Vielen Dank für Eure Hilfe.
Gruß,
Jakob
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnis öffnen
29.10.2008 11:35:33
{mskro}
Hallo Jacob,
vielleicht so?

Sub Einlesen()
Dim Dateiname
Dateiname = Application.GetOpenFilename
If Dateiname = False Then Exit Sub
End Sub


Gruß Manfred
Rückmeldung wäre nett

AW: Verzeichnis öffnen
29.10.2008 11:38:19
Jakob
Hallo Manfred,
wie kann ich noch das Verzeichnis und den Dateityp vorgeben?
Vielen Dank.
Gruß,
Jakob
Anzeige
AW: Verzeichnis öffnen
29.10.2008 11:40:33
{mskro}
Hallo Jacob,
dann machst du es so.

Sub Einlesen()
Dim Dateiname
Dateiname = Application.GetOpenFilename(FileFilter:="Exceldateien(*.xls),*.xls")
If Dateiname = False Then Exit Sub
End Sub


Gruß Manfred
Rückmeldung wäre nett

Anzeige
AW: Verzeichnis öffnen
29.10.2008 11:45:00
Jakob
Hallo Manfred,
wenn ich jetzt noch das Verzeichnis vorgeben kann ist es perfekt.
Dank Dir schon mal.
Gruß,
Jakob
AW: Verzeichnis öffnen
29.10.2008 11:58:19
{mskro}
Hallo Jacob,
schau mal in der VB Hilfe nach. Mit der Methode kannst du u.U. das aktuelle Laufwerk oder den aktuellen Ordner ändern.
Gruß Manfred
Rückmeldung wäre nett
Anzeige
AW: Verzeichnis öffnen
29.10.2008 12:58:00
Tino
Hallo,
so kannst Du den Ordner vorgeben.
Erst auf das Laufwerk ein locken und danach auf den Ordnerpfad.
So wie Du es auch in MS-Dos machen würdest.
Sub Einlesen()
    Dim Dateiname
    Dim strPfad As String
    
    strPfad = "H:\Bilder\"

    ChDrive Left$(strPfad, InStr(strPfad, "\")) 'Laufwerk = "H:\" 
    ChDir strPfad 'Pfad Ordner = "H:\Bilder\ 
    
    Dateiname = Application.GetOpenFilename(FileFilter:="Exceldateien(*.xls),*.xls")
    If Dateiname = False Then Exit Sub
End Sub


Gruß Tino

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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