Makro - CSV einlesen
25.10.2007 14:56:14
WalterK
den nachstehenden Code habe ich vor längerer Zeit aus dem Forum bekommen. Damit will ich die Daten von 2 CSV-Dateien (früher einmal 4 Dateien) auslesen.
Jetzt wird mir ein Fehler angezeigt:
Laufzeitfehler 9: "Index außerhalb des gültigen Bereichs"
und es wird die Zeile "Sheets(arrStrings(intc, 0)).Range("A2:IV65536").ClearContents" gelb markiert!
Sub CSV_Import()
Application.ScreenUpdating = False
Dim arrStrings(2, 1) As Variant
Dim intc As Integer
Dim strPath As String
arrStrings(0, 0) = "FinanzAbgleichTabelle_Csv_Expor" ' Tabelle für Datei 1
arrStrings(0, 1) = "FinanzAbgleichTabelle_Csv_Export.csv" ' Name von Datei 1
arrStrings(1, 0) = "lohnzettelUebersichtTable_Csv_E" ' Tabelle für Datei 2
arrStrings(1, 1) = "lohnzettelUebersichtTable_Csv_Export.csv" ' Name von Datei 2
'arrStrings(2, 0) = "aufstellungSV_Csv_Export" ' deaktiviert
'arrStrings(2, 1) = "aufstellungSV_Csv_Export.csv" ' deaktiviert
'arrStrings(3, 0) = "FeststellungenUebersichtDienstn" ' deaktiviert
'arrStrings(3, 1) = "FeststellungenUebersichtDienstnehmerTabelle_Csv_Export.csv" ' _
deaktiviert
strPath = "C:\Dokumente und Einstellungen\wkussian\Eigene Dateien\" ' Pfad zu den _
Dateien
For intc = 0 To UBound(arrStrings)
Sheets(arrStrings(intc, 0)).Range("A2:IV65536").ClearContents
With Sheets(arrStrings(intc, 0)).QueryTables.Add(Connection:="TEXT;" & strPath & _
arrStrings(intc, 1) _
, Destination:=Sheets(arrStrings(intc, 0)).Range("A2"))
.Name = arrStrings(intc, 0)
.FieldNames = True
.PreserveFormatting = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = False
.AdjustColumnWidth = True
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
Sheets("Differenzen").Select
End With
Next
End Sub
Kann mir jemand weiterhelfen, wieso dieser Fehler kommt?
Besten Dank schon mal,
Servus, Walter
Anzeige