Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Главное меню

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

Автор Anton Stasenko, 06.04.2012, 16:40

« назад - далее »

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

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Anton Stasenko

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