Работа с Vba из Lotus

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

  1. root

    root Гость

    Проблема: Нужно было перелопатить Excel Документ после выгузки из Lotus определенных данных.
    Решение : Использовать готовые макросы написанные на VBA и внедренные в Excel из Lotus.
    Пример:
    Код (Text):
    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")
    'запускаем макрос
     
Загрузка...
Похожие Темы - Работа Vba из
  1. Andrey Kha
    Ответов:
    0
    Просмотров:
    29
  2. Hoasker
    Ответов:
    0
    Просмотров:
    64
  3. garri671
    Ответов:
    0
    Просмотров:
    55
  4. lelik200969
    Ответов:
    0
    Просмотров:
    53
  5. Kozolick
    Ответов:
    0
    Просмотров:
    142

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