Макрос Excel из Ls

NetWood

Lotus team
17.04.2008
372
19
#1
Периодически на майл сваливается файлик с текстом. Удобнее его распарсить макросом Excel и сохранить в папочку.

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

susinmn

Well-known member
16.10.2007
529
3
#3
Запуск Макроса Макрос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
 
R

root

#5
можно еще добавить в файл уже готовый BAS
Код:
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.VBE.ActiveVBProject.VBComponents.Import(
"C:\" + "formatreports.bas" )
ExcelApp.Run( "mysub", ExcelApp )