periodiek script uitvoeren

[moensk]

bestaat er ergens een instelling om een vba script om de 20 min te laten lopen ?
ik heb een query die om de 20' loopt en wil het script daar gelijk mee laten lopen

 

[edmoor]

Kijk naar Application.OnTime:
https://docs.microsoft.com/en-us/office/vba/api/excel.application.ontime

 

[globe]

Dat doe ik met een .bat file die ik via Windows Taakplanner laat uitvoeren.

Deze bat file laat ik de excel en de macro uitvoeren.

Hieronder een voorbeeld van het script:

'VBS script om datasheets te updaten

'Input Excel File's Full Path
  ExcelFilePath = "W:\locatie\excelsheet.xlsm"

'Input Module/Macro name within the Excel File
  MacroPath = "Module1.macronaam"

'Create an instance of Excel
  Set ExcelApp = CreateObject("Excel.Application")

'Do you want this Excel instance to be visible?
  ExcelApp.Visible = True  'or "False"

'Prevent any App Launch Alerts (ie Update External Links)
  ExcelApp.DisplayAlerts = False

'Open Excel File
  Set wb = ExcelApp.Workbooks.Open(ExcelFilePath)

'Execute Macro Code
  ExcelApp.Run MacroPath'start Routine per merk

 

[edmoor]

Hou er wel rekening mee dat op die manier eventuele invoegtoepassingen niet worden geladen.
Dat moet je dan ook in de VBS doen.

'VBS script om datasheets te updaten

'Input Excel File's Full Path
  ExcelFilePath = "W:\locatie\excelsheet.xlsm"

'Input Module/Macro name within the Excel File
 MacroPath = "Module1.macronaam"

'Create an instance of Excel
  Set ExcelApp = CreateObject("Excel.Application")

'Do you want this Excel instance to be visible?
  ExcelApp.Visible = True  'or "False"

'Prevent any App Launch Alerts (ie Update External Links)
  ExcelApp.DisplayAlerts = False

'Open Excel File
Set wb = ExcelApp.Workbooks.Open(ExcelFilePath)
[COLOR="#FF0000"]
ExcelApp.StatusBar="Invoegtoepassingen worden geladen..."
For Each ai in ExcelApp.Addins
   If ai.Installed Then
      ai.Installed = False
      ai.Installed = True
   End If
Next
ExcelApp.StatusBar=False
[/COLOR]

'Execute Macro Code
 ExcelApp.Run MacroPath'start Routine per merk

 

[snb]

ik heb een query die om de 20' loopt

Dan kun ke de 'afterupdate' gebeurtenis van de Query gebruiken om je code te laten lopen.

Maar het natuurlijik wel handig te vertellen wat die code dan moet doen.

Of :

https://www.snb-vba.eu/VBA_Application.OnTime.html