• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Макрос Excel из Ls

NetWood

NetWood

Lotus Team
17.04.2008
545
93
BIT
8
Периодически на майл сваливается файлик с текстом. Удобнее его распарсить макросом Excel и сохранить в папочку.

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

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
 
R

root

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ