открыть скриптом файл Excel

[alvazor]

Здравствуйте, уважаемые!
Можно ли из скрипта открыть файл Excel, не активизируя предварительно приложение (т.е. как делаем с рабочего стола)? Желательно без API.
Exec открывает только приложения, Get только позволяет получить свойства... Как только ни пробовал - не идет.
Помогите, плиз!

[doober]

Укажете свой путь к файлу

Option Explicit

Dim  oBook, oExcel
Set oExcel = CreateObject("Excel.Application")
Set oBook= oExcel.Workbooks.Open ("C:\222.xls")
oExcel.Visible = True

[alvazor]

Спасибо, что откликнулись!
Такой вариант пробовал, не подходит -(
Мне надо именно открыть файл, чтобы вызывалась автоматом текущая сессия Excel.
Дело в том, что в 2003 sp3 версии по такой команде почему-то открывается файл, из которого установленная надстройка видна, а ее проект недоступен, и не открывается макрос Public надстройки

[SAS888]

Дело в том, что в 2003 sp3 версии по такой команде почему-то открывается файл, из которого установленная надстройка видна, а ее проект недоступен, и не открывается макрос Public надстройки

Мне тоже приходилось сталкиваться с подобной проблемой. Для корректной работы надстроек, при нескольких открытых сессиях Excel 2003, в коде макросов, вызывающих процедуры надстройки, попробуйте указывать полный путь, не смотря на то, что надстройка считается всегда открытой. Например, запускать макрос "Макрос1", который находится в надстройке, не строкой

Макрос1

, а командой

Run "'C:\Program Files\МояНадстройка.xla'!Макрос1"

[alvazor]

Сообщение от SAS888

Мне тоже приходилось сталкиваться с подобной проблемой. Для корректной работы надстроек, при нескольких открытых сессиях Excel 2003, в коде макросов, вызывающих процедуры надстройки, попробуйте указывать полный путь, не смотря на то, что надстройка считается всегда открытой. Например, запускать макрос "Макрос1", который находится в надстройке, не строкой

Макрос1

, а командой

Run "'C:\Program Files\МояНадстройка.xla'!Макрос1"

Попробовал, что-то не пошло...
Вот полный текст скрипта с дополнениями для прямой адресации:

Nmb = "46000" ' изменяемая часть имени надстройки
Set objShellApp = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemO bject")
' ввел дополнительно для прямой адресации:
Set oShell = CreateObject("WScript.shell")

AddinTitle = "Calc_MKS" & Nmb
' ввел дополнительно для прямой адресации:
AddInsPath = oShell.ExpandEnvironmentStrings("%A PPDATA%\Microsoft\AddIns\")
AddInName = "Calc_MKS" & Nmb & ".xla"
AddinPath=AddInsPath & "\" & AddInName

On Error Resume Next
Set XL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
objShellApp.ShellExecute "excel.exe", , , , 3
WScript.Sleep 1500
Set XL = GetObject(, "Excel.Application")
else
XL.Workbooks.add
end if
With XL
if .Addins(AddinTitle).Installed = False Then
.Addins(AddinTitle).Installed =True
WScript.Sleep 1000
end if
WScript.Sleep 1000
.Run "StartCalc" & Nmb
' а этот вариант не срабатывает??:
'.Run 'AddinPath'!"StartCalc" & Nmb
End With

Ошибки в синтаксисе полного адреса вроде нет, и адрес точный.
В принципе, приведенный вариант работает, но как-то неустойчиво - задолбала необходимость применения Sleep-ов! Вот если бы иметь команды ожидания завершения, но таких что-то не найду
Кстати, когда пробовал CreteObject - в новой книге надстройка была видна, инсталлировалась, макрос запускался при первом пуске, а при последующих видимость надстройки оставалась, а проект в VBA пропадал ??

[SAS888]

' а этот вариант не срабатывает??:
'.Run 'AddinPath'!"StartCalc" & Nmb

В кавычки нужно брать вместе с путем:

Run "'" & AddinPath & "'!StartCalc" & Nmb

[alvazor]

Пасиб, SAS888 и doober!
В редакции SAS888 команда заработала (у меня еще в пути лишний слэш, правда, в проге-то правильно, только в форуме не исправил)
Но синтаксис команды так и не понял, особенно первый "&".
Может теперь что подскажете вместо Sleep? В том же InnoSetup используется опция "ждать завершения", м.б. и какой-нить вариант в скриптах есть?
А то эти задержки мало того, что тормозят сами по себе, приходится их подгонять на быстродействие конкретных ПЭВМ, т.е. на самое медленное

[SAS888]

Но синтаксис команды так и не понял, особенно первый "&".

В начале строки находится апостроф в кавычках. Затем сцепляем с переменной AddinPath (полный путь и имя файла надстройки с расширением), затем сцепляем с продолжением: апостроф, !, и т.д.

[alvazor]

Спасибо, SAS888, теперь дошло!
А то от обилия кавычек в глазах зарябило!

[alvazor]

Прошу прощения за назойливость!
Теперь действительно при инсталлированной надстройке макрос стал запускаться без сбоев. Другая проблема - надстройка не инсталлируется при первом пуске скрипта. Правда, проявилось только в Win XP Sp2, в Sp3 и Vista - все нормально??
(команда в тексте выше - .Addins(AddinTitle).Installed =True)
Создается и открывается новый файл "Книга1", надстройка (не инсталлированная) в нем видна, вручную инсталлируется
И опять-таки проект надстройки в новой книге отсутствует!
Может и для инсталляции надо прямо адресоваться, а не по Title?
Подскажите, плиз!