Hallo zusammen,
ich betreue ein paar Diabetiker die Ihre vom Messgerät ausgelesenen Daten in Excel weiterverarbeiten wollen, dies aber über einen Button automatisiert ablaufen soll.
Ich habe es so realisiert das das Programm startet und es wie gewohnt die Daten ausliest (funktioniert automatisch), danach wollte ich per SendKeys das Menü Datei und dort Exportieren exportieren wählen. Leider klappt das wegen der Zeitverzögerung nicht (die Menüleiste bleibt bis zum vollständigen Auslesen inaktiv) ... evtl kann mir hier einer weiterhelfen, da ich blutiger Anfänger bin.
Code (hoffentlich halbwegs richtig)
Sub libre()
'
' libre Makro
'
MyAppID = Shell("C:\Program Files\FreeStyle Libre\FreeStyle.exe", 1) ' Run libre
On Error Resume Next
Do
Err.Clear
Z = Z + 1
If Z = 1 Then Exit Sub
Application.Wait Now + TimeValue("0:00:01")
DoEvents
AppActivate MyAppID
Loop Until Err = 0 '
On Error GoTo 0
SendKeys "%D"
End Sub
ich betreue ein paar Diabetiker die Ihre vom Messgerät ausgelesenen Daten in Excel weiterverarbeiten wollen, dies aber über einen Button automatisiert ablaufen soll.
Ich habe es so realisiert das das Programm startet und es wie gewohnt die Daten ausliest (funktioniert automatisch), danach wollte ich per SendKeys das Menü Datei und dort Exportieren exportieren wählen. Leider klappt das wegen der Zeitverzögerung nicht (die Menüleiste bleibt bis zum vollständigen Auslesen inaktiv) ... evtl kann mir hier einer weiterhelfen, da ich blutiger Anfänger bin.
Code (hoffentlich halbwegs richtig)
Sub libre()
'
' libre Makro
'
MyAppID = Shell("C:\Program Files\FreeStyle Libre\FreeStyle.exe", 1) ' Run libre
On Error Resume Next
Do
Err.Clear
Z = Z + 1
If Z = 1 Then Exit Sub
Application.Wait Now + TimeValue("0:00:01")
DoEvents
AppActivate MyAppID
Loop Until Err = 0 '
On Error GoTo 0
SendKeys "%D"
End Sub