Макрос Excel из Ls

Тема в разделе "Lotus - Программирование", создана пользователем NetWood, 18 окт 2010.

  1. NetWood

    NetWood Lotus team
    Lotus team

    Регистрация:
    17 апр 2008
    Сообщения:
    308
    Симпатии:
    0
    Периодически на майл сваливается файлик с текстом. Удобнее его распарсить макросом Excel и сохранить в папочку.

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

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
  3. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    Запуск Макроса Макрос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
     
  4. NetWood

    NetWood Lotus team
    Lotus team

    Регистрация:
    17 апр 2008
    Сообщения:
    308
    Симпатии:
    0
    Ок! Благодарю.
     
  5. root

    root Гость

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

Поделиться этой страницей