1 Тема от ada (изменено: ada, 2014-11-07 13:50:15)

  • ada
  • Участник
  • Неактивен

Тема: VBS: Excel 2003 & Excel 2010

Привет!
Задача: открыть Excel (xlsx) файл с помощью VBS в Excel 2010.
Проблема: при использовании

Set globExcelAppObj = CreateObject("Excel.Application")
globExcelAppObj.Visible = TRUE
Set objWorkbook = globExcelAppObj.Workbooks.Open(filePath)

всегда открывает в Excel 2003.  Дело в том что у меня установлены обе версии данного софта. пробовал разные варианты с форумов.
Прошу подсказать решение данной проблемы.
Если возможно с учетом версии файла и установленного софта.

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: Excel 2003 & Excel 2010

ada пишет:

открыть Excel (xlsx) файл с помощью VBS в Excel 2010.

Например:

Dim objWshShell

Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run """%ProgramFiles%\Microsoft Office\OFFICE11\xlview.exe"" ""E:\Песочница\0405\Sample.xls""", 1, True

Set objWshShell = Nothing

где: «%ProgramFiles%\Microsoft Office\OFFICE11\xlview.exe» — полный путь к Вашему Excel 2010. Но смысл? Если Вам нужен не «открыть», как Вы пишете, а именно Automation — я бы попробовал не суррогатное имя «"Excel.Application"», а конкретное. Например, для Excel 2003 это «"Excel.Application.11"». Wikipedia подсказывает, что Office 2010 — это версия 14, так что попробуйте указать «"Excel.Application.14"».

ada пишет:

Если возможно с учетом версии файла и установленного софта.

Поясните.