Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

FileDateTime Funktionsprobleme

FileDateTime Funktionsprobleme
17.12.2002 16:42:17
bernd
hallo zusammen, ich habe folgendes problem:

ich habe eine .txt datei, die sich im zehnsekundentakt aktualisiert. wenn sie sich aktualisert hat, soll mein makro "go" gestartet werden. untenstehendes makro funktioniert theoretisch ganz gut doch praktisch entsteht folgendes problem: wenn excel im selben moment die zeit der .txt datei überprüft wie die datei geschrieben wird, dann stürzt das andere programm ab. kann man das makro dahingehend optimieren, dass es nicht mehr zu den konflikten kommt und wenn ja wie ?

vielen dank im voraus und

lg

bernd


Makro ( hinterlegt im codeteil des arbeitsblattes)

Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim zeit1, zeit2 As Date

If Range("C1").Value = 1 Then
Range("C1").Value = 11
Application.EnableEvents = False
zeit1 = Format(FileDateTime("C:\Test.txt"), "hh:mm:ss")
Do
start = Timer
Do While Timer < start + 1
DoEvents
Loop
Ende = Timer

zeit2 = Format(FileDateTime("C:\Test.txt"), "hh:mm:ss")
Loop While zeit2 <= zeit1

start = Timer
Do While Timer < start + 1
DoEvents
Loop
Ende = Timer
Application.Run "go"
End If

End Sub

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

Betreff
Datum
Anwender
Anzeige
Re: FileDateTime Funktionsprobleme
17.12.2002 18:24:49
Nepumuk
Hallo Bernd,
schon mal so versucht?

Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim zeit1 As Date, zeit2 As Date, Start As Date, Ende As Date
Dim FSObjekt As Object, FObjekt As Object
If Range("C1").Value = 1 Then
Range("C1").Value = 11
Application.EnableEvents = False
Set FSObjekt = CreateObject("Scripting.FileSystemObject")
Set FObjekt = FSObjekt.GetFile("C:\Test.txt")
zeit1 = Format(FObjekt.DateLastModified, "hh:mm:ss")
Do
Start = Timer
Do While Timer < Start + 1
DoEvents
Loop
Ende = Timer
zeit2 = Format(FObjekt.DateLastModified, "hh:mm:ss")
Loop While zeit2 <= zeit1
Start = Timer
Do While Timer < Start + 1
DoEvents
Loop
Ende = Timer
Application.Run "go"
End If
End Sub

Gruß
Nepumuk

Anzeige
werde ich ausprobieren, vielen dank!
17.12.2002 18:29:01
bernd
danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige