Файл не открывается программно - недопустимый формат

[Bezdar]

Добрый день, уважаемые профи!
Суть дела - в ячейке листа есть ссылка на файл Word. По ссылке файл открывается, а программно не хочет, пишет "ошибка 1004: недопустимый формат".
Код:

Workbooks.Open Filename:=ActiveSheet.Range("A10"). Value

Вставляю в ячейку ссылку на экселевский файл - загружает программно всегда и без проблем.

Прямо мистика какая-то - пару раз вордовский файл соизволил все же программно открыться, а теперь опять брыкается.

Может, кто сталкивался с таким? Памажите, подскажите, пока дело не дошло до нервенного срыва.

[Hugo121]

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

Workbooks.Open

- ? Вы же говорите что там ворд!

[Bezdar]

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

- ? Вы же говорите что там ворд!

Семен Семеныч...

Это ж сколько бы я билась с нерешаемой проблемой

шепотом а открывался жеж

[Serge_Bliznykov]

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

Вы же говорите что там ворд!

ага. а открывать пытается книгу MS Excel.

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

Workbooks.Open Filename:=ActiveSheet.Range("A10"). Value

попробуйте что-то вроде такого:

Function FnOpeneWordDoc()

   Dim objWord

   Dim objDoc

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Open(ActiveSheet.Range("A10").Value)

   objWord.Visible = True

End Function

[Bezdar]

Спасибо большое за подсказки и помощь! Без вас бы не справилась.
А то я ссыль заменила, а про код даже и не подумала ни разу.