Daten aus Excelmappe auslesen

Dim Hauptmappe As Object
Dim Daten As Object
Dim strFileName As Variant
Set Hauptmappe = ThisWorkbook
strFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Arbeitsblatt(*.xlsx), *. _
xlsx")
Set Daten = CreateObject("Excel.Application")
Daten.Visible = True
Daten.Workbooks.Open strFileName
'kundenname aus Dokument
Hauptmappe.Worksheets("Rechnung_bearbeiten").Cells(9, 3).Value = Daten.Sheets(1).Range("B7"). _
Value
'....nachfolgend noch weitere Datenübergaben
'In einigen Versuchen wurden die Werte nicht übergeben, seltsamerweise in Abhängigkeit vom  _
nachfolgendem Code:
Daten.Workbooks.Quit
'Daten.close SaveChanges:=False
Set wb = Nothing
'Das schließen der zusätzlichen Mappe funktioniert nicht: FM 438, Objekt unterstützt die  _
Eigenschaft oder Methode nicht