VBA auslesen von Dateien ohne sie zu öffnen
09.10.2013 20:43:38
Dateien
Ich habe hier im Archiv folgendes Programm gefunden, was auch an sich gut funktioniert:
Sub AuslesenGeschlDatei()
Dim rng As Range, _
sFile As String, sPath As String, _
oldStatusBar As Boolean
Application.ScreenUpdating = False
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
sFile = "quelle.xls"
sPath = ThisWorkbook.path & "\"
Application.StatusBar = "Daten werden importiert. Bitte warten..."
With Sheets(1)
.Range("A1:E100").Formula = "='" & sPath & "[" & sFile & _
"]Tabelle1'!A1:E100"
Set rng = .Range("A1:E100")
End With
rng.Cells(1).Copy rng
rng.Value = rng.Value
Application.ScreenUpdating = True
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
Allerdings müsste ich für meine Zwecke noch ein paar Änderungen vornehmen, weiß allerdings nicht so genau wie.
Also ich habe schon geändert, dass der Pfad für die auszulesende Datei woanders ist und kann das gut kontrollieren.
Der Bereich den ich auslesen will ist A5:BO97 und ist im Tab:"Auswert." (momentan noch volle Breitseite, soll zukünftig auch anders werden, aber momentan ist die "Quick&Dirty" Methode zielführend :-)
Wenn ich das so abändere sind die auszulesenden Daten ja logischerweise an der selben Stelle. Ich brauch sie aber woanders und zwar soll A5(Quelldatei) an die Stelle B3 kommen und so weiter und der Tab heißt "CC2_DB".
Habe schon diverses probiert, allerdings komme ich mit meinem sehr jungfräulichen Wissen da nicht weiter und für die Pros unter euch ist das bestimmt echt easy.
Bedanke mich schonmal im Vorfeld und freue mich auf die weitere Kommunikation.
Gruß
Anzeige