Excel Makro aus Outlook starten
26.05.2009 12:05:07
Jogi
ich bin gerade am verzweifeln, kann mir vielleicht jemand helfen?
Ich versuche gerade aus dem Outlook eine Excel-Datei zu öffnen (das gelingt mir auch schon) und möchte dann, das darin enthaltene Makro starten.
Wie geht das?
Hier schon mein bisheriger Code:
Dieser Code habe ich in Outlook eingebaut:
Sub ExcelBearb()
'Sub ExcelBearb(Pfad As String)
' Diese Funktion startet Befehle in der
' mitgegebenen Excel-Datei.
' Nach Ausführung der Befehle wird die Exceldatei wieder
' geschlossen.
Dim xlApp As Object ' Excel.Application
Dim xlBook As Object 'Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet
Dim objcell As Object
Pfad = "m:\WSC\Admi\Abteilung\T\DB\OBVS.xls"
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0
'xlApp.Visible = True ' Testphase
Set xlBook = xlApp.Workbooks.Open(Pfad)
Set xlSheet = xlBook.Worksheets(1)
With xlSheet
' hier beliebige Excelfunktionen einbauen
xlBook.Call obvs.obvs
Was mache ich falsch, kann mir hier jemand helfen?
Vielen Dank.
Gruß Jogi
Anzeige