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 that you have read and understand our privacy policy and code of conduct.

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