как правильно открыть агентом по событию Ole Excel файл с диска? Getob

Тема в разделе "Lotus - Программирование", создана пользователем fedotxxl, 20 июн 2006.

  1. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    как правильно открыть агентом по событию OLE Excel файл с диска? GetObject ругается
     
  2. oshmianski

    oshmianski Гость

    Могет я чего не понимаю? Что мешает сделать вот так?
    Код (Text):
        Dim xlApp As Variant

    Set xlApp = CreateObject("Excel.Application")
    With xlApp
    .Workbooks.Add
    .Workbooks.open "d:\temp\123.xls"
    .visible = True
    End With
     
  3. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Спс. Отсутсвие знаний
    А как правильно теперь этот файл прикрепить к документу?
     
  4. oshmianski

    oshmianski Гость

    Не совсем понятна последовательность действий. Если нуно просто прицепить файл к доку, то см.
    Если же на скрипте, то см.

     
  5. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Ну и последний вопрос по этой теме - как OLE объект сохранить на диск-то?
     
  6. oshmianski

    oshmianski Гость

    Вот пример из хелпа:

    This script detaches and removes all the file attachments in a document's Body item that are larger than 100,000 bytes. The first file attachment that's found gets detached to c:\reports\newfile1, the second attachment that's found gets detached to c:\reports\newfile2, and so on.
    Код (Text):
    Set rtitem = doc.GetFirstItem( "Body" )
    If ( rtitem.Type = RICHTEXT ) Then
    Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) _
    And ( o.FileSize > MAX ) Then
    fileCount = fileCount + 1
    Call o.ExtractFile _
    ( "c:\reports\newfile" & Cstr(fileCount) )
    Call o.Remove
    Call doc.Save( True, True )
    End If
    End Forall
    End If
    ЗЫ: Таки предлагаю чаще в help заглядывать. Обещаю, от тебя не убудет!!!
     
  7. fedotxxl

    fedotxxl Well-Known Member

    Регистрация:
    9 ноя 2005
    Сообщения:
    614
    Симпатии:
    0
    Гм... как бы в методе EMBED_ATTACHMENT указать лотусу, чтобы он распознавал файл как EXCEL
     
  8. Lexa-xa

    Lexa-xa Гость

    Если речь идет от как узнать какой аттачмент прикреплен, то:
    Код (Text):
    Forall o In rtItem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
    If (Right$(o.Source, 3)<>"xls") Then
    ' .....
    end if
    end if
    end forall
     
Загрузка...

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