1

При работе приложения записывается отчёт в Excel. Если при этом параллельно открыт другой документ в Excel, то следующий код закроет и Excel-документ, открытый с помощью COM, и тот файл, который к приложению отношения не имеет:

Dim w As Workbook
    For Each w In mExcel.Workbooks
        w.Save()
    Next
 mExcel.Quit()

Насколько я понял, погуглив, это особенность Excel 2013 - открывать документы в одном процессе. Подскажите, как же открыть Excel с помощью COM в отдельном процессе? Спасибо!

2
  • Вместо выхода из Excel закрывайте только книгу. Или дополнительно проверяйте, есть-ли еще открытые книги и, если нет, делайте Quit() 8 июн 2015 в 11:49
  • На крайний случай подойдет, но, конечно, хотелось бы открыть в отдельном процессе, если это возможно :) 8 июн 2015 в 12:16

1 ответ 1

1

Попробуйте пример из документации

Set xl = CreateObject("Excel.Sheet") 
xl.Application.Workbooks.Open "newbook.xls"

Добавлено:

Похоже в 2013 так не получится, если верить "новшествам версии 2013". Скорее всего придется следить за количеством открытых книг перед закрытием/выходом_из_приложения

Еще вот что найдено в документации. Открыть Excel отдельным процессом можно, но несколько в противоестественной для Windows манере - через командную строку excel.exe /x

5
  • Это и используется, открыввается в одном процессе с предыдущим документом 8 июн 2015 в 12:15
  • А CreateObject("Excel.Application") тоже не создает новый экземпляр? 8 июн 2015 в 12:25
  • К сожалению, нет 8 июн 2015 в 12:29
  • Еще вот что найдено в документации. Открыть Excel отдельным процессом можно, но несколько в противоестественной для Windows манере - через командную строку excel.exe /x***********************************************************************************************************************************Я в курсе, сам это находил, но как на счет кода? :) Как провернуть это через COM? 8 июн 2015 в 12:40
  • Ну вот запустить можно через Process.Start, а вот как потом получить COM объект это уже не ко мне :) Можно отдельным вопросом тут оформить 8 июн 2015 в 14:19

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.