Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 10:01:30
Benannte Bereiche durchsuchen
23.10.2025 09:36:17
Manuelle Formelberechnung vba
23.10.2025 09:29:52
Markiertes Shape "Ellipse" ändern, ohne Namenangabe
23.10.2025 06:53:43
Zeilen löschen oder ausblenden wenn Zeile darüber höher wird
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei Auswählen Dialog (Application.FileDialog)

Forumthread: Datei Auswählen Dialog (Application.FileDialog)

Datei Auswählen Dialog (Application.FileDialog)
03.12.2007 17:45:00
Thomas
Hallo,
ich möchte aus ein paar Tabellendaten eine kleine XML-Datei schreiben. Derzeit wähle ich mit dem msoFileDialogFolderPicker ein Verzeichnis aus. Der Dateiname heißt derzeit immer gleich. Jetzt würd ich den Dateinamen auch gern variabal auswählen können, d.h. in einer Art "Speichern Unter"-Dialog auswählen.
Der msoFileDialogFilePicker wählt aber m.W. nur existierende Dateien aus und msoFileDialogOpen bzw msoFileDialogSaveAs funktionieren auch irgendwie nicht, da XL eine XML-Datei über die entsprechende Methoden schreiben will. ?
Hier mein derzeitiges Makro:
' Dummys festlegen
strPfad = "c:"
strFileNameKurz = "Umsatz-" & strJahr & "-" & strQuartal & "-" & strAbt ' Namensvorschlag wird aus Tabellendaten zusammengebastelt
strFileNameLang = strPfad & "\" & strFileNameKurz & ".xml"
' Ordner wählen
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = strPfad
.InitialView = msoFileDialogViewDetails
.Title = "Wo soll die xml-Datei gespeichert werden? Bitte einen Ordner wählen."
If .Show = -1 Then
strPfad = .SelectedItems(1)
Else
Exit Sub
End If
End With
If strPfad = "" Then Exit Sub
strFileNameLang = strPfad & "\" & strFileNameKurz & ".xml"
' Ausgabe der xml-Datei
Open strFileNameLang For Output As #1
...
Weiß jemand weiter? Hab schon 1.000 Sachen ausprobiert und blick nicht mehr durch :-(((
Danke und Gruß
Thomas

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei Auswählen Dialog (Application.FileDialog
03.12.2007 19:28:00
Rene
Hallo Thomas,
wenn du den Ordner schon ausgewählt hast, dann müsstest du nur noch über einen Inputbox den Dateinamen abfragen, dann den ausgewählten Order & Inputbox und schon kannst du es an einem beliebigen unter belibigem Namen speihern.
Gruß
René

AW: Datei Auswählen Dialog (Application.FileDialog
03.12.2007 20:06:05
Thomas
Hallo Rene,
ich hätte gern einen Dialog, der so aussieht wie der "Speichern Unter", also Pfad und Dateiname komplett auswählt und speichert. Gespeichert werden bzw. angelegt werden soll ja nur eine "leere" Datei. Den Inhalt der Datei fülle ich ja selbst mit dem Open For Output-Befehl...
Gruß
Thomas

Anzeige
AW: Datei Auswählen Dialog (Application.FileDialog
03.12.2007 20:10:24
Rene
Dann nimm doch des SaveAS-Dialog und wähle im Code das Dateiformat welches du möchtest und dann kannst u ja schreiben.

AW: Datei Auswählen Dialog (Application.FileDialog
03.12.2007 20:11:32
Jens
Hi,
sieh dir die GetSaveAsFilename-Methode in der Hilfe an.
mfg Jens

AW: Datei Auswählen Dialog (Application.FileDialog
03.12.2007 20:21:01
Thomas
Hallo Jens, hallo Rene,
vielen vielen Dank. Ich probier morgen früh mal die beiden Methoden aus und schreib dann das Ergebnis hier rein ;-)
Schönen Abend noch und viele Grüße
Thomas
Anzeige
;

Forumthreads zu verwandten Themen

Application.FileDialog(msoFileDialogSaveAs)
Philipp

Hallo,
ich möchte nur bestimmte Dateiformate beim speichern zulassen. Die Filterfunktion funktioniert hier nicht (oder jedenfalls bei mir)
Sub test Set oFileDialog = Application.FileDialog(msoFileDialogSaveAs) With oFileDialog .Title = "Auto Report Save as" .ButtonName = "speichern" ....
02.12.2009 13:51:33
Thread-ID: 1121409
5 Beiträge
VBA: getopenfilename in pt-sourcedata einfügen
Peter

Hallo.
Ich möchte per Makro für ein pt mittels Öffnen-Methode eine andere Excel-Datei (mit Bereich "data") als Datenquelle zuordnen. Mit dem ua VBA-Code sind die Datentypen nicht verträglich.
Bitte und Danke. lg. Sub OPEN_PROGNOSE() Dim Fname As Variant Dim srcdata As String ' Change dr...
06.10.2015 18:39:19
Thread-ID: 1451092
2 Beiträge
VBA Dateipfad aus Getopenfile zur weiteren Benutz.
Ben

Hallo,
da ich seit ein paar Stunden nicht weiter komme, versuch ich mal mein GLück in diesem Forum, da es mir schon bei so manchen Schwierigkeiten aus der Patsche geholfen hat.
Ausgangssituation
Ich habe via VBA eine Maske gebaut die zur Aufnahme neuer Ideen dient. Aus dieser Maske...
29.09.2016 20:21:46
Thread-ID: 1517279
6 Beiträge
Fehler im GetSaveAsFilename-Dialog
earlycon

Hallo zusammen,
ich bräuchte mal eure Unterstützung.
Ich habe im BeforeSave-Event zuerst verschiedene Anfragen (Berechtigung zum speichern ?, schon gespeichert ?, etc.). Das Event wird dann gecancelt und es folgt
strInitalName = (hier Pfadangabe und Dateiname)
strFileName = Appl...
25.06.2018 11:28:06
Thread-ID: 1630359
9 Beiträge
Anzeige
VBA GetOpenFileName
Frank

Hallo,
ich habe folgendes Problem. Ich habe mir ein Makro erstellt, dass
so aussieht:
Sub Öffne_Anästhesie()
' Öffne_Anästhesie Makro
' Makro am 05.05.2003 von Thelen aufgezeichnet
ChDir "c:\daten\Dienstpläne\Anästhesie\2003"
Application.GetOpenFilename
End Sub<...
05.05.2003 11:40:44
Thread-ID: 252279
4 Beiträge
openfiledialog auch ohne steuerelement?
flostel

hallo ...
ist es möglich einen openfiledialog auch ohne steuerelement einzubauen?
danke
07.03.2005 10:33:49
Thread-ID: 581205
6 Beiträge
Anzeige
Dialog fileopen
Martin

Hallo Excel-Gemeinde,
habe folgendes VBA-Problem:
Die Prozedur
Sub öffnen() Application.Dialogs(xlDialogOpen).Show End Sub
habe ich ja noch hinbekommen. Gibt es aber darüber hinaus die Möglichkeit hier den Pfad vorzugeben, so dass man nur noch die einzelne Datei auswählt? Ein...
18.04.2005 11:04:14
Thread-ID: 600226
4 Beiträge
Anzeige
VBA Workbooks.Open Filename
Michelle
hallo zusammen
ich habe zwei fragen und hoffe, dass mir jemand zu später stunde noch helfen kann...
die situation:
1. ich hab eine arbeitsmappe mit makros, die im startup-ordner von excel liegt und somit immer mit excel gestartet wird.
2. für 10 länder hab ich je eine arbeitsmappe mi...
13.01.2006 00:37:45
Thread-ID: 718508
5 Beiträge
xlDialogOpen/FindFile ohne Open
Thomas

Hallo Experten,
kennt jemand eine Möglichkeit, den OpenFileDialog einzublenden und nur den ausgewählten Dateinamen zurückzugeben, ohne die ausgewählte Datei zu öffnen?
Mit dem Befehl Application.Dialogs(xlDialogOpenFile).Show bzw. Application.Dialogs(xlDialogFindFile).Show
wird d...
27.11.2007 14:08:00
Thread-ID: 930107
3 Beiträge
Application.FileDialog(msoFileDialogSave
Michael
Hallo Zusammen,
derzeit komme ich bei einem kleinen Projekt nicht weiter.
Folgende Aufgabe soll das Makro erledigen (Start des Makro durch Klick auf Button):
Aktuelles Arbeitsblatt ("30-60") kopieren - eine 8 stellige Nummer (SAP-Nr. erfragen) - den Speichern unter Dialog für das neue Ar...
26.02.2021 15:13:23
Thread-ID: 1816055
9 Beiträge
Anzeige
VBA Txt-File sichern über Dialog
W
Hallo Forum,
ich möchte mir gelegentlich Informationen aus einem bestimmten Tabellenblatt als externe File (z. B. ".txt") sichern. Dabei möchte ich aber weder den Pfad noch den File-Namen vorgeben. Das sollte dann im Save-As-Dialog bestimmt werden. Danach möchte ich allerdings den Pfad und den N...
28.05.2021 15:10:44
Thread-ID: 1833062
2 Beiträge
FileDialog(msoFileDialogSaveAs) Passwort
ThomasH
Hallo zusammen,
ich stehe mir irgendwie völlig auf der Leitung. Ich habe eine Vorlagendatei und möchte diese per Dialog speichern. Speicherort und Datei lasse ich je nach User dynamisch zusammensetzen. Funktioniert einwandfrei.
Set dlg = Application.FileDialog(msoFileDialogSaveAs) With dl...
13.03.2023 12:24:25
Thread-ID: 1923801
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datei Auswählen Dialog in Excel VBA

Schritt-für-Schritt-Anleitung

Um einen Datei-Auswählen-Dialog in Excel VBA zu erstellen, der sowohl den Pfad als auch den Dateinamen auswählt, kannst Du die Application.FileDialog-Methode verwenden. Hier ist ein einfaches Beispiel:

  1. Öffne den VBA-Editor in Excel (Alt + F11).
  2. Füge ein neues Modul hinzu (Einfügen > Modul).
  3. Kopiere und füge den folgenden Code ein:
Sub DateiAuswaehlen()
    Dim strPfad As String
    Dim strDateiname As String
    Dim fd As FileDialog

    ' Datei-Dialog initialisieren
    Set fd = Application.FileDialog(msoFileDialogSaveAs)

    ' Dialog konfigurieren
    With fd
        .InitialFileName = "C:\"
        .Title = "Bitte wählen Sie einen Dateinamen"
        .AllowMultiSelect = False
        .FilterIndex = 1
        If .Show = -1 Then
            strDateiname = .SelectedItems(1)
            ' Hier kannst Du nun mit strDateiname arbeiten
            MsgBox "Datei gespeichert als: " & strDateiname
        Else
            MsgBox "Keine Datei ausgewählt."
        End If
    End With
End Sub
  1. Führe das Makro aus (F5), um den Dialog zu testen.

Häufige Fehler und Lösungen

  • Fehler: Der Dialog öffnet sich nicht.

    • Lösung: Stelle sicher, dass Du die richtige Methode von Application.FileDialog verwendest, wie msoFileDialogSaveAs.

  • Fehler: Die Datei wird nicht gespeichert.

    • Lösung: Überprüfe, ob Du einen gültigen Pfad und Dateinamen im Dialog auswählst.

Alternative Methoden

Wenn Du den Dialog für das Öffnen einer Datei verwenden möchtest, kannst Du die Methode msoFileDialogOpen nutzen. Hier ein Beispiel:

Sub DateiOeffnen()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogOpen)

    With fd
        .Title = "Bitte wählen Sie eine Datei zum Öffnen"
        .AllowMultiSelect = False
        If .Show = -1 Then
            MsgBox "Datei ausgewählt: " & .SelectedItems(1)
        Else
            MsgBox "Keine Datei ausgewählt."
        End If
    End With
End Sub

Praktische Beispiele

  1. Speichern einer XML-Datei: Verwende das msoFileDialogSaveAs, um den Speicherort und Dateinamen für eine XML-Datei aus den Tabellendaten auszuwählen.

  2. Ordner auswählen: Der msoFileDialogFolderPicker ermöglicht es Dir, einen Ordner auszuwählen, in dem Du Deine Dateien speichern möchtest.

Beispiel:

Sub OrdnerAuswaehlen()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)

    With fd
        .Title = "Bitte wählen Sie einen Ordner"
        If .Show = -1 Then
            MsgBox "Ordner ausgewählt: " & .SelectedItems(1)
        End If
    End With
End Sub

Tipps für Profis

  • Nutze die Filter-Eigenschaft des FileDialogs, um die Dateitypen, die angezeigt werden, einzuschränken.
  • Verwende die InitialFileName-Eigenschaft, um den Dialog mit einem vordefinierten Pfad zu starten.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Dateien auswählen? Verwende die AllowMultiSelect-Eigenschaft und setze sie auf True.

2. Kann ich den Dialog anpassen? Ja, Du kannst Titel, Filter und den Startpfad anpassen, um den Dialog Deinen Bedürfnissen anzupassen.

3. Was ist der Unterschied zwischen msoFileDialogOpen und msoFileDialogSaveAs? msoFileDialogOpen wird verwendet, um bestehende Dateien auszuwählen, während msoFileDialogSaveAs verwendet wird, um einen neuen Dateinamen und Speicherort auszuwählen.

Nutze diesen Leitfaden, um Deine Excel-Anwendungen effizienter zu gestalten und den Datei-Auswählen-Dialog in VBA optimal zu nutzen!

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige