Открытие файла макросом

[Anton Stasenko]

Сегодня начали чудить макросы - при открытии файла - пишут ошибку Run-time error "-2147418113 (80000ffff)

Может кто знает - что не так?

Dim wbBook As Boolean
    wbBook = False
    For Each Workbook In Workbooks
        If Workbook.Name = "Lenteles konsolidavimu SB 2011.xlsm" Then
        Workbook = True
        Exit For
        End If
    Next Workbook
    With Worksheets("Tarpusavio sandoriu")
    .Activate
    End With
    With Application
    If Not Workbook Then
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Lenteles konsolidavimu SB 2011.xlsm"
    Else
    End If
    End With

[Anton Stasenko]

Не понял прикола, но функция ThisWorkbook.Path у меня почему-то перестала работать.
Работает только функция ActiveWorkbook.Path - а значит надо переделывать все макросы.
Может быть кто-нибудь знает почему ThisWorkbook.Path перестала работать???

[kuklp]

Потому как написали Вы, мягко говоря, ахинею:-) Попробуйте так:
Public Sub www()
    Dim wb As Workbook
    On Error Resume Next
    Set wb = GetObject(ThisWorkbook.Path & "\Lenteles konsolidavimu SB 2011.xlsm")
    Windows("Lenteles konsolidavimu SB 2011.xlsm").Visible = -1
    wb.Worksheets("Tarpusavio sandoriu").Activate: On Error GoTo 0
'    ...
End Sub

[Anton Stasenko]

Если бы у меня не получилась бы ахинея, я бы и не открывал бы здесь тему. А такой код написал, исходя из того что мне надо было получить и не имея опыта написания макросов.
В любом случае спасибо за ответ - теперь буду изучать Object и смотреть "с чем их едят"