Office: Speichern unter für txt-Datei

Blechdose · 26. August 2014

Hallo zusammen,

per Makro fasse ich bestimmte Daten aus einem Tabellenblatt in einer einfachen Textdatei zusammen. Das funktioniert auch soweit, wobei der Datei-Pfad und Name z.Zt. noch fest im Code drinn steht.
Nun wollte ich "mal eben" ein "Speichern unter"-Dialog dazu klappern, damit der Nutzer selbst auswählen kann, wo und unter welchem Namen die Datei abgelegt werden soll.

mit
Code:

'Speichern unter Dialog
Dim oFileDialog As FileDialog
Set oFileDialog = Application.FileDialog(msoFileDialogSaveAs)

With oFileDialog
.InitialFileName = "Test.txt"
.Title = "Textexport speichern unter..."
MsgBox .Show
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bekomme ich aber immer einen Dialog in dem mit "Test.xlsm" vorgeschlagen wird. Der Versuch durch ergänzen von
Code:

.Filters.Add "Textdatei", "*.txt"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

den Dateifilter auf Textdateien umzustellen, wird mit der Fehlermeldung, dass diese Objekt diese Eigenschaft nicht unterstützt quittiert.
Wie bekomme ich aus Ecxel-VBA heraus ein Speichern-unter-Dialog für ein x-beliebiges (hier konkret txt-)Dateiformat gestartet?

Dank und Gruß
Lars

:)

chris-kaiser · 27. August 2014

Hi,

meinst du so etwas?

Code:

Sub Speichern()
Dim strPath As String
Dim VarFile As Variant
strPath = "C:\Temp\"
VarFile = Application.GetSaveAsFilename(InitialFileName:=strPath & _
".txt", FileFilter:="Textfile (*.txt), *.txt")
If VarFile False Then
ThisWorkbook.SaveAs VarFile
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xlph · 27. August 2014

Hallo,

das geht mit FileDialog nicht.

Code:

Sub Speichern()
Dim varfileSaveName As Variant
varfileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="C:\Test.txt", _
FileFilter:="Text Files (*.txt), *.txt)", _
Title:="Textexport speichern unter...")
If varfileSaveName = False Then Exit Sub
MsgBox varfileSaveName
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Blechdose · 27. August 2014

Hallo chris-kaiser, hallo xlph,

danke für den Tipp. So kommt das raus, was ich gesucht habe.

Dank und Gruß Lars

Office: Speichern unter für txt-Datei

Speichern unter für txt-Datei

Speichern unter für txt-Datei

Speichern unter für txt-Datei

Speichern unter für txt-Datei - Similar Threads - Speichern Datei

Datei als OLE-Objekt via FilePicker auswählen und speichern

offene Word-Datei per VBA speichern

Aus Access mehrere Excel-Tabellen in neue Datei speichern

Zellinhalt als Datei im Notepad speichern

Datei als PDF speichern ohne festen Dateipfad

Dateien speichern unter in Microsoft Office 2021 Plus

PDF-Dateinamen aus Zellen zusammensetzen