Макрос Excel из Ls

[NetWood]

Периодически на майл сваливается файлик с текстом. Удобнее его распарсить макросом Excel и сохранить в папочку.

Хочу натравить на этот док с файлом агент, но не знаю как запустить макрос Excel в LS?

 

[hosm]

чесгря не смотрела, мб, это поможет? https://codeby.net/threads/21067.html

 

[susinmn]

Запуск Макроса Макрос1:

Dim ws As New NotesUIWorkspace
fs = ws.OpenFileDialog( False , "" , "Файлы Excel|*.xls" ,"" , "" )

If Isarray(fs) Then
filename=fs(0)
Set excelAppObject = CreateObject("Excel.Application")
excelAppObject.visible=True
Call excelAppObject.Workbooks.Open(filename)
excelAppObject.Run "'"+filename+"'! Макрос1"
End If

 

[NetWood]

Ок! Благодарю.

 

[root]

можно еще добавить в файл уже готовый BAS

Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.VBE.ActiveVBProject.VBComponents.Import(
"C:\" + "formatreports.bas" )
ExcelApp.Run( "mysub", ExcelApp )