Daten aus Excelmappe auslesen
08.04.2019 11:58:11
Niklas
ich versuche mich am Übernehmen von Werten aus einer automatisch geöffneten Excelmappe. Bisher macht die Übergabe der Werte und das Schließen der Mappe noch Probleme. Die Mappe soll geöffnet, die Daten ausgelesen und dannwieder geschlossen werden. Sieht jemand das Problem?
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
Freue mich auf jede Anmerkung,
LG Niklas