Dateinamen auslesen und in Schleife verarbeiten
23.01.2006 11:53:20
Urmel-Online
ich habe mir einen Code zusammengebastelt mit welchem ich aus einem bestimmten Ordner einige .xls Dateien öffnen kann. Jetzt möchte ich aus einer bestimmten Tabelle, welche in jeder Datei gleich ist Daten ab einer bestimmten Zeile auslesen und in eine Stammdatei kopieren. Das Öffnen der gewünschten Dateien habe ich bereits hinbekommen:
Private Sub importieren_Click()
Dim n As Integer
varRetVal = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Eine oder mehrere Dateien zum Öffnen auswählen", _
MultiSelect:=True)
If IsArray(varRetVal) Then
On Error Resume Next
For n = LBound(varRetVal) To UBound(varRetVal)
Workbooks.Open varRetVal(n)
Next
On Error GoTo 0
End If
End Sub
Wer kann mir bei folgenden Fragen helfen:
1. Wie kann ich die geöffneten Dateien (Namen sind immer unterschiedlich) nacheinander in eine Schleife einbauen damit ich z.B. zunächst Daten aus der geöffnete Datei 1 in die Masterdatei kopiere, anschließend aus Datei 2 etc.
2. Wie muß ich die Zeile aus der zu kopierenden Tabelle adressieren, damit ich
ab dieser Zeile den Rest in die Masterdatei kopieren kann ?
Hilfe von Euch wäre wirklich super !
VG
Urmel
Anzeige