Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1264to1268
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
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

msoFileDialogSaveAs

msoFileDialogSaveAs
Ximena
Hallo ihr Lieben
so, ich hätte gerne, dass meine Makro das Dokument (ja, ich bin mal wieder im Word, aber ich denke das funzt gleich) abspeichert!
    strDatName = "SCC SLR " & myMonth & " " & myYear & " " & myDivision & ".docx"

So soll es heissen! Und nun soll ein Dilaog Fenster aufgehen, in dem der User den Ordner (Directory) aussuchen kann: 
Set docQuelle = ActiveDocument
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = strDatName
.Show
End With

Jetzt soll die Makro das Dokument speichern: 
ChangeFileOpenDirectory 'HIER IST DIE FRAGE!!
docQuelle.SaveAs2 FileName:=strDatName, FileFormat:=wdFormatDocumentDefault
Set docQuelle = Nothing
MsgBox "Your document has been saved!"
Gut, dort wo HIER IST DIE FRAGE steht, dort habe ich ein Problem :) Und zwar: momentan speichert er mir das File nicht dorthin, wo ich im Dialog Fenster hingeklickt habe, ist ja auch verständlich, denn diese Info speichert er ja nicht. Deshalb habe ich gegoogelt und "ChangeFiledOpenDirectory" gefunden, damit kann ich bestimmen, wohin das Dokument gespeichert wird. Doch ich möchte dem Befehl eine Variable zuordnen. Diese Variable soll beim msoFiledialogsaveas bestimmt werden... geht das? Versteht ihr mich?
Ganz liebe Grüsse
Ximena

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

Betreff
Benutzer
Anzeige
AW: msoFileDialogSaveAs
12.06.2012 11:22:50
Rudi
Hallo,
würde ich per FileDialog machen. 
Sub xxxx()
Dim strPfad As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Ordner wählen"
If .Show = -1 Then strPfad = .SelectedItems(1)
End With
MsgBox strPfad
End Sub

Gruß
Rudi
Supi! Danke :D - owT
12.06.2012 11:36:09
Ximena
Hallo Rudi
Supi! Danke :D
Lg Ximena
Anzeige

35 Forumthreads zu ähnlichen Themen

SaveAs-Dialog
Jens

Hallo,
ich möchte dem Nutzer meines Excelsheets in einer bestimmten Situation einen vorkonfigurierten SaveAs-Dialog zur Verfügung stellen. Und zwar mache ich das folgendermaßen (nur ein Beispiel):
WorkBookName = "C:\Testsheets\Baseline Testing Summary"
Application.Dialogs(xlDialogSa...
30.01.2009 17:20:00
Thread-ID: 1045481
4 Beiträge
Anzeige
Application.FileDialog(msoFileDialogSaveAs)
Philipp

Hallo,
ich möchte nur bestimmte Dateiformate beim speichern zulassen. Die Filterfunktion funktioniert hier nicht (oder jedenfalls bei mir)
Ich arbeite übrigens in WORD und dort gibt es die Application.GetSaveAsFilename Anweisung nicht.
Sub test Set oFileDialog = Application.FileDia...
03.12.2009 16:39:39
Thread-ID: 1121602
2 Beiträge
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Anzeige
Excel stürzt nach SaveAs-Dialog ab
Ben

Hallo zusammen!
Nach mehrfacher Empfehlung des Herber-Forums bin ich nun auch ein Teil dieser Community geworden - natürlich gleich mit der Hoffnung auf Hilfe! :-)
Ich habe beruflich ein Excel Template zu erstellen, dass sowohl unter Excel 2007 als auch unter Excel 2003 laufen muss (Wir...
25.07.2012 11:57:29
Thread-ID: 1272542
14 Beiträge
VBA Outlook 2010 Fehler (xlDialogSaveAs).Show
Thorsten

Hallo,
ich versuche eMail-Anhänge zu speichern.
Der genaue Speicherpfad steht in den Anhängen(.xls) der eMail.
Leider ist der Name/ Bezeichnung immer anders.
Die Anhänge werden temporär gespeichert, geöffnet und dann kommt mein Problem:
der Benutzer soll das Speicherverzeich...
07.06.2014 07:21:41
Thread-ID: 1365046
4 Beiträge
msofiledialogsaveas speichert nicht
Matthias

Hallo Gemeinde,
ersteinmal vielen Dank an die Beiträge, die mich bei meinen bisherigen Problemen sehr gut unterstützt haben.
Meine Problem wurde schon ähnlich hier im Forum behandelt: https://www.herber.de/forum/archiv/1228to1232/1228284_xltmDatei_nach_oeffnen_als_xlsm_abspeichern.html....
13.08.2014 19:32:12
Thread-ID: 1376323
4 Beiträge
VBA - Excel/Word: Probleme mit SaveAs Methode
Marc

Hallo zusammen,
ich kämpfe nun schon seit einiger Zeit mit folgendem Problem:
Ich habe ein Excel-Mappe, aus der ich per VBA eine Word-Vorlage öffne und mit Daten fülle. Dieses Word-Dokument soll nun unter einem neuen Namen abgespeichert werden. Dafür nutze ich die SaveAs Methode - die ü...
16.12.2014 13:44:24
Thread-ID: 1398351
5 Beiträge
Alle Dateien im SaveAs Dialog anzeigen
Peter

Wie kann ich beim Abspeichern einer Excel-Datei erreichen, dass im Save Dialog standardmäßig alle Dateien angezeigt werden? Normalerweise werden nur xlsx-Dateien angezeigt. Wenn ich für den Dateiname "*.*" eingebe, dann sehe ich wie gewünscht alle Dateien. Geht das auch automatisch, ohne dass i...
06.01.2016 14:58:15
Thread-ID: 1467402
2 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
4
1
3
4
13
3
3
4
1
5
4
8
4
2
2
2
2
3
4
2
2
4
6
2