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

Question

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

我最后一次尝试使用的是OLE对象，但卡在“另存为”行（错误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，你能帮我一下吗？

Answer 1

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