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

再度、ごめんなさい。ロジックが少しおかしいですね。

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