Run Excel VBA from VBscript

[YasserKhalil]

Hello forum members
I am trying to run this vbs file

Dim xl
Dim xlBook     
Dim sCurPath
path = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
Set xl = CreateObject("Excel.application")
Set xlBook = xl.Workbooks.Open(path & "\Run Macro From Outside Excel.xlsm", 0, True)     
xl.Application.Visible = False
xl.DisplayAlerts = False   
xl.Application.run "Test"
xlBook.Save
xl.ActiveWindow.Close
xl.Quit
Set xlBook = Nothing
Set xl = Nothing

and this is the macro inside the vbe

Sub Test()
    Sheets("Sheet1").Range("A1").Value = Now()
    MsgBox "Hello Everyone"
End Sub

It works well but doesn't save the changes .. It would save the value in A1
Any ideas?

 

[Hui]

That should work ?

You structure is similar but slightly different to the sample shown at:
http://stackoverflow.com/questions/...el-workbook-run-a-macro-and-save-the-workbook

 

[Debaser]

You opened the workbook read-only. Change True to False in the Workbooks.Open line.

 

[YasserKhalil]

Thanks a lot Mr. Hui and Mr. Debaser
You're right Mr. Debaser
After changing True to False it works as expected
Thank you very much