作成者	カテゴリ	返答の対象		公開
1122 02/20/2003 04:33 PM		添付したExcelファイルを直接読み込みたい

ごめんなさい。そうです。
その処理を全て同じ処理内で行うというのは如何でしょうか？

strfilepath = "c:\samples\"
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
　Forall o In rtitem.EmbeddedObjects
　　If ( o.Type = EMBED_ATTACHMENT ) Then
　　　Call o.ExtractFile( strfilepath & o.Source )
　　End If
　End Forall
End If
　　：
　　：　保存したディスク内のファイルを取得する
　　：
Kill strfilepath & o.Source

処理が終わった最後に、ディスクから削除します。