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

我想用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，你能帮我一点忙吗？

我刚刚成功地使用了

obj.Object.SaveCopyAs

而不是

obj.Object.SaveAs