1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Работа с Vba из Lotus

Тема в разделе "OLE технологии", создана пользователем root, 8 фев 2008.

  1. root

    root Гость

    Репутация:
    0
    Проблема: Нужно было перелопатить Excel Документ после выгузки из Lotus определенных данных.
    Решение : Использовать готовые макросы написанные на VBA и внедренные в Excel из Lotus.
    Пример:
    Код:
    Dim StringMacros As String 
    Dim cn As Integer
    Dim xls As Variant
    Set xls = CreateObject("Excel.Application")
    Stringmacros = |
    Sub Mymacros()
    msgbox "hello word"
    End Sub|
    'сам макрос 
    
    For cn = xls.ActiveWorkbook.VBProject.VBComponents.Count To 1 Step -1
    If xls.ActiveWorkbook.VBProject.VBComponents.Item(cn).Type = 1 Then
    'Type =1 это объект типа Модуль удаляем все старые если они есть 
    xls.ActiveWorkbook.VBProject.VBComponents.Remove xls.ActiveWorkbook.VBProject.VBComponents.Item(cn)
    End If
    Next cn
    xls.ActiveWorkbook.VBProject.VBComponents.add(1)
    'создаем новый модуль в котором будет макрос написан на VBA
    For cn = xls.ActiveWorkbook.VBProject.VBComponents.Count To 1 Step -1
    If xls.ActiveWorkbook.VBProject.VBComponents.Item(cn).Type = 1 Then
    'ищем наш модуль 
    Call  xls.ActiveWorkbook.VBProject.VBComponents.Item(cn).CodeModule.InsertLines(1,StringMacros)
    'добавляем в него макрос 
    End If
    Next cn
    
    xls.run("Mymacros")
    'запускаем макрос
     
Загрузка...

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