Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
csv Datei einlesen
21.04.2006 19:03:19
jens
Hallo
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv Datei einlesen
21.04.2006 20:06:30
Solaiman
Hallo Jens,
dafür brauchst du doch kein VBA!
CSV über
Menü Daten - Externe Daten importieren - Daten importieren
mit Excel verbinden. Jedesmal wenn du es aktualisieren wills, kannst du es mit
rechten Maustaste auf dem Bereich - Kontextmenü - Daten aktualisieren" aktualisieren.
Gruß
Solaiman
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige