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

fedotxxl

Well-known member
09.11.2005
614
0
#1
как правильно открыть агентом по событию OLE Excel файл с диска? GetObject ругается
 
O

oshmianski

#2
как правильно открыть агентом по событию 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

Well-known member
09.11.2005
614
0
#3
Спс. Отсутсвие знаний
А как правильно теперь этот файл прикрепить к документу?
 
O

oshmianski

#4
Спс. Отсутсвие знаний
А как правильно теперь этот файл прикрепить к документу?
Не совсем понятна последовательность действий. Если нуно просто прицепить файл к доку, то см.
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

Well-known member
09.11.2005
614
0
#5
Ну и последний вопрос по этой теме - как OLE объект сохранить на диск-то?
 
O

oshmianski

#6
Ну и последний вопрос по этой теме - как 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

Well-known member
09.11.2005
614
0
#7
Гм... как бы в методе EMBED_ATTACHMENT указать лотусу, чтобы он распознавал файл как EXCEL
 
L

Lexa-xa

#8
Гм... как бы в методе 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