Workbooks.Open Filename:="C:\temp\test.xls"
Application.ScreenUpdating = False
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub test()
Dim strFile As String, strTab As String, strRef As String
strFile = "E:\Forum\letzteZeile.xlsx" 'Datei
strTab = "Tabelle1" 'Tabelle
strRef = "A:A" 'Bereich
MsgBox lastRowClosedFile(strFile, strTab, strRef)
End Sub
Private Function lastRowClosedFile(FileName As String, SheetName As String, TargetRange As String) As Long
Dim objADO As Object
On Error Resume Next
Set objADO = ExcelTable(FileName, SheetName, TargetRange)
lastRowClosedFile = objADO.RecordCount + 1
objADO.Close
End Function
Private Function ExcelTable(ByRef Path As String, ByRef Table As String, ByRef SourceRange As String) As Object
Dim SQL As String
Dim Con As String
SQL = "select * from [" & Table & "$" & SourceRange & "]"
If Mid(Path, InStrRev(Path, ".") + 1) = "xls" Then
Con = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Extended Properties=Excel 8.0;" _
& "Data Source=" & Path & ";"
ElseIf Mid(Path, InStrRev(Path, ".") + 1) Like "xls?" Then
Con = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Extended Properties=""Excel 12.0;HDR=YES"";" _
& "Data Source=" & Path & ";"
Else
Exit Function
End If
Set ExcelTable = CreateObject("ADODB.Recordset")
ExcelTable.Open SQL, Con, 3, 1
End Function
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub test()
Dim strFile As String, strTab As String, strRef As String
strFile = "E:\Forum\letzteZeile.xlsx" 'Datei
strTab = "Tabelle1" 'Tabelle
strRef = "A:A" 'Bereich
MsgBox lastCellClosedFileValue(strFile, strTab, strRef)
End Sub
Private Function lastCellClosedFileValue(FileName As String, SheetName As String, TargetRange As String) As Variant
Dim objADO As Object
Dim lngCount As Long
On Error Resume Next
Set objADO = ExcelTable(FileName, SheetName, TargetRange)
With objADO
lngCount = .RecordCount
.Move lngCount - 1
lastCellClosedFileValue = .Fields(0)
.Close
End With
Set objADO = Nothing
End Function
Private Function ExcelTable(ByRef Path As String, ByRef Table As String, ByRef SourceRange As String) As Object
Dim SQL As String
Dim Con As String
SQL = "select * from [" & Table & "$" & SourceRange & "]"
If Mid(Path, InStrRev(Path, ".") + 1) = "xls" Then
Con = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Extended Properties=Excel 8.0;" _
& "Data Source=" & Path & ";"
ElseIf Mid(Path, InStrRev(Path, ".") + 1) Like "xls?" Then
Con = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Extended Properties=""Excel 12.0;HDR=YES"";" _
& "Data Source=" & Path & ";"
Else
Exit Function
End If
Set ExcelTable = CreateObject("ADODB.Recordset")
ExcelTable.Open SQL, Con, 3, 1
End Function
Um die letzte benutzte Zeile aus einer geschlossenen Excel-Datei zu ermitteln, kannst du den folgenden VBA-Code verwenden. Dieser öffnet die Datei im Hintergrund, ermittelt die letzte Zeile und schließt die Datei anschließend wieder.
ALT + F11, um den VBA-Editor zu starten.Einfügen > Modul.Option Explicit
Sub Test()
Dim strFile As String, strTab As String, strRef As String
strFile = "C:\temp\test.xls" ' Dateipfad anpassen
strTab = "Tabelle1" ' Tabellenname anpassen
strRef = "A:A" ' Bereich anpassen
MsgBox LastRowClosedFile(strFile, strTab, strRef)
End Sub
Private Function LastRowClosedFile(FileName As String, SheetName As String, TargetRange As String) As Long
Dim objADO As Object
On Error Resume Next
Set objADO = ExcelTable(FileName, SheetName, TargetRange)
LastRowClosedFile = objADO.RecordCount + 1
objADO.Close
End Function
Private Function ExcelTable(ByRef Path As String, ByRef Table As String, ByRef SourceRange As String) As Object
Dim SQL As String
Dim Con As String
SQL = "select * from [" & Table & "$" & SourceRange & "]"
If Mid(Path, InStrRev(Path, ".") + 1) = "xls" Then
Con = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & Path & ";"
ElseIf Mid(Path, InStrRev(Path, ".") + 1) Like "xls?" Then
Con = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Extended Properties=""Excel 12.0;HDR=YES"";" & _
"Data Source=" & Path & ";"
Else
Exit Function
End If
Set ExcelTable = CreateObject("ADODB.Recordset")
ExcelTable.Open SQL, Con, 3, 1
End FunctionTest-Makro aus, um die letzte Zeile zu ermitteln.Fehler: "Datei nicht gefunden"
Lösung: Überprüfe den Dateipfad und stelle sicher, dass die Datei existiert.
Fehler: "Zugriff verweigert"
Lösung: Stelle sicher, dass die Datei nicht von einem anderen Programm geöffnet ist.
Fehler: "Typen unverträglich"
Lösung: Überprüfe, ob der Dateipfad und die Tabellennamen korrekt angegeben sind.
Falls du die Datei nicht öffnen möchtest, kannst du auch eine CSV-Datei verwenden, die einfach zu lesen ist. Eine weitere Methode wäre, die Excel-Daten in eine Access-Datenbank zu importieren und dann die letzte Zeile über SQL-Abfragen zu ermitteln.
Ermitteln der letzten Zeile in "Tabelle2":
Ändere die Zeile strTab = "Tabelle1" in strTab = "Tabelle2".
Bereich für mehrere Spalten:
Wenn du den Bereich auf mehrere Spalten erweitern möchtest, passe strRef = "A:C" an.
Verwende Application.ScreenUpdating = False, um das Flackern des Bildschirms zu vermeiden, während die Datei geöffnet wird. Vergiss nicht, es am Ende wieder auf True zu setzen.
Überlege, wie du mit großen Datenmengen umgehen kannst. Möglicherweise möchtest du die Daten in einem separaten Arbeitsblatt aggregieren.
1. Kann ich die letzte Zeile ohne VBA ermitteln?
Nein, das Ermitteln der letzten Zeile aus einer geschlossenen Excel-Datei erfordert in der Regel VBA oder externe Tools.
2. Funktioniert dieser Code mit Excel 365?
Ja, der Code sollte in Excel 365 sowie anderen Versionen von Excel funktionieren, solange die VBA-Unterstützung aktiviert ist.