Макрос открывающий книгу Excel.

[agregator]

Напишите пожалуйста макрос, открывающий из документа Word книгу Excel на диске Y "Ремонт грузовых.xls".

[EducatedFool]

Sub СложнейшийМакрос()
    CreateObject("wscript.shell").Run "Y:\Ремонт грузовых.xls"
End Sub

[agregator]

Explorer через адресную строку открывает книгу Excel, a Word VBA ругается "Debug".

[EducatedFool]

Виноват - этот код работает только в том случае, если в имени файла нет пробелов.

Попробуйте такой вариант:

Sub test1()
    CreateObject("wscript.shell").Run """R:\Licence File Editor.xls"""
End Sub

Ну или так:

Sub test2()
    ПутьКФайлу = "R:\Licence File Editor.xls"
    If Dir(ПутьКФайлу) <> "" Then CreateObject("wscript.shell").Run Chr(34) & ПутьКФайлу & Chr(34)
End Sub

[agregator]

Спасибо, все макросы работают.