Guardar como un archivo de Excel incrustado en otro archivo de Excel
Quiero administrar con VBA un archivo de Excel incrustado en otro archivo de Excel. Puedo encontrar muchos resultados con documentos .docx, pero me quedé con uno .xlsx.
Mi último intento es usar objetos OLE, pero atascado en la línea "SaveAs" (Error 1004). Aquí está la parte extraña: cuando comienzo a depurar, o si ejecuto el programa paso a paso usando F8, se ejecutó, pero no se guardó ningún archivo ...
Llamé a mi OLEObject "TEST" para este ejemplo:
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
No entiendo cómo guardar OLEObjects como .xlsx, ¿podría ayudarme un poco?