Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Application.Run

Forumthread: Application.Run

Application.Run
Philipp
Hallo zusammen.
Ich möchte eine Procedur von einer anderen Datei aus aufrufen.

Sub test
dim datei as variant
datei= U:\Test\test.doc
Application.Run (Datei  &"."& "Modul2" & "."&"start")
End Sub

In der anderen Datei gibt es ein Modul2 und in diesem ein 'Sub namens Start.
Jedoch kommt immer eine Fehlermeldung. Woran kann das liegen?
Danke im Voraus
Philipp
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
datei= "U:\Test\test.doc" ?owT.
09.11.2009 15:56:03
robert
AW: datei= "U:\Test\test.doc" ?owT.
09.11.2009 16:00:56
Philipp
Application.Run (datei &"."& "Modul2" & "."&"start")
datei kleingeschrieben natürlich.
Was meinst du mit owT
AW: datei= "U:\Test\test.doc" ?owT.
09.11.2009 16:03:33
robert
hi,
hast du meine betreffzeile genau gelesen ?
vorne " und hinten "
owT bedeutet allgemein-ohne weiteren Text
gruß
robert
Anzeige
AW: Application.Run
09.11.2009 15:59:21
IngGi
Hallo Philipp,
versuch mal
Application.Run Datei & "!start")
Gruß Ingolf
AW: Application.Run
09.11.2009 16:08:46
Philipp
Geht nicht alles nicht
hier der orginal syntax
Private Sub Document_Open()
Dim Datei2 As Variant
Datei2 = ActiveDocument.Path
If Datei2 = False Then Exit Sub
Datei = Datei2 & "\" & "links.doc"
MsgBox Datei
Application.Run (Datei & "!Modul2" & "!start")
End Sub

Anzeige
AW: Application.Run
09.11.2009 16:31:26
IngGi
Hallo Philipp,
dass das Word ist, fällt mir erst jetzt auf. Da du in einem Excelforum postest, nehme ich mal an, das Makro "start" soll von Excel aus gestartet werden. Das könnte dann zum Beispiel so aussehen:
Dim datei As String
Dim wdApp As Object
datei = "C:\Test.doc"
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
With wdApp
.Documents.Open Filename:=datei
.Run datei & "!start"
End With
Gruß Ingolf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige