Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1332to1336
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
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

GetSaveAsFilename und Punkt

GetSaveAsFilename und Punkt
09.10.2013 14:01:42
matzemalzbier
Hallo liebes Forum.
Eine Arbeitsmappe die mit Excel 2000 erstellt wurde, verwendet die GetSaveAsFilename Methode.
Der Speichern Unter Dialog wurde aufgerufen und der Vorgelegte Dateiname sah in etwa so aus: 2013.10 Dateiname.xls
Mit Excel 2007 wird der Dateinmae nicht mehr vorgelegt. Das Eingabefeld Dateiname bleibt leer.
Die Ursache ist der Punkt im Dateinamen. Verwende ich 2013-10 Dateiname.xls, geht es.
Die Suche im Netz ergab zwar das dieses Problem andere Nutzer auch schon festgestellt hatten, es jedoch keine Lösung gab.
Ich Möchte ungern vom "Punkt" ablassen.
Hat jemand vielleicht eine Lösung?
Gruß, Matzemalzbier.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GetSaveAsFilename und Punkt
09.10.2013 17:57:03
fcs
Hallo Matze,
Excel 2007 und neuer können Dateien in unterschiedlichen Formaten speichern. Das muss berücksichtigt werden. Je nachdem welchen Dateienamen man auswählt, muss im SaveAs-Dialog das passende Dateiformat vorgegeben werden.
Schaut dann etwa wie folgt aus.
mfg
Franz
Sub prcFileSaveAs()
Dim varFilename, intFormat As Integer, strExt As String
Dim varAuswahl
If Val(Left(Application.Version, 2)) > 12 Then
varFilename = Application.GetSaveAsFilename( _
InitialFileName:=Format(Date, "YYYY.MM") & " Irgendwas", _
filefilter:="Exclefiles (*.xlsx;*.xls;*.xlsm),*.xlsx;*.xls;*.xlsm")
If varFilename  False Then
strExt = Mid(varFilename, VBA.InStrRev(varFilename, ".") + 1)
Select Case LCase(strExt)
Case "xls": intFormat = 56
Case "xlsx": intFormat = 51
Case "xlsm": intFormat = 52
End Select
varAuswahl = Application.Dialogs(xlDialogSaveAs).Show(varFilename, intFormat)
If varAuswahl = False Then Exit Sub
End If
Else
varFilename = Application.GetSaveAsFilename( _
InitialFileName:=Format(Date, "YYYY.MM") & " Irgendwas", _
filefilter:="Exclefiles (*.xls),*.xls")
varAuswahl = Application.Dialogs(xlDialogSaveAs).Show(varFilename)
If varAuswahl = False Then Exit Sub
End If
End Sub

Anzeige
AW: GetSaveAsFilename und Punkt
10.10.2013 09:45:46
matzemalzbier
Hallo Franz.
Deine Antwort war der Zeig in die richtige Richtung!
Offensichtlich, ist der Parameter filefilter nicht mehr optional, so wie es in der Hilfe von Excel zu lesen ist.
Mit der Angabe des Dateityp, also filefilter, funktioniert die Methode wieder.
Besten Dank Franz, du hast mir sehr geholfen!
Gruß, Matze.

275 Forumthreads zu ähnlichen Themen

GetSaveAsFilename
Frank68

Halle Gemeinde,
eine Frage: Kann ich die Methode GetSaveAsFilename so modifizieren, dass im Dialogfeld ein bestimmter Dateiname (= Vorschlag) steht, der beispielsweise aus einer Zelle dieser Tabelle "gezogen" wird?
Dank!
20.01.2009 00:49:10
Thread-ID: 1041695
4 Beiträge
Anzeige
GetSaveAsFilename
Ansgar

Hallo Experten,
ein unter Excel 2000 erstellter Code beinhaltet den GetSaveAsFilename-Befehl. Dieser funktionerte dort problemlos.
Jetzt läuft das Makro aber unter Excel 2007. Das Abspeicher funktioniert mit
fname = Application.GetSaveAsFilename("LISTUNGEN", _ "Excel 97-2003-Arbeit...
17.05.2010 18:36:27
Thread-ID: 1157428
6 Beiträge
Application.GetSaveAsFilename
Lutz

Hallo,
wenn ich
varPfad = Application.GetSaveAsFilename
aus einem Makro heraus starte, erhalte ich ja den Pfad zurück.
Wie kann ich die Rückmeldung abfragen, wenn der Dialog über die Excel-Schaltfläche gestartet wurde?
M.f.G.
Lutz
22.10.2010 07:13:25
Thread-ID: 1183442
13 Beiträge
Anzeige
Application.GetSaveAsFilename
Rainer

Hallo allerseits,Eine Frage: Wenn ich den Befehl Application.GetSaveAsFilename gebe, dann würde ich gerne im Vorfeld einen neuen Filenamen als Vorgabe übergeben. Man soll selbst wählen können, wohin, aber nur den Namen möchte ich vorher noch automatisch abändern. Soll als Backup-Funktion dienen...
11.07.2002 11:58:06
Thread-ID: 135731
2 Beiträge
Application.GetSaveAsFilename
Andi

Es gibt ein VBA Befehl um Blätter als pdf zu speichern:
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & "SV-" & SVTyp & "_" & Blatt.Name & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
Sheets(Blatt....
24.02.2015 17:57:13
Thread-ID: 1411283
4 Beiträge
GetSaveAsFilename nur bestimmten Bereich als PDF
Thomas

Sehr geehrte Damen und Herren,
ich suche mir jetzt schon stundenlang die Finger wund ;) leider ohne Ergebnis.
Folgende Problemstellung:
Ich habe ein Rechnungsdokument erstellt. Nun möchte ich mittels Schaltfläche die Rechnung automatisch in dem
Rechnungsordner als PDF ablegen un...
05.01.2016 10:55:34
Thread-ID: 1467115
3 Beiträge
Pfad nach GetSaveAsFilename ermitteln
Michael Heering

Hallo Miteinander!Wie kann ich nach einem GetSaveAsFilename den Pfad der zu speichernden Datei ermitteln?Un wie kann ich den Wert für das nächste Speichern als Vorlage nehmen?Vielen Dank
Michael Heering
31.08.2002 16:27:11
Thread-ID: 154932
3 Beiträge
GetSaveAsFilename: Fixer InitialFileName möglich
Zacharias

Hallo hilfreiche Excel-Gemeinde,
ich hätte eine Frage, von der ich hoffe, daß es eine einfache Lösung gibt.
In unserer Firma werden Excel-Dateien genutzt, deren VBA-Code ich entwickelt habe.
Ich fange das SaveAs–Ereignis ab und lasse den User auswählen, ob er eine VORLAGE oder ein D...
18.05.2017 13:47:08
Thread-ID: 1559128
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
5
12
1
1
3
2
2
4
8
2
2
3
5
2
3
2
3
2
2
3
4
8
6