保存为另一个Excel文件中embedded的Excel文件

我想用VBApipe理embedded在另一个Excel文件中的Excel文件。 我可以用.docx文件find许多结果,但是我坚持使用.xlsx文件。

我最后一次尝试使用的是OLE对象,但卡在“另存为”行(错误1004)。 这是一个奇怪的部分:当我开始debugging,或者如果我一步一步运行程序使用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