Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worddatei mit vorgegeb. Pfad speichrn

Worddatei mit vorgegeb. Pfad speichrn
06.06.2007 11:04:00
marcl
Hallo Excelfreunde,
ich komme nicht weiter.
Ich habe eine Reihe von Worddateien, die ich auslese und öffne. Nun möchte ich die Dokumente in einem bestimmten Ordner Speichern.

Sub test()
pfadname = Range("A101")
Dim wd As Object
Set wd = CreateObject("word.Application")
Dim wrdFileName As String
monat = Range("A200")
Jahr = Format(Date, "YYYY")
Application.DisplayAlerts = False
wrdFileName = ".../" & Jahr & monat & "/a_" & Range("A6") & ".doc"
CreateObject("word.application").Documents.Open(wrdFileName).Application.Visible = True
'hier mein Problem:
wd.ActiveDocument.SaveAs Filename = pfadname
End Sub


Was ist daran falsch?
Gruß
marcl

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

Betreff
Datum
Anwender
Anzeige
AW: Worddatei mit vorgegeb. Pfad speichrn
06.06.2007 14:25:11
Original
Entweder:
wd.ActiveDocument.SaveAs Filename:= pfadname
oder
wd.ActiveDocument.SaveAs pfadname
mfg Kurt

AW: Worddatei mit vorgegeb. Pfad speichrn
06.06.2007 14:38:00
fcs
Hallo Marcl,
ich Blicke bei dem Textstring wrdFileName nicht ganz durch. Müssten die "/" nicht "\" als Trennzeichen für Ordner im Dateinamen?
"/" ist in Dateinamen normalerweise nicht zulässig.
Außerdem sind die mir die 3 Punkte zu Beginn des Dateianmens sehr suspekt.
Mit folgenden Anpassungen sollte das Ganze halbwegs funktionieren. wobei du für docPath natürlich eine entsprechende Festlegung treffen muss. Zusätzlich muss du ggf. noch im Excel-VBA-Editor unter Extras den Verweis auf die Microsoft Word x.y Object Library aktivieren.

Sub test()
Dim wd As Object, Dokument As Word.Document, pfadname$, monat, Jahr$, docPath$
Dim wrdfilename As String
Set wd = CreateObject("word.Application")
pfadname = Range("A101")
monat = Range("A200")
Jahr = Format(Date, "YYYY")
Application.DisplayAlerts = False
docPath = ActiveWorkbook.Path
wrdfilename = docPath & "\" & Jahr & monat & "\a_" & Range("A6") & ".doc"
Set Dokument = wd.Documents.Open(wrdfilename)
wd.Visible = True
'hier mein Problem:
Dokument.SaveAs FileName:=pfadname & "\" & wd.ActiveDocument.Name
Dokument.Close
wd.Application.Quit
Set wd = Nothing
End Sub


Falls du tatsächlich nur die Worddokumnet in einem anderen Verzeichnis speichern willst, dann reicht es ggf. aus sie einfach zu kopieren ohne den Umweg über Word.


Sub testMove()
Dim pfadname$, monat, Jahr$, docPath$
Dim wrdfilename As String
pfadname = Range("A101")
monat = Range("A200")
Jahr = Format(Date, "YYYY")
Application.DisplayAlerts = False
docPath = ActiveWorkbook.Path
wrdfilename = Jahr & monat & "\a_" & Range("A6") & ".doc"
VBA.FileCopy Source:=docPath & "\" & wrdfilename, _
Destination:=pfadname & "\" & "a_" & Range("A6") & ".doc"
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige