Lotus Notes 문서 내에서 OLE Excel 개체 (MS Excel 2000 형식)를 저장하여 MAC 및 브라우저 사용자가 사용할 수있게하려고합니다. 새로운 Notes 문서 MS Excel 2010에 첨부 한 후 올바르게 열지 않습니다. 파일 자체는 IE 나 Windows 탐색기로 또는 Lotus Notes 미리보기로도 분리하여 미리 볼 수 있으므로 여하튼 유효합니다. MS Excel 2010 만 Excel 문서를 표시 할 수 없습니다. 내 코드 여기 메모 저장 Excel 파일로 OLE 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
를이 내가 문서에 다시 부착하는 방법입니다 내가 Excel 파일을 저장 할 수있는 일
'Anhang anhängen
Set rtItem = New NotesRichTextItem(doc,"Body")
Call rtItem.Embedobject(1454, "", dateiName)
올바른 형식으로? 여러 가지 방법을 시도했지만 핸들 내에서 'savecopyas'메서드에 대한 대안을 찾을 수 없습니다.
개체가 Excel 2000이면 실제로 xlsx 형식 일 수는 없습니다. (메모리가 제대로 작동하면 Excel 2007에서 .xlsx 형식이 도입되었습니다.) 따라서 Excel 2010에서는 .xlsx 확장자가 표시되며 데이터가 실제로 이전 형식이라는 사실을 처리 할 수 없습니다. .xlsx 대신 .xls 파일에 저장하면 어떻게됩니까? –
두 번째 Richard의 첫인상 –