Запуск файла из папки при загрузке системы

File1 = "C:\Path\to\1.xlsx"
File2 = "C:\Path\to\2.xlsx"
'—————————————————————————————————————————————
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Set WB = oExcel.Workbooks.Open(File1,0,,,,,1)
WB.Application.Left = 0
WB.Application.WindowState = -4137
With oExcel.Workbooks.Open(File2,0,,,,,1).Application
   .WindowState = -4143
   .Application.Left = CreateObject("htmlfile").ParentWindow.Screen.Width
   .WindowState = -4137
End With
WB.Activate
Set oExcel = Nothing

Const Dir = "C:\XLSX\"
'—————————————————————————————————————————————
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Set WB = oExcel.Workbooks.Open(FN(Date),0,,,,,1)
WB.Application.Left = 0
WB.Application.WindowState = -4137
With oExcel.Workbooks.Open(FN(Date + 1),0,,,,,1).Application
   .WindowState = -4143
   .Application.Left = CreateObject("htmlfile").ParentWindow.Screen.Width
   .WindowState = -4137
End With
WB.Activate
Set oExcel = Nothing
 
Function FN(D)
   FN = Dir & Right("0" & Day(D), 2) & "." & Right("0" & Month(D), 2) & "." & Year(D) & ".xlsx"
End Function

Const Dir = "C:\XLSX\"
'—————————————————————————————————————————————
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True: FN2 = FN(Date + 1)
Set WB = oExcel.Workbooks.Open(FN(Date),0,,,,,1)
WB.Application.Left = 0
WB.Application.WindowState = -4137
Set SINK = WSH.CreateObject("WbemScripting.SWbemSink", "SINK_")
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecNotificationQueryAsync SINK, "SELECT * FROM __InstanceCreationEvent" &_
" WITHIN 1 WHERE Targetinstance ISA 'CIM_DataFile' And" &_
" TargetInstance.Name='" & Replace(FN2, "\", "\\") & "'"
Do: WSH.Sleep 8^10 :Loop
 
Function FN(D)
   FN = Dir & Right("0" & Day(D), 2) & "." & Right("0" & Month(D), 2) & "." & Year(D) & ".xlsx"
End Function
 
Sub SINK_OnObjectReady(o,x)
   With oExcel.Workbooks.Open(FN2,0,,,,,1).Application
      .WindowState = -4143
      .Application.Left = CreateObject("htmlfile").ParentWindow.Screen.Width
      .WindowState = -4137
   End With
   SINK.Cancel
   Set oExcel = Nothing
   Set SINK = Nothing
   WSH.Quit
End Sub