Hallo zusammen,
ich bin derzeit folgende Datei
Dim Exportfile As String
Dim LastRow As Integer
Dim iRow As Integer
Dim iCol As Integer
Dim ExportDatei
Dim Export_TXT As String
Exportfile = "C:\WSWIN\ws_merge.csv"
ExportDatei = FreeFile
LastRow = ActiveSheet.UsedRange.Rows.Count
Open Exportfile For Output As #ExportDatei
For iRow = 1 To LastRow
For iCol = 1 To ActiveSheet.UsedRange.Columns.Count
Export_TXT = Export_TXT & CStr(ActiveSheet.Cells(iRow, iCol).Text) & ","
Next iCol
Export_TXT = Left(Export_TXT, Len(Export_TXT) - 1)
Print #ExportDatei, Export_TXT
Export_TXT = ""
Next iRow
Close #ExportDatei
ActiveWorkbook.Close savechanges:=False
Application.OnTime Now + TimeSerial(0, 5, 0), "PERSONAL.XLSB!envoy"
End Sub
alle 5 Minuten via Excel Makro am anpassen.
Die csv- Datei selbst ändert sich immer genau alle 5 Minuten und wird in dem Verzeichnis aktualisiert.
Komischerweise sind die "VB-5 Minuten" nie genau 5 Minuten, sondern 4:58 - d.h. ich bin hier nicht exakt.
D.h. ich habe alle 5 Minuten eine um 2 Sekunden sich erhöhende Abweichung.
Meine Idee ist nun diese Datei mittel VB zu überwachen und immer dann wenn sich die Datei bzw. der Zeitstempel ändert die im Code beschriebenen Änderungen durchzuführen. Ist das möglich? Falls ja welchen Ausdruck muss ich verwenden?
Gruß
Stefan
|