Herbers Excel-Forum - das Archiv

Externer Prozeduraufruf

Bild

Betrifft: Externer Prozeduraufruf
von: Pascal

Geschrieben am: 31.03.2005 17:06:12
Hallo,
Ich Versuche einen Aufruf eines Makros in einer anderen Arbeitsmappe ohne Parameterübergabe.
Leider kann das VBA die Excel Datei nicht finden und öffnen. Die Pfadangabe habe ich auch schon über einen UNC "\\Server\mappe1.xls" Pfad Probiert, leider ohne Erfolg!
Was mache ich falsch?
Gruss Pascal
Sub CallWkbA()
Dim sFile As String
Dim wkb As Workbook
sFile = "H:\mappe1.xls"
On Error Resume Next
Set wkb = Workbooks(sFile)
On Error GoTo 0
If wkb Is Nothing Then
MsgBox "Die Testarbeitsmappe " & sFile & " wurde nicht gefunden!"
Else
Run sFile & "!test"
End If
End 
Sub
Bild

Betrifft: AW: Externer Prozeduraufruf
von: EffHa
Geschrieben am: 31.03.2005 18:07:02
Hallo Pascal
Versuchs mal so:
Dim sFile As String
Dim wkb As Object

sFile = "H:\mappe1.xls"
On Error Resume Next
Set wkb = GetObject(sFile)
Bild

Betrifft: AW: Externer Prozeduraufruf
von: Mischa Richter
Geschrieben am: 01.04.2005 05:00:40
sFile = "H:\mappe1.xls"
'datei ersma finden:
if dir(sfile)="" then
msgbox "datei nicht gefunden!"
exit sub
endif

'und dann den tip des anderen kollegen folgen.
mischa
Bild

Betrifft: AW: Externer Prozeduraufruf
von: Pascal

Geschrieben am: 01.04.2005 08:55:51
Hallo und Danke für die Antworten.
Leider hat das auch nicht so richtig funktioniert.
Es funktioniert nur wenn das File im gleichen Verzeichniss liegt.
Kann es sein das ich erst einen Pfad oder mein Aktuelles Laufwerk ändern muss?
Ich habe es jetzt mit Application.Open("C:\bgfg.xls") gelöst.
Danke und Gruss
 Bild
Excel-Beispiele zum Thema "Externer Prozeduraufruf"
Wert in externer Mappe suchen und mit Format übernehmen. Symbolleiste zum Aufruf externer Anwendungen erstellen