Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige