将笔记 OLE Excel 对象另存为 Excel 文件答案

【问题标题】：Save Notes OLE Excel Object as Excel File将笔记 OLE Excel 对象另存为 Excel 文件
【发布时间】：2013-10-20 12:28:43
【问题描述】：

我想在 Lotus Notes 文档中保存一个 OLE Excel 对象（MS Excel 2000 格式），以便 MAC 和浏览器用户可以使用它。在我将它附加到新的 Notes 文档后，MS Excel 2010 无法正确打开它。该文件本身似乎在某种程度上是有效的，因为我可以使用 IE 或 Windows Explorer 甚至使用 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”方法的替代方法。

【问题讨论】：

如果对象是Excel 2000，那么它实际上不可能是.xlsx格式，可以吗？（如果我没记错的话，.xlsx 格式是在 Excel 2007 中引入的。）所以也许 Excel 2010 看到了 .xlsx 扩展名并且无法处理数据实际上是旧格式的事实。如果保存到 .xls 文件而不是 .xlsx 会发生什么？
我第二次对理查德的第一印象

标签： vba excel lotus-notes lotusscript

【解决方案1】：

我想你是说在任何形式的分离之后，你不能用 Excel 打开文档，在这种情况下，已经提供的 cmets 可能适用

但如果你的意思是它没有立即在屏幕上打开..

Notes帮助引用重新激活方法：

激活：

语法设置handleV = notesEmbeddedObject.Activate(show)

参数节目布尔值。如果为 True，则服务器应用程序显示其用户界面。如果为 False，则服务器应用程序隐藏其用户界面。

如果这是在用户的客户端上运行，则您的 Activate 方法中的 False 要求它不要显示。

【讨论】：