[Solved] Execute .vbs file using macro in Calc

[Lovepreet323]

Please advise how to run or execute (.vbs) file using calc macro

(.bat) file ruining very well using below code, but (.vbs) file not running
SysShell.Execute(ABC.bat,CmdString,0)

[Zizi64]

The .bat files requests the operating system only, but - I suppose it - the .vbs files requests some Visual Basic interpreter.

https://stackoverflow.com/questions/690 ... xecute-vbs

[Mr.Dandy]

Be sure that soffice process has sufficiant rights to run .vbs script.
Especially if you're running functions on the operating system.

[Lovepreet323]

How to give rights to soffice to run .vbs file

[Mr.Dandy]

How to give rights to soffice to run .vbs file

You must launch your VBscript in Elevated mode
Ask to your prefered MS forum

But for me, this is an XY problem. Why using an external program?

[Lovepreet323]

I made a vbs script to download a file from web in hidden mode without using any browser. Because i unable hide downloding from browser

[ms777]

... if it is just about downloading a file I would recommend to use OOBasic rather than VBS

Code: Select all

oSimpleFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oSimpleFileAccess.copy("https://www.google.de", "C:\users\martin\downloads\google.html")

[Lovepreet323]

Please provide complete macro code of above example

[RoryOF]

For information: many examples of suitable macro code for OpenOffice and LibreOffice, together with an informative discussion on such programming are in the works of Andrew Pitonyak, which may be downloaded free from his site at

https://www.pitonyak.org/oo.php

[ms777]

This is the complete code. You just have to replace the target web file you want to download and the target storage location
(and add sub main / end sub)

[Lovepreet323]

Thanks all above who helped me. It's working very well

[Lovepreet323]

Please help me to solve one more issue to download file in download folder with default or randomly name as file name daliy changed and don't want to change the name of file
Sourepath correctly worked but Destinationpath not working
Sourepath = A1
Destinationpath =B2
oSimpleFileAccess.copy(Sourcepath, Destinationpath)

[Zizi64]

Please upload your ODF type sample file here. Then we will able to examine the URL/Path syntax. (What string is located in the cells?)