Hey,
ich versuche eine Schaltfläche in einer Excel-Datei so mit VBA-Text zu hinterlegen, dass bei Klick auf diese Schaltfläche eine Word- oder eine PowerPoint-Datei aus demselben Ordner, in dem auch die Excel-Datei ist, zu öffnen.
Mein Problem ist auch, dass ich die Datei später auf CD brenne und dass die CD-Laufwerke doch immer anders bezeichnet werden. Ich weiß nicht, wie ich den Dateipfad angeben kann.
Ich hoffe, ihr könnt mir helfen, es ist wirklich dringend.
lg
Hallo,
ich habe hier mal eine kleine Lösung für dich zusammengebaut.
_Sub openDocument()
Dim oWord As Object
Set oWord = CreateObject(„Word.Application“)
oWord.Visible = True
oWord.documents.Open ActiveWorkbook.Path & „\Test.doc“
End Sub_
ActiveWorkbook.Path gibt den Pfad zur Excel-Arbeitsmappe wieder, in der du gerade arbeitest.
Ich hoffe, das hilft dir weiter.
Gruß
sweidner
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo sweidner,
_Sub openDocument()
Dim oWord As ObjectSet oWord = CreateObject(„Word.Application“)
oWord.Visible = True
oWord.documents.Open ActiveWorkbook.Path & „\Test.doc“
End Sub_
Das funktioniert, vielen Dank! Aber der öffnet die Datei jetzt nur, wie kann man die denn so zu sagen in den Vordergrund stellen?
Vielleicht hast du ja noch eine Idee.
Trotzdem tausend Dank!
Patrick
Hallo Patrick,
hast du die Zeile
oWord.Visible = True
auch übernommen? Bei mir wird die Datei im Vordergrund geöffnet.
Gruß
sweidner
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo sweidner
hast du die Zeile
oWord.Visible = True
auch übernommen? Bei mir wird die Datei im Vordergrund
geöffnet.
Ich habe die Zeile übernommen. Die Datei wird aber nicht im Vordergrund geöffnet. Aber das is jetzt egal, is nicht schlimm.
Noch mal tausen Dank
Patrick