csv Datei einlesen
21.04.2006 19:03:19
jens
Im Moment lese ich meine csv Dateien per Makro ein.
Die csv Dateien haben im duchschnitt 800 bis 1500 Zeilen.
Jede 30-40 sek. wird eine neue zeile in der csv Datei geschrieben.
Davon gibt es 4 Stück die ich jedesmal einlesen muss.
Dauer immer ziehmlich lange.
Nun Meine Frage.
Ist es möglich wenn sich eine csv Datei aktualisiert, die letzte zeile der csv Datei automatisch in Excel zu importieren?
danke
Jens
Mit diesem Makro bewerkstellige ich jetzt das einlesen.
Sub halbauto()
Sheets("Import").Activate
Dim s As Range
If Range("m10").Value = "" Then
MsgBox "Kein Pfad zu RA1 vorhanden"
Exit Sub
End If
If Range("m11").Value = "" Then
MsgBox "Kein Pfad zu RA2 vorhanden"
Exit Sub
End If
If Range("m12").Value = "" Then
MsgBox "Kein Pfad zu RA2 vorhanden"
Exit Sub
End If
If Range("m13").Value = "" Then
MsgBox "Kein Pfad zu RA2 vorhanden"
Exit Sub
End If
Sheets("Import").Range("B3:H6000").Clear
Dim rngQ As Range
Dim wbQ As Workbook ' Q für Quelle
Dim wbZ As Workbook ' Z für Ziel
Dim wsQ As Worksheet
Dim wsZ As Worksheet
Dim zeileZ As Long
Dim i As Integer
Set wbZ = ThisWorkbook
Set wsZ = wbZ.Worksheets(1)
zeileZ = 3
On Error Resume Next 'falls Datei nicht existiert
For i = 10 To 13
Workbooks.OpenText FileName:=Range("m" & i), _
DataType:=xlDelimited, semicolon:=True
Set wbQ = ActiveWorkbook
Set wsQ = wbQ.Worksheets(1)
Set rngQ = wsQ.UsedRange
rngQ.Copy Destination:=wsZ.Cells(zeileZ, 2)
zeileZ = wsZ.Cells(wsZ.Rows.Count, 2).End(xlUp).Row + 1
wbQ.Close Savechanges:=False
Next i
Sheets("Auswertung").Activate
End Sub
Anzeige