Access Grundlagen- Datenübergaben an Excel

Problem

Wie kann ich Daten aus dem Access an das Excel übergeben?

Lösung

Public sub Exceluerbergabe(vWert as Variant)
Dim oApp as Objekt
Set oApp = CreateObjekt("Excel.Application")
oApp.Visinle = True
oApp.Range("D7").Select
oApp.Selection.Value= vWert
End Sub