0

Lotus Notes ドキュメント内に OLE Excel オブジェクト (MS Excel 2000 形式) を保存して、MAC ユーザーとブラウザ ユーザーが使用できるようにしたいと考えています。新しい Notes ドキュメントに添付した後、MS Excel 2010 で正しく開きません。ファイル自体は、IE や Windows エクスプローラー、さらには Lotus Notes プレビューを使用して切り離してプレビューできるため、何らかの形で有効なようです。MS Excel 2010 のみが何らかの形で Excel ドキュメントを表示できません。

OLE ファイルをファイル システムに抽出するコードは次のとおりです。

dirLN = s.GetEnvironmentString("Directory",True)
subdirLN = "\"

Select Case dokArt
    Case "Excel"
        anhangLN = "anhang.xlsx"
    Case "PowerPoint"
        anhangLN = "anhang.pptx"
    Case "Word"
        anhangLN = "anhang.docx"
    Case Else
        Exit function
End Select

Set rtitem = doc.GetFirstItem("Body")

For i = 0 To UBound(rtitem.EmbeddedObjects)
    Set objDoc = rtitem.EmbeddedObjects(i)
    dateiLN =dirLN+subdirLN+anhangLN

    Set oHandle = objDoc.Activate(False)    
    Call oHandle.savecopyAs(dateiLN)
Next

これが私がそれをドキュメントに添付する方法です

    'Anhang anhängen
Set rtItem = New NotesRichTextItem(doc,"Body")
Call rtItem.Embedobject(1454, "", dateiName)

Excel ファイルを正しい形式で保存するにはどうすればよいですか? いくつかの方法を試しましたが、ハンドル内の「savecopyas」メソッドに代わるものは見つかりませんでした。

4

1 に答える 1

0

なんらかの分離の後、Excelでドキュメントを開くことができないと言っていると思います。その場合、すでに提供されているコメントがおそらく適用されます

ただし、すぐに画面に表示されない場合は..

Notes のヘルプでは、Activate メソッドについて次のように引用しています。

活性化 ：

構文 Set handleV = notesEmbeddedObject.Activate( show )

パラメータはブール値を示します。True の場合、サーバー アプリケーションはそのユーザー インターフェイスを表示します。False の場合、サーバー アプリケーションはユーザー インターフェイスを非表示にします。

これがユーザーのクライアントで実行されている場合、Activate メソッドの False は表示しないように求めています。

于 2013-10-24T16:15:30.403 に答える