Hallo liebe VBA-Gemeinde,
ich möchte aus Outlook eine Excel-Datei öffnen und aus dieser den Wert der letzten befüllten Zelle
ermitteln. Das Öffnen und Schließen der Excel-Datei funktioniert einwandfrei.
Die Ermittlung des Wertes der letzten Zeile leider nicht. Ich gehe davon aus, dass ich in der Interaktion zwischen Outlook und Excel etwas übersehen habe.
Weiß wer Rat?
Der Code lautet:
Sub Excel_open_LaufendeNummer()
Dim dateiname As String
Dim oexcel As Object
Dim ws As Object
Dim wb As Object
dateiname = "C:\Eigene Dateien\........."
Set oexcel = CreateObject("excel.application")
Set wb = oexcel.workbooks.Open(dateiname)
oexcel.Visible = True
wb.Activate
Set ws = wb.sheets(1)
ws.Activate
letztezeile = ws.cells(Rows.Count, 1).End(xlUp).Row
'Fehlermeldung: Objekt erforderlich
oexcel.activeworkbook.Close SaveChanges:=True
oexcel.Quit
End Sub
Danke für Eure Antworten.
Gruß
tmessers
ich möchte aus Outlook eine Excel-Datei öffnen und aus dieser den Wert der letzten befüllten Zelle
ermitteln. Das Öffnen und Schließen der Excel-Datei funktioniert einwandfrei.
Die Ermittlung des Wertes der letzten Zeile leider nicht. Ich gehe davon aus, dass ich in der Interaktion zwischen Outlook und Excel etwas übersehen habe.
Weiß wer Rat?
Der Code lautet:
Sub Excel_open_LaufendeNummer()
Dim dateiname As String
Dim oexcel As Object
Dim ws As Object
Dim wb As Object
dateiname = "C:\Eigene Dateien\........."
Set oexcel = CreateObject("excel.application")
Set wb = oexcel.workbooks.Open(dateiname)
oexcel.Visible = True
wb.Activate
Set ws = wb.sheets(1)
ws.Activate
letztezeile = ws.cells(Rows.Count, 1).End(xlUp).Row
'Fehlermeldung: Objekt erforderlich
oexcel.activeworkbook.Close SaveChanges:=True
oexcel.Quit
End Sub
Danke für Eure Antworten.
Gruß
tmessers