Textdatei als Endlosschleife einlesen (2)

Hallo Fennek,
hier nun die Weiterleitung von dem letzten Beitrag:
https://www.herber.de/cgi-bin/callthread.pl?index=1523976
Frage am Rande: Warum verschwindet ein Beitrag, der nicht "fertig" war?
Egal, weiter zu deinen offenen Fragen:
Die 3 Dateien stammen von 3 Messgeräten, die simultan auf verschiedenen Positionen messen. Es entstehen also etwa alle 2 Sekunden alle 3 Dateien neu. Allerdings kann man diese Zeit in der Messsoftware einstellen, so dass auch längere Intervalle denkbar sind. Ich hatte in der ursprünglichen Frage 2 Varianten angesprochen:
1. Prüfen ob Quelldatei ein neues Änderungsdatum hat?
oder 2. Einlesen mit fest definiertem Zeitinterval?
Welche Variante ist für VBA die elegantere?
Viele Grüße,
Rainer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer,
hier der Entwurf eines Codes zum Einlesen von 3 csv-Dateien, die alle ca 2 Sekunden erneuert werden. Falls in xl Eingaben von Hand gemacht werden, kann dies das Timing stören.
Bitte versuche zuerst den Code zu verstehen und nimm die nötigen Anpassungen, z.B. Pfad oder die Wiederholungsrate, vor.
Wenn das Einlesen klappt, die Berachnung liegt ja bereits vor, kann man den Export der Ergebnisse anhängen. Falls möglich wären längere Intervalle (10 Sekunden?) besser.


Public Datei(2) As String
Public SpeicherZeit(2) As Date
Sub Start()
'starten BEVOR das Messen beginnt
Dim i As Integer
Datei(0) = "c:\tmp\x1.csv"
Datei(1) = "c:\tmp\x2.csv"
Datei(2) = "c:\tmp\x3.csv"
For i = 0 To 2
SpeicherZeit(i) = FileDateTime(Datei(i))
Next i
End Sub
Sub Einlesen()
Dim i As Integer
Dim WB As Workbook
Dim Import As Worksheet
Set Import = ThisWorkbook.Sheets("Import")
Debug.Print "neu"
Sp = Array(2, 5, 8)
For i = 0 To 2
If FileDateTime(Datei(i)) > SpeicherZeit(i) Then
Set WB = Workbooks.Open(Datei(i), , , , , , , , ",")
lr = WB.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
WB.Sheets(1).Range(WB.Sheets(1).Cells(1, 1), WB.Sheets(1).Cells(lr, 2)).Copy Import. _
Cells(8, Sp(i))
Import.Cells(6, Sp(i)) = WB.Sheets(1).Name
SpeicherZeit(i) = FileDateTime(Datei(i))
WB.Close
Set WB = Nothing
End If
DoEvents
Next i
If Import.Cells(1, 1) = 0 Then Application.OnTime Now + TimeValue("00:00:02"), "Einlesen"
End Sub

mfg

Beliebteste Forumthreads (12 Monate)

Textdatei als Endlosschleife einlesen (2)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdatei als Endlosschleife einlesen (2)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread