Hallo Leute!
Ich möchte mit GetObject() Exceldateien unsichtbar öffnen um dann daraus Daten in eine andere Exceldatei zu übertragen. Nachfolgend mal der Code, wie ich das versucht habe.
For Each objDateityp In objDateien.Files
GetObject (strVerzeichnis & objDateityp.Name)
With Workbooks(objDateityp.Name).Sheets("August2013")
lngLastRowAuftrag = .Cells(Rows.Count, 15).End(xlUp).Row
'letzte laufende Nummer in Hilfstabelle eintragen
wksHilfstabelle.Cells(lngRowAuftragGesichert, 4) = .Cells(lngLastRowAuftrag, 1)
'letzte Zeilennummer in Hilfstabelle eintragen
wksHilfstabelle.Cells(lngRowAuftragGesichert, 5) = lngLastRowAuftrag
End With
Next
Ich erhalte hier aber eine Laufzeitfehlermeldung 1004 „Anwendungs- und Objektdefinierter Fehler“ in der Zeile
lngLastRowAuftrag = .Cells(Rows.Count, 15).End(xlUp).Row
und weiß nicht so ganz warum. Kann ich das, also das Auslesen von Daten aus einer ausgeblendeten Datei, eventuell gar nicht so realisieren, wie ich mir das vorstelle?
Für jede Hilfe bin ich dankbar,
Kasimir