Variable Pfadeingabe bei

Forumthread: Variable Pfadeingabe bei

23.05.2006 17:10:36

Michael

Hallo zusammen.
Ich habe folgendes Problem:
ich starte von Exel per makro ein bestimmtes Worddokument.
Dieses Word-Dokument liegt nicht an der gleichen Stelle wie das Exel-Dokument.
Das funktioniert.
da das Exelprogramm auch auf einem amderen Computer laufen soll ändert sich somit der Verzeichnisbaum. Da ich aus dem erwähnten Exelprogramm mindestens 10verschiedene Word-Dokumente öffne, wäre es gut, wenn ich an einer Stelle einmal den Pfad bzw. Teile davon vorgeben könnte und ich nicht mehr jedes Makro manuell ändern muss. Wäre schön wenn mir da jemand helfen könnte. Danke im Vorraus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Variable Pfadeingabe bei

24.05.2006 06:41:12

marcl
AW: Variable Pfadeingabe bei

24.05.2006 10:54:49

Michael
AW: Variable Pfadeingabe bei

24.05.2006 10:55:04

Michael
AW: Variable Pfadeingabe bei

24.05.2006 13:32:50

marcl

AW: Variable Pfadeingabe bei

24.05.2006 06:41:12

marcl

Hallo Michael,
da gibt es mehrere Möglichkeiten


Sub test()
Workbooks.Open Filename:= _
"C:\Ablagen\Tabellen\ExcelMakros\test.xls"
End Sub


Sub test()
pfadname = "C:\Ablagen\Tabellen\ExcelMakros\test.xls"
Workbooks.Open Filename:=pfadname
End Sub


Sub test()
pfadname = "C:\Ablagen\Tabellen\"
Workbooks.Open Filename:=pfadname & "ExcelMakros\test.xls"
End Sub


Sub test()
ort = "C:\"
Ordner = "Ablagen\Tabellen\"
Workbooks.Open Filename:=ort & Ordner & "ExcelMakros\test.xls"
End Sub


Sub test()
ort = "C:"
Ordner = Sheets("Tabelle1").Range("A1")
Workbooks.Open Filename:=ort & "\" & Ordner & "\ExcelMakros\test.xls"
End Sub

Ich hoffe, ich konnte Dir helfen.
Gruß
marcl

AW: Variable Pfadeingabe bei

24.05.2006 10:54:49

Michael

Danke für die Hilfe,
alledings muss ich ein Word.Dokument öffnen und kein Exel-Dokument.
wÄRE GUT WENN MIR DA NOCH jemand helfen könnte

AW: Variable Pfadeingabe bei

24.05.2006 10:55:04

Michael

Danke für die Hilfe,
alledings muss ich ein Word.Dokument öffnen und kein Exel-Dokument.
wÄRE GUT WENN MIR DA NOCH jemand helfen könnte

AW: Variable Pfadeingabe bei

24.05.2006 13:32:50

marcl

Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim dName$
dName = "C:\Test.doc"
On Error GoTo w
AppActivate "Microsoft Word"
Set WordObj = Word.Application
GoTo n
w:
Set WordObj = CreateObject("Word.Application")
n:
Set WordDoc = WordObj.Documents.Open(dName)
WordObj.Visible = True

Beliebteste Forumthreads (12 Monate)

Forumthread: Variable Pfadeingabe bei

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread