Dim xl As Object
...
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open DbPath + "qwe.xls"
...
В обр.ош. надо проверить.
В хелпе в IsObject написано про IsNothing, но он не работает.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3