2013-10-20 3 views
0

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'메서드에 대한 대안을 찾을 수 없습니다.

+1

개체가 Excel 2000이면 실제로 xlsx 형식 일 수는 없습니다. (메모리가 제대로 작동하면 Excel 2007에서 .xlsx 형식이 도입되었습니다.) 따라서 Excel 2010에서는 .xlsx 확장자가 표시되며 데이터가 실제로 이전 형식이라는 사실을 처리 할 수 ​​없습니다. .xlsx 대신 .xls 파일에 저장하면 어떻게됩니까? –

+0

두 번째 Richard의 첫인상 –

답변

0

난 당신이 분리의 모든 종류 후, 당신은 아마 이미 제공 한 의견이 적용되는 경우 Excel에서 문서를 열 수 없습니다 말을하는지 생각

그러나 경우에 당신이 의미에서 그것은에 열 넣은 사람은 아니다 바로 화면 ..

노트 따옴표를 도와

이 활성화 방법 다시 :

활성화 :

구문 설정 handleV = notesEmbeddedObject.Activate (쇼)

매개 변수 표시 부울입니다. True이면 서버 응용 프로그램이 사용자 인터페이스를 표시합니다. False이면 서버 응용 프로그램은 사용자 인터페이스를 숨 깁니다.

사용자의 클라이언트에서이 스크립트가 실행 중이면 활성화 방법의 False가 표시하지 않도록 요청하고 있습니다.