从文档中分离excel附件到磁盘,再打开该xls文件

 Dim   s   As   New   notessession
 Dim db As notesdatabase
 Dim view As NotesView
 Dim   doc   As   NotesDocument
 Dim neo As NotesEmbeddedObject
 Dim temVar As Variant
 Dim rtitem As NotesRichTextItem
 
 'Dim tempNeo As NotesEmbeddedObject
 
 Set db = s.CurrentDatabase
 Set view = db.GetView("dywdgl(bytime)")
 Set doc = view.GetFirstDocument
 
 If doc.HasEmbedded Then
  Msgbox("有附件")
 End If
 
 Set   rtitem   =   doc.GetFirstItem(   "zhengwen"   ) 

 Forall   o   In   rtitem.EmbeddedObjects 
  '把附件拆出来
  Call o.ExtractFile("d:\Lotus\Domino\Data\"+o.Name)
 End   Forall

 Set   excelapplication   =   CreateObject ( "Excel.Application")
 Set   excelworkbook   =   excelapplication.Workbooks.Open ("d:\123.xls")
 Messagebox ("已经打开xls文件")
 excelworkbook.close(False)
 excelapplication.quit
 Set excelapplication=Nothing