Çözüldü Kapalı excel dosyasındaki macroyu arkaplanda çalıştırma ve tarih ile yeni kopyasını kaydetme

[seckinb]

Merhaba
Özet çıkarmak için zamanlanmış görevleri kullanmak istiyordum.
VBscript kodu yardımıma koştu.
Hazır excel makronuzu arkaplanda çalıştırmak için bu kodu kullanabilirsiniz

Option Explicit

Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("C:\dosyaadi.xlsm", 0, True)
xlApp.Visible = False


xlApp.Run "ornek_macro" 
  
xlBook.Close
xlApp.Quit

Set xlBook = Nothing

Set xlApp = Nothing

WScript.Echo "Macro çalıştırıldı."
WScript.Quit

Sub ornek_macro()
Dim CurrDate As String

CurrDate = Format(Date, "YYYY-MM-DD")

Call esashedeflenenmacro

ActiveWorkbook.SaveAs Filename:="C:\" & "Dosyaadi_" & CurrDate & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Kodu notepad ile düzenleyip .vbs şeklinde kaydettiğiniz takdirde çalışacaktır.