Здравствуйте, дорогие форумчане!
Прошу Вас помочь мне с функциями открытия файлов. Я уже пытался по форуму найти, но как то не очень и пока рабочий вариант был только такой:

Sub opnfl(fname As String)
On Error GoTo ext
CreateObject("WScript.Shell").Run fname
Exit Sub
ext:
MsgBox "Не могу открыть файл!"
End Sub

При этом выпадает ошибка:
"Run-time error '-2147024894 (80070002)':
Method 'Run' of object 'IWshShell3' failed"

Т.е. вот эта конструкция работала, а потом внезапно нет
Памагити, блин, пожалуйста

____
vk.com/taenfox

http://www.sql.ru/forum/1293929/zapusk-otkrytie-faylov-i-papok