Das Archiv des Excel-Forums

Speichern unter Dialog in Word aufrufen inkl. Pfad

Bild

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

Bild

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

Bild

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

Bild

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



Bild

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.

Bild

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

Bild

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

Bild

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

 Bild

Excel-Beispiele zum Thema "Speichern unter Dialog in Word aufrufen inkl. Pfad"

Zelleingaben speichern download Die "personl"-Arbeitsmappe ausgeblendet speichern download
Formeln mit Zelladressen speichern download Bestätigung beim Speichern unterdrücken. download
Arbeitsmappe unter dem Text eines Zelleintrags speichern download Einzelnes Tabellenblatt speichern download
Mappe unter Zelldatum speichern download Arbeitsmappe doppelt speichern download
Arbeitsmappe unter Namen speichern download Programmabbruch bei Überspeichernabfrage verhindern download
dBase-Datei laden, bearbeiten, speichern download Variablen in einer temporären Textdatei zwischenspeichern download
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download Einzelnes Tabellenblatt unter Tagesdatum speichern download
Menüpunkt SPEICHERN deaktivieren download Speichernabfrage beim Schließen der Arbeitsmappe download
Zeit eintragen und Tabelle minütlich als HTML-Datei speichern download Arbeitsmappe 10-minütlich als *.xls und *.bak-Datei speichern download
Texte mit unterschiedlichen Feldlängen als Textdatei speichern download Arbeitsmappe mit absoluten Werten unter neuem Namen speichern download
Text in NotePad schreiben, speichern, in Excel aufrufen download Sicherheitskopien von Arbeitsmappen speichern download
Arbeitsmappe 5 Sekunden nach dem Öffnen speichern und schließen download Tabellenblattbereich als Grafik speichern download
Blattschutz beim Speichern setzen download Eingetragenen Wert in TextBox speichern download
Zeilenweises Speichern von Texten download Tabellenblattdaten als Textdatei mit vorgegebenem Namen speichern download
Blätter in UserForm-ListBox auswählen und speichern download Filter vor Speichern zurücksetzen download
Blatt ohne Code, Steuerelement und Formeln speichern download Speichern ausschließlich über UserForm-Schaltfläche download
Speichern unter forlaufender Nummer download Daten in einer Textdatei ohne Anführungszeichen speichern download
Einzel-Arbeitsblätter einer Arbeitsmappe speichern. download Speichern-Befehl abfangen und unter Paßwort speichern download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download HTML-Seite aus dem Internet aufrufen und als Textdatei speichern download
Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download Beim Speichern Schaltfläche erstellen download
Speichern-Schaltfläche aktivieren/deaktivieren download Binärdatei aus dem Internet downloaden und speichern download
UserForm-TextBoxes-Texte in Textdateien speichern download Datei-Speichern-Dialog zusammen mit Paßwortdialog aufrufen download
Tabellenblattinhalte in getrennten Textdateien speichern download Buchstaben aus Textdatei entfernen und neu speichern download
Speichern-Dialog mit Dateinamen-Vorschlag aufrufen download Aktive Arbeitsmappe ohne VBA-Code und Button speichern download
Die Zeilen mit Wert in Spalte C als CSV-Datei speichern download Webabfrage periodisch aktualisieren und Ergebnisse speichern download
In einem Dialog ausgewählte Spalten drucken download Excel für die Zeit eines Dialogaufrufes ausblenden download
Dialog-Datumseingabe vereinfachen und kontrollieren download Adressdaten via Dialog in eine Adressdatei eintragen download
Bestellfax über Dialog download Bedingte Übergabe des Focus und Setzen der Schreibmarke im Dialog download
Dynamischen Dialog erstellen download Arbeitsmappe aus Dialog schließen download
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download Laufwerke im Dialog zur Auswahl anzeigen lassen download
Dialoggesteuerte Druckmehrblattauswahl download Offene Arbeitsmappen in Dialog listen download
Blattschutzdialog über VBA aufrufen download Assistent zum Dialog aufrufen und Eingaben auswerten download
Bei Dialoganzeige Blattauswahl wechseln download Datei auswählen, öffnen und Formelsuchdialog anzeigen download
Ordnerdialog mit nachfolgendem Dateidialog aufrufen download Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen download
Farbauswahldialog generieren, aufrufen und löschen download Über VBA den Excel-Sortierdialog aufrufen download
Dialog nach 3 Sekunden schließen download Dialogaufruf, wenn zwei Zellen Werte enthalten download
Aufruf des GetOpenFilename-Dialogs download Beim Öffnen Dialog mit Dateiname und Dateidatum download
Zahlen-Formatierungs-Dialog aus UserForm aufrufen download String mit Prüfziffer über Dialogeingabe erstellen download
Aus GetOpenFilename-Dialog eine Mehrfachauswahl auslesen download Anpassen-Dialog über VBA aufrufen download
Verknüpfungsdialog aus VBA aufrufen download Outlook-Maildialog aus UserForm aufrufen download
ComDlg-Dialog aufrufen download Verzeichnisdialog mit vorgegebenem Verzeichnis aufrufen download
Vorlagendialog beim Öffnen einer Arbeitsmappe aufrufen download Dateiauswahl-Dialog mit vorgegebenen Dateinamen aufrufen download
Suchdialog über VBA aufrufen download Word mit leerem Dokument und Druckdialog aufrufen download
Aufruf des Symbolleisten-Anpassen-Dialogs verhindern download Drucken aus einem DialogSheet download
Zusammenstellung der eingebauten Dialoge download SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen download
Makros in Abhängigkeit vom Zellennamen aufrufen download Makros zeitgesteuert aufrufen download
AddIn aus Makro aufrufen download Name der aufrufenden Schaltfläche abfragen download
Code aufrufen und löschen download Als Zellkontextmenü Listbox aufrufen download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Grafikprogramm aufrufen und Bild laden download
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download Wordmakro aus Excel heraus aufrufen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Aufrufende Menüleistenschaltfläche ermitteln download
Numerisch benanntes Arbeitsblatt 1+X aufrufen download Zu einer aufrufenden UserForm zurückkehren download
Verzeichnisbaum aufrufen und Verzeichnis auswählen download Kontextmenü zur Auswahl von Arbeitsblättern aufrufen download
Bei Wertüberschreitung Makro aufrufen download Tabellenblatt-Hyperlink über UserForm aufrufen download
Anwendung aufrufen und Makroausführung unterbrechen download Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download
In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen download Datenmaske mit landesspzifischen oder US-Formaten aufrufen download
Von zweiter UserForm die erste aufrufen download UserForm mit SpinButton zur Datenreiheneinstellung aufrufen download
Wert in Abhängigkeit der aufrufenden Schaltfläche eintragen download UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download
Programmsteuerung für mehrere aufrufende UserForms download Position der aufrufenden Schaltfläche ermitteln download
Bei Doppelklick aufrufende Zelle in UserForm nennen download Datenmaske mit einem bestimmten Datensatz aufrufen download
In der UserForm aufrufende Schaltfläche erkennen download Wordmakro mit Parameter aufrufen download
Aus verschiedenen Zellwerten zusammengesetzte Webadresse aufrufen download Datenmaske zur Aufnaheme des nächsten Satzes aufrufen download
Bei Zellauswahl UserForm mit Artikelnummern aufrufen download VBScript mit Parameter aus VBA aufrufen download
Bei Doppelklick AcrobatReader mit Datei aufrufen download