Das Archiv des Excel-Forums
Speichern unter Dialog in Word aufrufen inkl. Pfad
Betrifft: Speichern unter Dialog in Word aufrufen inkl. Pfad
von: Elisa
Geschrieben am: 11.07.2008 14:50:25
Hallo zusammen
Ich habe jetzt lange im Archiv gesucht, aber nichts passendes gefunden. Ich hoffe ihr könnt mir helfen.
Ich öffne aus Excel eine Worddatei, fülle diese via Textmarken aus, und möchte nun dass der Speichern Unter Dialog im Word geöffnet wird mit einem vorgegeben Pfad und Dateiname.
Geht das?
*********************
Private Sub XY_Click()
Dim datei As String
Dim dok As Object
Dim wd As Object
datei = "DokumentenpfadUndName"
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set dok = wd.Documents.Add(datei)
dok.FormFields("BLA").Range.Text = Worksheets("BLAListe").Range("BLA").Value
--> Hier fehlt: In Word Speichern unter Dialog aufrufen mit Pfad "AAA" und Dateiname "BBB"
End Sub
*********************
Vielen Dank für die Hilfe.
Grüsse
Elisa
Betrifft: AW: Speichern unter Dialog in Word aufrufen inkl. Pfad
von: ransi
Geschrieben am: 11.07.2008 15:48:26
HAllo Elisa
Stimmt deine Office Version ?
ransi
Betrifft: AW: Speichern unter Dialog in Word aufrufen inkl. Pfad
von: Elisa
Geschrieben am: 11.07.2008 16:09:02
Hallo Ransi
Ich arbeite mit MS Excel 2000 (sorry für die Falschinfo)
Gruss
Elsia
Betrifft: AW: Speichern unter Dialog in Word aufrufen inkl. Pfad
von: fcs
Geschrieben am: 11.07.2008 16:27:07
Hallo Elisa,
unter Office 2003 funktioniert die folgende Variante, wobei ich beim Testen ein nacktes Worddokument verwendet hab ohne deine Übergabe von Daten in ein Formular-Feld. Ob die Zuweisung von Pfad/Dateiname so unter 2000 schon funktioniert weiss ich nicht.
Vor dem Start des Makros den Verweis in Excel-VBA für die Datei aktivieren!!
Gruß
Franz
'Falls noch nicht gemacht dann im Excel-VBA-Editor unter Extras-Verweise den Verweis auf die
'Microsoft Word x.y Object Library aktivieren
Sub XY_Click()
Dim datei As String
Dim dok As Object
Dim wd As Object
Dim Pfad as String, Dateiname as String
datei = "DokumentenpfadUndName"
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set dok = wd.Documents.Add(datei)
dok.FormFields("BLA").Range.Text = Worksheets("BLAListe").Range("BLA").Value
pfad = "C:\Lokale Daten\Test"
Dateiname = "Wordtest.doc"
With wd.Dialogs(wdDialogFileSaveAs)
.Name = pfad & "\" & Dateiname
.Show
End With
End Sub
Betrifft: AW: Speichern unter Dialog in Word aufrufen inkl. Pfad
von: Elisa
Geschrieben am: 11.07.2008 16:40:45
Hallo Franz
Vielen Dank für die schnelle Antwort
Leider meldet er mir bei der Zeile " With wd.Dialogs(wdDialogFileSaveAs)"
"Laufzeitfehler 5941: Das angeforderte Element ist nicht in der Sammlung vorhanden."
Tja, pech gehabt.
Betrifft: AW: Speichern unter Dialog in Word aufrufen inkl. Pfad
von: fcs
Geschrieben am: 11.07.2008 17:20:05
Hallo Elisa,
hast du in der Excel-datei, in der dein Excelmakro gespeichert wird, auch im VBA-Editor den Verweis auf die MS Word Object Library gesetzt?
Ohne den Verweis kommt diese Fehlermeldung nämlich auch.
Der Speichern-Unter-Dialog sollte eigentlich auch für die älteren Versionen vorhanden sein unter den BuiltinDialogs.
Suche in Word2000 im VBA-Editor unter der Hilfe mal nach Dialogs.
oder gib im Word-VBA-Editor eine Zeile wie
Application.Dialogs(wdDialogsFile...).Show
Nach dem Öffnne der Klammer sollte die Liste aller verfügbaren Dialoge angezeigt werden.
Evtl. heiß das Speichern-unter-Dialog da ja noch anders.
Gruß
Franz
Betrifft: AW: Speichern unter Dialog in Word aufrufen inkl. Pfad
von: Elisa
Geschrieben am: 11.07.2008 17:26:21
Hallo Franz
Aus irgendwelchen unerfindlichen Gründen, war der Verweis nicht mehr aktiv. Ich habe diesen jetzt nochmals aktiviert und jetzt funktioniert es.
Herrlich.
Vielen Dank für die äusserst schnelle und kompetente Hilfe und allen ein schönes Wochenende.
Gruss
Elsia
Betrifft: AW: Speichern unter Dialog in Word aufrufen inkl. Pfad
von: Ramses
Geschrieben am: 11.07.2008 22:28:55
Hallo Franz
Ohne Verweis auf die Library geht es so
With wd.Dialogs(84)
.Name = pfad & "\" & Dateiname
.Show
End With
Gruss Rainer
Excel-Beispiele zum Thema "Speichern unter Dialog in Word aufrufen inkl. Pfad"
Zelleingaben speichern |
 |
Die "personl"-Arbeitsmappe ausgeblendet speichern |
 |
Formeln mit Zelladressen speichern |
 |
Bestätigung beim Speichern unterdrücken. |
 |
Arbeitsmappe unter dem Text eines Zelleintrags speichern |
 |
Einzelnes Tabellenblatt speichern |
 |
Mappe unter Zelldatum speichern |
 |
Arbeitsmappe doppelt speichern |
 |
Arbeitsmappe unter Namen speichern |
 |
Programmabbruch bei Überspeichernabfrage verhindern |
 |
dBase-Datei laden, bearbeiten, speichern |
 |
Variablen in einer temporären Textdatei zwischenspeichern |
 |
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern |
 |
Einzelnes Tabellenblatt unter Tagesdatum speichern |
 |
Menüpunkt SPEICHERN deaktivieren |
 |
Speichernabfrage beim Schließen der Arbeitsmappe |
 |
Zeit eintragen und Tabelle minütlich als HTML-Datei speichern |
 |
Arbeitsmappe 10-minütlich als *.xls und *.bak-Datei speichern |
 |
Texte mit unterschiedlichen Feldlängen als Textdatei speichern |
 |
Arbeitsmappe mit absoluten Werten unter neuem Namen speichern |
 |
Text in NotePad schreiben, speichern, in Excel aufrufen |
 |
Sicherheitskopien von Arbeitsmappen speichern |
 |
Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen |
 |
Tabellenblattbereich als Grafik speichern |
 |
Blattschutz beim Speichern setzen |
 |
Eingetragenen Wert in TextBox speichern |
 |
Zeilenweises Speichern von Texten |
 |
Tabellenblattdaten als Textdatei mit vorgegebenem Namen speichern |
 |
Blätter in UserForm-ListBox auswählen und speichern |
 |
Filter vor Speichern zurücksetzen |
 |
Blatt ohne Code, Steuerelement und Formeln speichern |
 |
Speichern ausschließlich über UserForm-Schaltfläche |
 |
Speichern unter forlaufender Nummer |
 |
Daten in einer Textdatei ohne Anführungszeichen speichern |
 |
Einzel-Arbeitsblätter einer Arbeitsmappe speichern. |
 |
Speichern-Befehl abfangen und unter Paßwort speichern |
 |
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern |
 |
HTML-Seite aus dem Internet aufrufen und als Textdatei speichern |
 |
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen |
 |
Beim Speichern Schaltfläche erstellen |
 |
Speichern-Schaltfläche aktivieren/deaktivieren |
 |
Binärdatei aus dem Internet downloaden und speichern |
 |
UserForm-TextBoxes-Texte in Textdateien speichern |
 |
Datei-Speichern-Dialog zusammen mit Paßwortdialog aufrufen |
 |
Tabellenblattinhalte in getrennten Textdateien speichern |
 |
Buchstaben aus Textdatei entfernen und neu speichern |
 |
Speichern-Dialog mit Dateinamen-Vorschlag aufrufen |
 |
Aktive Arbeitsmappe ohne VBA-Code und Button speichern |
 |
Die Zeilen mit Wert in Spalte C als CSV-Datei speichern |
 |
Webabfrage periodisch aktualisieren und Ergebnisse speichern |
 |
In einem Dialog ausgewählte Spalten drucken |
 |
Excel für die Zeit eines Dialogaufrufes ausblenden |
 |
Dialog-Datumseingabe vereinfachen und kontrollieren |
 |
Adressdaten via Dialog in eine Adressdatei eintragen |
 |
Bestellfax über Dialog |
 |
Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog |
 |
Dynamischen Dialog erstellen |
 |
Arbeitsmappe aus Dialog schließen |
 |
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen |
 |
Laufwerke im Dialog zur Auswahl anzeigen lassen |
 |
Dialoggesteuerte Druckmehrblattauswahl |
 |
Offene Arbeitsmappen in Dialog listen |
 |
Blattschutzdialog über VBA aufrufen |
 |
Assistent zum Dialog aufrufen und Eingaben auswerten |
 |
Bei Dialoganzeige Blattauswahl wechseln |
 |
Datei auswählen, öffnen und Formelsuchdialog anzeigen |
 |
Ordnerdialog mit nachfolgendem Dateidialog aufrufen |
 |
Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen |
 |
Farbauswahldialog generieren, aufrufen und löschen |
 |
Über VBA den Excel-Sortierdialog aufrufen |
 |
Dialog nach 3 Sekunden schließen |
 |
Dialogaufruf, wenn zwei Zellen Werte enthalten |
 |
Aufruf des GetOpenFilename-Dialogs |
 |
Beim Öffnen Dialog mit Dateiname und Dateidatum |
 |
Zahlen-Formatierungs-Dialog aus UserForm aufrufen |
 |
String mit Prüfziffer über Dialogeingabe erstellen |
 |
Aus GetOpenFilename-Dialog eine Mehrfachauswahl auslesen |
 |
Anpassen-Dialog über VBA aufrufen |
 |
Verknüpfungsdialog aus VBA aufrufen |
 |
Outlook-Maildialog aus UserForm aufrufen |
 |
ComDlg-Dialog aufrufen |
 |
Verzeichnisdialog mit vorgegebenem Verzeichnis aufrufen |
 |
Vorlagendialog beim Öffnen einer Arbeitsmappe aufrufen |
 |
Dateiauswahl-Dialog mit vorgegebenen Dateinamen aufrufen |
 |
Suchdialog über VBA aufrufen |
 |
Word mit leerem Dokument und Druckdialog aufrufen |
 |
Aufruf des Symbolleisten-Anpassen-Dialogs verhindern |
 |
Drucken aus einem DialogSheet |
 |
Zusammenstellung der eingebauten Dialoge |
 |
SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen |
 |
Makros in Abhängigkeit vom Zellennamen aufrufen |
 |
Makros zeitgesteuert aufrufen |
 |
AddIn aus Makro aufrufen |
 |
Name der aufrufenden Schaltfläche abfragen |
 |
Code aufrufen und löschen |
 |
Als Zellkontextmenü Listbox aufrufen |
 |
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen |
 |
Grafikprogramm aufrufen und Bild laden |
 |
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen |
 |
Wordmakro aus Excel heraus aufrufen |
 |
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten |
 |
Aufrufende Menüleistenschaltfläche ermitteln |
 |
Numerisch benanntes Arbeitsblatt 1+X aufrufen |
 |
Zu einer aufrufenden UserForm zurückkehren |
 |
Verzeichnisbaum aufrufen und Verzeichnis auswählen |
 |
Kontextmenü zur Auswahl von Arbeitsblättern aufrufen |
 |
Bei Wertüberschreitung Makro aufrufen |
 |
Tabellenblatt-Hyperlink über UserForm aufrufen |
 |
Anwendung aufrufen und Makroausführung unterbrechen |
 |
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen |
 |
In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen |
 |
Datenmaske mit landesspzifischen oder US-Formaten aufrufen |
 |
Von zweiter UserForm die erste aufrufen |
 |
UserForm mit SpinButton zur Datenreiheneinstellung aufrufen |
 |
Wert in Abhängigkeit der aufrufenden Schaltfläche eintragen |
 |
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen |
 |
Programmsteuerung für mehrere aufrufende UserForms |
 |
Position der aufrufenden Schaltfläche ermitteln |
 |
Bei Doppelklick aufrufende Zelle in UserForm nennen |
 |
Datenmaske mit einem bestimmten Datensatz aufrufen |
 |
In der UserForm aufrufende Schaltfläche erkennen |
 |
Wordmakro mit Parameter aufrufen |
 |
Aus verschiedenen Zellwerten zusammengesetzte Webadresse aufrufen |
 |
Datenmaske zur Aufnaheme des nächsten Satzes aufrufen |
 |
Bei Zellauswahl UserForm mit Artikelnummern aufrufen |
 |
VBScript mit Parameter aus VBA aufrufen |
 |
Bei Doppelklick AcrobatReader mit Datei aufrufen |
 |