Сохранить как файл Excel, встроенный в другой файл Excel

Я хочу управлять с помощью VBA файлом Excel, встроенным в другой файл Excel. Я могу найти много результатов с документами .docx, но я остановился на .xlsx.

В моей последней попытке используются объекты OLE, но я застрял на строке «Сохранить как» (ошибка 1004). Вот странная часть: когда я начинаю отладку или если я запускаю программу шаг за шагом, используя F8, она запускается, но файл не сохраняется...

Я назвал свой OLEObject «ТЕСТ» для этого примера:

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, не могли бы вы мне немного помочь?


person Bitoubi    schedule 28.04.2015    source источник


Ответы (1)


Мне только что удалось успех использовать obj.Object.SaveCopyAs вместо obj.Object.SaveAs.

person Jeff Parker    schedule 16.12.2015