Tabellenblatt von einem anderen Excel Dokument auslesen (VBA)

Dim oFileApp As Excel.Application: Set oFileApp = CreateObject("Excel.Application")
Dim oFile As Excel.Workbook
Dim vDaten As Variant
Dim vName As String
Dim vLastRow, vLastCol As Long

//vName = "../Pfad/Datei.xls"
Set oFile = oFileApp.Workbooks.Open(vName)
vLastRow = oFile.Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
vLastCol = oFile.Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
If vLastRow < 1 Then
   MsgBox "Keine Daten in gewählter Datei."
   // ... 
   //Exit Sub oder goTo ...
End If
vDaten = oFile.Sheets(1).Range(oFile.Sheets(1).Cells(1, 1), oFile.Sheets(1).Cells(vLastRow, vLastCol))
oFile.Close savechanges:=False
Set oFile = Nothing
oFileApp.Quit
Set oFileApp = Nothing

0

0