保存为另一个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，你能帮我一下吗？

Answer 1

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