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

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

Моя последняя попытка - использование объектов OLE, но я застрял в строке "Сохранить как" (ошибка 1004). Вот странная часть: когда я начинаю отладку или запускаю программу шаг за шагом, используя 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, не могли бы вы мне немного помочь?

Источник

1 ответ

Решение

Я только что имел успех, используя obj.Object.SaveCopyAs вместо obj.Object.SaveAs,

Источник
Другие вопросы по тегам