4programmers.net 4p Forum Inne języki programowania VBA Wykonywanie makra z poziomu Task Scheduler Windows

Wykonywanie makra z poziomu Task Scheduler Windows

Wykonywanie makra z poziomu Task Scheduler Windows
newyorkCity22
NC
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 1
0

Cześć Wszystkim :)
Mam plik .vbs, który chcę podłączyć pod harmonogramowanie zadań w windowsie aby makro zawarte we wskazanym pliku wykonywało się codziennie o tej samej godzinie. Mam kod, który otwiera mi zamknięty plik, wykonuje wskazane makro. Niestety mój plik zawsze powinien być otwarty ponieważ będzie używany 24/7. Proszę o pomoc w edycji kodu tak aby nie otwierał za każdym razem pliku a aktywował i wykonywał makro w tym już otwartym.

Kopiuj
set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
xlApp.Application.Visible = True
Set xlBook = xlApp.Workbooks.Open("C:\Users\X\Desktop\Nowy folder\test3\DEKLARACJA WYPALKI _27 vT.xlsm", 0, False)
xlApp.Run "Makro2"
Set xlBook = Nothing
Set xlApp = Nothing
Udostępnij
Komentuj
tango12x
T1
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 2
0

Wiem, że dawno napisane. Świeżak jestem.
Spróbuj tak:

W pliku *.xlsm

Kopiuj
Private Sub Workbook_Open()

  Applicatin.Run "Timer"
  
End Sub

w module

Kopiuj
Sub Timer()

  Application.OnTime (Now + TimeValue("0:00:10")), "Macro2" 'makro uruchamiane co 10 sekund w otwartym pliku
  Application.OnTime (Now + TimeValue("0:01:00")), "Macro2" 'makro uruchamiane co minutę w otwartym pliku
  Application.OnTime (Now + TimeValue("1:00:00")), "Macro2" 'makro uruchamiane co godzinę w otwartym pliku

End Sub

W Twoim makrze

Kopiuj
Sub Macro2()

'Twoje makro'
'na końcu ponowne uruchomienie timera'

  Applicatin.Run "Timer"
  
End Sub
Udostępnij
Komentuj

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto