Изменение активной версии Excel

[Raikhman]

Если на компьютере установлено 2 весии excel - 2003 и 2010, то как можно быстро без переустановки сделать актиной ту или другую?

[alex77755]

У меня в типах файлов прописано xls 2003, xlsm 2007

[alex77755]

Но когда открыта любая книга вновь открываемая открывается в активном приложении. Из-за этого иногда возникают конфликты.(если открыт документ 2003, а надо открыть документ 2007) Тогда запускаю приложение и уже оттуда открываю документ

[Raikhman]

есть такой код на vb6

Public Sub Main()
'On Error Resume Next
'Проверяем версию Excel
Set xlApp = New Excel.Application
xlApp.Visible = True
If Val(xlApp.Version) <> 14 Then
MsgBox "Необходим Excel-2010"
xlApp.Quit
Set xlApp = Nothing
Exit Sub
End If

если активен excel 2010 то продолжаем, а если нет, то выходим.
Проблема: если активен 2003, то для работы программы приходится переустанавливать десятку - это весьма нудно. гдето в реестре чтото есть для быстрого переключения, или чтото еще, но где?

[EducatedFool]

У меня активна версия 2003 (мне привычнее в нем работать)
А при необходимости открытия того или иного файла в другой версии я использую отправку файл в нужное приложение через SendTo:



Быстро изменить активную версию можно через Пуск-Выполнить:
(выберите одну из команд для активации нужной версии)

"C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" /regserver
"C:\Program Files\Microsoft Office\OFFICE12\EXCEL.EXE" /regserver
"C:\Program Files\Microsoft Office\OFFICE14\EXCEL.EXE" /regserver

[Raikhman]

Спасибо EducatedFool.
Ваша помощь как всегда реальна.

Но у меня почемуто сработало так
"C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" /regserver
При этом действительно активировался excel2003.

А вот такая команда
"C:\Program Files\Microsoft Office\OFFICE14\EXCEL.EXE" /regserver
просто запустила excel2010, но активным остался excel2003

Почему так?

Я даже пробовал через создание и запуск бэтчфайлов, как когдато в доброй старой MS-DOS

excel2010.bat

rem Enter this first to disassociate an excel version...
"c:\program files (x86)\microsoft Office2003\Office11\Excel.exe" /unregserver
"c:\program files (x86)\microsoft Office\Office14\Excel.exe" /unregserver
rem Then enter this to specify the default version...
"c:\program files (x86)\microsoft Office\Office14\Excel.exe" /regserver

Все равно десятка не активируется

[Djeki]

А как добавить, версии установленного Экселя, в меню ОТПРАВИТЬ . У меня 2007 и 1997. Спасибо за ответ..

[zavr]

А как сделать, чтобы нужный Эксель открывался по коду

    Dim app As New Excel.Application
    app.Visible = True
    app.Workbooks.Open pt & fl

?
у меня установлен 2003 и 2010. и когда я в 2010 запускаю этот код, у меня открывается 2003. Можно ли сделать, чтобы открывался 2010?
Заранее спасибо за ответ!

[EducatedFool]

zavr, попробуйте создать экземпляр соответствующего приложения:

Sub test()
    Dim app As Excel.Application
    Set app = CreateObject("Excel.Application.14")
    app.Visible = True
    MsgBox "Запущен Excel версии " & app.Version
End Sub

(я пробовал - у меня не получилось, запускается установленный по-умолчанию Excel 2003)

Список доступных классов: (11, 12 и 14 - установленные версии Excel: 2003? 2007 и 2010)


----------------------------
А зачем, работая в Excel, запускать ещё одну копию приложения?????????
Много лет пишу макросы - ни разу мне это не понадобилось...

[zavr]

EducatedFool, спасибо за ответ, но у меня, к сожалению тоже ничего не получилось =) все равно открывается 2003.
Ну ладно, не буду заморачиваться, потом останется только 2010 и, я думаю, проблема будет решена сама собой. Просто было интересно, можно ли как-то выбрать версию открываемого Экселя.
А использую я это вот зачем - в базу Access загружаются данные о продажах, при этом для новых данных нужно указывать схему поставки, а для этого иногда требуется заглянуть в исходный файл. По этому, чтобы не прерывать загрузку, на форме ввода есть кнопка, при нажатии на которую открывается нужный файл. А чтобы его можно было просматривать без проблем, он открывается в новой копии Экселя.