Excel-Funktionen in Access nutzen

Excel-Funktionen aufrufen

Nun können Sie alle Excel-Funktionen aufrufen. Sie werden über die Auflistung WorksheetFunction zur Verfügung gestellt. Mit dem Beispiel aus Listing 3 wird beispielsweise die Average-Funktion aufgerufen, die den Durchschnitt der drei übergebenen Zahlen berechnet und zurückgibt. Anstelle der Average-Funktion könnten Sie auch eine beliebige andere Funktion verwenden.

Sub Funktionaufrufen()
Dim objApp As Excel.Application
Set objApp = ExcelStarten()
Debug.Print objApp.WorksheetFunction.Average(65, 7, 9)
ExcelBeenden objApp
End Sub

Funktioniert Ihr Code wie gewünscht, sollten Sie zum Schluss noch den Verweis entfernen und alle Variablendeklarationen mit As Excel.Application zu As Object machen.

Function ExcelStarten() As Object
Dim objApp As Object
On Error Resume Next
Set objApp = GetObject(, "Excel.Application")
boolBeenden = False
If objApp Is Nothing Then
Set objApp = CreateObject("Excel.Application")
boolBeenden = True
End If
Set ExcelStarten = objApp
End Function
Sub Funktionaufrufen()
Dim objApp As Object
Set objApp = ExcelStarten()
Debug.Print objApp.WorksheetFunction.Average(65, 7, 9)
ExcelBeenden objApp
End Sub