Thema Datum  Von Nutzer Rating
Antwort
Rot Aktion wenn Datei sich ändert
 09.01.2012 13:13:26 Stefan
NotSolved

Ansicht des Beitrags:
Von:
Stefan		 Datum:
09.01.2012 13:13:26		 Views:
2374		 Rating:
     
Antwort:
  Ja
Thema:
Aktion wenn Datei sich ändert

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Aktion wenn Datei sich ändert
 09.01.2012 13:13:26 Stefan
NotSolved