Convert VBA code to .exe

[Jarik]

Добрый день!

возможно ди сконвертрровать код VBA в exe file?
В качестве кода, например, следующая процедура:

Sub OpenWB ()
Workbooks.open "C:\Test.xlsx"
End Sub

[Hugo121]

Можно "сконвертировать" vbs, но синтаксис будет чуть другой:

CreateObject("Wscript.Shell").Run "C:\Test.xlsx"

[Jarik]

Спасибо, немного не то. Можно запустить VBA через Cscipt.exe, но в каком формате подсовывать ему код на VB в качестве параметра?

[EducatedFool]

Можно запустить VBA через Cscipt.exe

Код VBA работает только из приложения, для которого он написан.

Вам нужен вручную переписать код (в VBS), чтобы использовать его таким образом.

[Jarik]

Спасибо большое за ответ!

[Jarik]

Буду признателен, если кто-то посоветует хорошую ссылку по VB script применительно к excel application. До этого кодил только на VBA. В принципе, мне нужно понимать, могу ли я написать скрипт в VBS который запускает определенный макрос из определенной excelевской книги.

[Hugo121]

Set objExcel = CreateObject("Excel.Application")
Set wb = objExcel.Workbooks.Open ("C:\test.xls")
wb.Application.OnTime Now, "Macro1"
objExcel.Quit

Quit по обстоятельствам.
Но это будет открыт другой экземпляр Экселя (и кстати настройки безопасности не влияют на выполнение макроса).
Т.к. другой экземпляр - с копипастом проблемы.
Но можно подключится к существующему экземпляру - но код будет сложнее.

[Jarik]

спасмбо, я чувствую, что уже близко к решению. Мне как раз надо, чтобы макрос запускался из уже открытой книги. А так получается, что макрос выполняется с read onle копией.

[Jarik]

Следующий код не работает. Помогите понять, что не так.

Dim ExcApp as Object 
Set ExcApp= GetObject ("C:\Users\vishnyakov\Desktop\TEST.xlsm", "Excel.Application")
ExcApp.Run "TestMacro"

[Hugo121]

Это vbs? В vbs нет типов.

Так попробуйте - или откроет в открытом Экселе, или создаст новый Эксель:

Dim objExcel

ActivateExcel

Set wb = objExcel.Workbooks.Open ("C:\test.xls")
wb.Application.OnTime Now, "Macro1"

Private Function ActivateExcel()
On Error resume next 
Set objExcel = GetObject(, "Excel.Application")
If objExcel Is Nothing Then
   Set objExcel = CreateObject("Excel.Application")
   objExcel.Visible = false 'True
End If
End Function