Hallo snb
schön dich im Thread zu sehen. Siehst du eine einfache Lösung für seine Sache???
Mein Programmierstil ist wie du weist eher altmodisch ....
mfg Gast 123
Ist ziemlich einfach, aber nich für Neulinge.
Auftragsprogrammierung würde ich sagen.
Eben eine Beispieldatei fehlt.
Und ich verstehe gar nicht den Sinn so etwas zu schaffen.
Hallo snb
okay, dann klinke ich mich aus diesem Thread aus, denn mein Wissen ist begrenzt. Schönen Abend noch aus Ankara ....
mfg Gast 123
Hallöchen,
man könnte das im Prinzip so realisieren. Einfach mal in A2 und Folgezeilen ein paar Textdateien angeben und in B2 und ff ein paar Uhrzeiten dazu.
Das Makro prüft nicht, ob die Zeiten passen oder die Dateien vorhanden sind usw.
Option Explicit
Sub start()
'Starten der Zeitsteuerung anhand Uhrzeit in B2
'Datei aus A2 wird geoeffnet
Application.OnTime Cells(2, 2), "'test1 2'"
End Sub
Sub test1(ByVal iCnt%, Optional ByVal vPID1 As Long = 0)
'Wenn eine Prozess-ID uebergeben wurde, dann Prozess killen
If vPID1 <> 0 Then Call Shell("TaskKill /F /PID " & CStr(vPID1), vbHide)
'Notepad mit Textdatei aus uebergener Zeile (Spalte A) starten und Prozess-ID abrufen
vPID1 = Shell("notepad.exe " & Cells(iCnt, 1) & "", vbNormalFocus)
'Hochzaehlen der Zeilennummer
iCnt = iCnt + 1
'Wenn in der Zeile nix steht, dann Makro verlassen
If Cells(iCnt, 1) = "" Then Exit Sub
'Aufruf der Zeitsteuerung mit den naechsten Eintraegen und
'der Prozess-ID der gerade gestarteten Anwendung
Application.OnTime Cells(iCnt, 2), "'test1 " & iCnt & ", " & vPID1 & "'"
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0