另存为嵌入另一个 Excel 文件中的 Excel 文件

Posted 2023-05-07

【中文标题】另存为嵌入另一个 Excel 文件中的 Excel 文件

【英文标题】：Save as an Excel file embedded in another Excel file

【发布时间】：2015-04-28 07:37:04

【问题描述】：

我想用 VBA 管理嵌入在另一个 Excel 文件中的 Excel 文件。我可以使用 .docx 文档找到很多结果，但我坚持使用 .xlsx 文档。

我最后一次尝试是使用 OLE 对象，但停留在“SaveAs”行（错误 1004）。 这是奇怪的部分：当我开始调试时，或者如果我使用 F8 逐步运行程序，它确实运行了，但没有保存文件......

对于这个示例，我将我的 OLEObject 称为“TEST”：

Sub testOLE()
mPath = ActiveWorkbook.Path

For Each obj In Worksheets(1).OLEObjects
 If obj.Name = "TEST" Then
 obj.Verb
 obj.Object.Activate
 obj.Object.SaveAs mPath & "TEST_success.xlsx"
 obj.Object.Close
End If
 i = i + 1
Next
End Sub

我不明白如何将 OLEObjects 保存为 .xlsx，您能帮帮我吗？

【参考方案1】：

我刚刚成功使用了obj.Object.SaveCopyAs 而不是obj.Object.SaveAs。