открыть файл *.xls из скрипта

[alvazor]

Здравствуйте, уважаемые
Вся надежда на профессионалов!
Это в продолжение темы
http://www.programmersforum.ru/showt...395#post545395
Требуется открыть скриптом файл *.xls - именно файл, чтобы вызывалось "родное" приложение.
Убивает, что из bat-файла - без проблем, например,

@CD %Desktop%
@CD %CD%\StartCalcExperiments
@start Calc_MKS46000.xls

Из скриптов, как только не пробовал - ни в какую!
Мне в конечном итоге надо запускать из скрипта макрос в надстройке.
Адресацию к нему прошли - см. ссылку.
Но при полном адресе макроса, когда создается новый экземпляр приложения, выпадает стандартное сообщение о наличии в надстройке макросов, что мне ни к чему (запрет прерываний и сообщений тут не действуют). При этом из файла, созданного вновь или открытого в новом экземпляре приложения, проект надстройки не виден, хотя сама надстройка в списке надстроек видна и доступна!?
Если же при вызове макроса надстройки уже имеется открытый файл *.xls - никаких проблем, ее макрос молча запускается.
Весь в надеждах...

[alvazor]

Дополнительный пример
Без проблем вызывается командная строка (cmd):
Set objShellApp = CreateObject("Shell.Application")
objShellApp.FileRun
Но что с ней дальше делать?

[Hugo121]

Скрипт vbs

Dim objExcel

ActivateExcel

'Set excelSheet1 = GetSheet(objExcel, "Sheet1") ' ищем книгу с таким листом, если не найдёна - будет ошибка скрипта

'objExcel.Workbooks.Add '# открываем новую книгу Excel
objExcel.Workbooks.open ("C:\Documents and Settings\user\Desktop\post_130610.xls") '# открываем книгу Excel

Private Function ActivateExcel()
On Error resume next 
Set objExcel = GetObject(, "Excel.Application")
If objExcel Is Nothing Then
  Set objExcel = CreateObject("Excel.Application")
  objExcel.Visible = True
End If
End Function

'The GetSheet method returns an Excel Sheet according to the sheetIdentifier
'ExcelApp - the Excel application which is the parent of the requested sheet
'sheetIdentifier - the name or the number of the requested Excel sheet
'return Nothing on failure
Function GetSheet(ExcelApp, sheetIdentifier) 'As Excel.worksheet
    On Error Resume Next
    Set GetSheet = ExcelApp.Worksheets.Item(sheetIdentifier)
    On Error GoTo 0
End Function

Что-то я позабыл вначале, что надо не новую... ну это несложно переделать - заменил строку.
Ну и всё, что относится к GetSheet() - тут просто для примера, для задачи не нужно.

[alvazor]

Спасибо, Hugo, но, похоже, таким способом задача не решается...
Функция GetSheet() может найти только уже открытый (активный) файл и, соответственно, родительский экземпляр Excel находится функцией ActivateExcel() для этого открытого файла. В ином случае идет ветка функции ActivateExcel() с командой CreateObject("Excel.Application") и образует новый экземпляр Excel.
В этой ветке и проблема!
Вот когда открываешь любой файл *.xls вручную, тогда автоматом активируется "родной" экземпляр Excel, в котором доступны проекты vba всех созданных в нем файлов, включая надстройки. А в "новых" экземплярах Excel надстройки видны в списке надстроек, но их проекты не видны. Соответственно, чтобы запустить макрос надстройки, надо к нему адресоваться полным путем, при этом система выдает предупреждение о наличии в адресуемой надстройке макросов... При пуске макроса надстройки из "родного" экземпляра, такого предупреждения нет (естественно, если в системе безопасности установлен флажок "доверять доступ к проектам...")
В конце-концов меня бы устроил и вариант запуска из скрипта bat - файла (см. выше - 3 строчки), но как его запустить из скрипта?

[Hugo121]

Да, сейчас проверил пристальнее - если Эксель открыт, то новый файл открывается в этом Экселе - вроде всё в порядке, PERSONAL.XLS доступен (надстроек у меня нет). Но если Эксель не открыт, то открывается Эксель без открытия PERSONAL.XLS

[alvazor]

Вариант:
'на рабочем столе открываем файл Proba.xls в установленной
'по умолчанию сессии (ProgID) Excel

Set objShellApp = CreateObject("Shell.Application")
Set objShell = CreateObject("WScript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

FolderPath = objShell.SpecialFolders("Desktop") 
FileName = "Proba.xls"
FilePath = FolderPath & "\" & FileName

Set File = objFSO.GetFile(FilePath)

objShellApp.ShellExecute File.name, "",FolderPath,"open", 10
WScript.Sleep 2000
Set objExcel = GetObject(, "Excel.Application")

'не шибко понятно, но работает -)