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

[fedotxxl]

как правильно открыть агентом по событию OLE Excel файл с диска? GetObject ругается

 

[oshmianski]

как правильно открыть агентом по событию OLE Excel файл с диска? GetObject ругается

Могет я чего не понимаю? Что мешает сделать вот так?

	Dim xlApp As Variant

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

 

[fedotxxl]

Спс. Отсутсвие знаний
А как правильно теперь этот файл прикрепить к документу?

 

[oshmianski]

Спс. Отсутсвие знаний
А как правильно теперь этот файл прикрепить к документу?

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

Attaches a file to a document.
Syntax
@Command( [EditInsertFileAttachment] )
or
@Command( [EditInsertFileAttachment] ; file ; compress )
Parameters
file
Text. Optional. The name of the file you want to attach. Be sure to include the complete path specification (appropriate to the user's operating system).
compress
Number. Optional. Specify "1" if you want to compress the attachment. Specify "0" if you do not.
Without a file parameter, displays the Create Attachment dialog box. If a file is specified, attaches that file to the document without opening the Create Attachment dialog box.

Если же на скрипте, то см.

Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_OBJECT, "", "c:\jim.sam")

 

[fedotxxl]

Ну и последний вопрос по этой теме - как OLE объект сохранить на диск-то?

 

[oshmianski]

Ну и последний вопрос по этой теме - как OLE объект сохранить на диск-то?

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

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.

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 заглядывать. Обещаю, от тебя не убудет!!!

 

[fedotxxl]

Гм... как бы в методе EMBED_ATTACHMENT указать лотусу, чтобы он распознавал файл как EXCEL

 

[Lexa-xa]

Гм... как бы в методе EMBED_ATTACHMENT указать лотусу, чтобы он распознавал файл как EXCEL

Если речь идет от как узнать какой аттачмент прикреплен, то:

Forall o In rtItem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
If (Right$(o.Source, 3)<>"xls") Then
' .....
end if
end if
end forall