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?

Respuestas a la pregunta(1)

Su respuesta a la pregunta