AW: Auslesen von Daten aus geschlossenen Exceldateien
Daten
Hallo Stefan,
dieser Code liest Daten der Mappe1/Tabelle1/A1:E100,
die Mappe muss im gleichen Verzeichnis sein.
Gruss Beni
Sub Daten_aus_ungeöffneter_Datei1()
Dim sFile, sPath As String
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
sFile = "Mappe1.xls"
sPath = ThisWorkbook.Path & "\"
With Sheets(1)
Application.ScreenUpdating = False
Application.StatusBar = "Daten werden inportiert. Bitte warten..."
Range(Cells(1, 1), Cells(100, 5)).Formula = "='" & sPath & "[" & sFile & "]Tabelle1'!A1:e100"
Set rng = Range(.Cells(1, 1), .Cells(100, 5))
rng.Cells(1).Copy rng
rng.Value = rng.Value
Application.ScreenUpdating = True
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End With
End Sub