Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1428to1432
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
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei Speichern unter mit VBA - Dateipfad vorgeben

Datei Speichern unter mit VBA - Dateipfad vorgeben
30.05.2015 20:10:19
coronus
Hallo zusammen,
ich möchte aus einer Excel-Datei heraus mit einem Makro den "Speichern unter"-Dialog aufrufen. Der Dateipfad soll sein: D:\Dateien. Die Ausgangsdatei liegt auf C:\Users\user\Desktop.
Mein Problem: Der Dateipfad ändert sich nicht, es wird als Speicherpfad immer C:\Users\user\Desktop vorgegeben. Das aktuelle Verzeichnis CurDir ändert sich allerdings schon, wie mir die entsprechende MsgBox ausgibt (s.u.). Als Dateiname wird Test.xlsm übernommen.
Sub speichern_unter()
ChDrive "D:\"
ChDir "D:\Dateien\"
MsgBox CurDir
Application.Dialogs(xlDialogSaveAs).Show  "D:\Dateien\Test.xlsm"
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Datei Speichern unter mit VBA - Dateipfad vorgeben
30.05.2015 20:31:13
Nepumuk
Hallo,
so besser?
Sub speichern_unter()
    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 2
        .InitialFileName = "D:\Dateien\Test.xlsm"
        If .Show Then .Execute
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Datei Speichern unter mit VBA - Dateipfad vorgeben
30.05.2015 23:46:27
coronus
Funktioniert, danke! Neues Problem: Auf demselben Weg soll eine Excel-Datei als PDF gespeichert werden. Der unten stehende, angepasste Code gibt eine Fehlermeldung zurück.
Sub speichern_unter()
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 25
.InitialFileName = "D:\Dateien\Test.pdf"
If .Show Then .Execute
End With
End Sub

AW: Datei Speichern unter mit VBA - Dateipfad vorgeben
31.05.2015 08:03:32
Nepumuk
Hallo,
so geht das:
Sub speichern_unter()
    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 25
        .InitialFileName = "D:\Dateien\Test.pdf"
        If .Show Then ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=.SelectedItems(1), Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Datei Speichern unter mit VBA - Dateipfad vorgeben
31.05.2015 11:17:55
coronus
Danke, das bringt mich schon weiter. Allerdings (da war ich wohl zu ungenau) habe ich drei Tabellenblätter, von denen nur das aktuelle (Tabelle1) gespeichert werden soll. Mit deinem Code werden alle Blätter als PDF konvertiert.
Das sollte doch auch kein Problem sein.
Und ich habe noch eine Frage:
Wozu dient die Anweisung Filename:=.SelectedItems(1)?

AW: Datei Speichern unter mit VBA - Dateipfad vorgeben
31.05.2015 11:39:49
Nepumuk
Hallo,
in .SelectedItems(1) steht der ausgewählte Pfad inkl. Dateiname.
Ändere ThisWorkbook in Worksheets("Tabelle1")
Gruß
Nepumuk

AW: Datei Speichern unter mit VBA - Dateipfad vorgeben
31.05.2015 12:04:26
coronus
Vielen Dank, Problem gelöst!

182 Forumthreads zu ähnlichen Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
VBA Speichern unter
PeterO

Hallo!
Ich habe folgendes Problem:
über einen Commandbutton kopiert der User ein Blatt in eine neue Datei, die so dann gleich geschlossen werden soll. Hier erscheint dann der Dialog "Wollen Sie speichern? - ja - nein - abbrechen -". Ich hätte nun aber gern, dass gleich der Dialog "Speic...
28.10.2008 15:59:44
Thread-ID: 1019997
3 Beiträge
Dateiname bei : Speichern unter
Marco

Hi
ich möchte eine XLS datei per makro abspeichern
Dateiname = "Test_" & VBA.Date
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:=Dateiname, fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveW...
05.12.2008 11:45:58
Thread-ID: 1030407
6 Beiträge
Anzeige
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 Beiträge
Speichern unter mit FileDialog
Rainer

Hallo,
möchte eine Tabelle im xls-Format speichern, damit mir die Makros mit übernommen werden.
Klappt alles soweit.
Allerdings hätte ich im Makro gerne auch die Vorauswahl für "Excel 97-2003-Arbeitsmappe (*.xls)".
Habe nun schon einiges getestet.
Nur mein Code (als Funktion...
04.05.2009 09:48:37
Thread-ID: 1072652
2 Beiträge
.DAT-Datei speichern mit VBA unter xls
Peter

Hallo Excel-VBA-Spezialisten,
ich habe eine Datei (xxxx.dat) die nach Bearbeitung durch ein Makro letztendlich als xxxx.xls (xxxx bleibt) gespeichert werden soll. Es wird zwar eine xls-Datei gespeichert, aber in der Datei sind immer noch die Texttrennzeichen enthalten. Wie muss ich nachfolg...
18.06.2009 12:47:46
Thread-ID: 1082544
5 Beiträge
VBA-Exceldatei unter Excel 2003 und 2007 nutzen
Martin

Hallo,
ich mache mir den Umstieg von Excel 2003 auf 2007 ziemlich schwer, will aber den Anschluss nicht verpassen und daher auf einem PC gerne unter Excel 2007 arbeiten.
Meine Frage: Ich arbeite sehr intensiv mit einer Exceldatei, in der es zahlreiche benutzerdefinierte über VBA erzeugt...
14.07.2009 12:29:24
Thread-ID: 1088399
5 Beiträge
VBA Speichern unter
Alexander

wie kann ich bei folgendem "speichern unter" das Abbrechen unterdrücken/deaktivieren da ich sonst eine fehlermeldung bekomme ? Sub Exportieren Aktualiesieren() ' Kopieren aktueller stand in alten Stand Range("A6:L98").Copy Sheets("Alter Stand").Select Range("a4").PasteSpecial Paste:=xlPasteValu...
25.07.2009 10:08:55
Thread-ID: 1091205
2 Beiträge
Anzeige

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
1
4
2
5
4
3
1
4
4
1
3
13
4
2
4
7
3
13
3
6
4
3
3
7
4