ich möchte Daten aus einer excel-Datei (xlsx) in eine bestehende xlsm-Datei einlesen und dort weiterverarbeiten.
Die Quell-Excel-Datei möchte ich vorher über den Explorer auswählen.
Ich habe mir dazu folgendes coding (zugegebenmassen teilweise zusammenkopiert aus dem forum) zusammengebastelt.
Aber ich bekomme den Fehlercode 13 zurück.
Ich kann die Quell-Datei auswählen, die dann auch geöffnet wird, aber ab dann ist Essig....
Hier der Code:
#####################################
Sub test()
Dim Quelle As Object
Dim Ziel As Object
Dim Datei As String
On Error GoTo Fehler
'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xl*),*xl*")
'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
MsgBox "Ausgewählte Datei: " & Datei, , ""
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei
'** Auslesen der gewählten Tabelle
Set Quelle = ActiveWorkbook.Worksheets(Tabelle1) 'Liegt hier der Fehler ?
Set Ziel = ThisWorkbook.Worksheets(3) 'Warum (3) ?
'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)
ActiveWorkbook.Close
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
Exit Sub
Fehler:
Set Quelle = Nothing
Set Ziel = Nothing
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub
###################################
Gruß
Günter