Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable Pfadeingabe bei

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
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige