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:
2648
Rating: Antwort:
  Ja
Thema:
Aktion wenn Datei sich ändert

Hallo zusammen,

ich bin derzeit folgende Datei

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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