2

I want to manage with VBA an Excel file embedded in another Excel file. I can find many results with .docx documents, but I stuck with a .xlsx one.

My last try is using OLE objects, but stuck at the line "SaveAs" (Error 1004). Here is the weird part: when I start debugging, or if I run the program step by step using F8, it did run, but no file were saved...

I called my OLEObject "TEST" for this example:

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

I don't understand how to save OLEObjects as .xlsx, could you help me a bit?

pnuts
  • 58,317
  • 11
  • 87
  • 139
Bitoubi
  • 116
  • 8

1 Answers1

2

I just had success using obj.Object.SaveCopyAs instead of obj.Object.SaveAs.

Parth Trivedi
  • 3,802
  • 1
  • 20
  • 40
Jeff Parker
  • 36
  • 2