Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1112to1116
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
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige