Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Открытие книги после закрытия
 
Здравствуйте! Код после
Код
ActiveWindow.Close True
не срабатывает, что делаю не так? Подскажите пожалуйста
Код
Sub SaveAs()
    ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Filename:=Range("bh1").Value
    Dim WbLinks
    Dim i As Long
    WbLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
    If Not IsEmpty(WbLinks) Then
        For i = 1 To UBound(WbLinks)
            ActiveWorkbook.BreakLink Name:=WbLinks(i), Type:=xlLinkTypeExcelLinks
        Next
    Else
    End If
    ActiveWindow.Close True
            Workbooks.Open Filename:= _
        "\\aaaa\1232.xlsm", _
        UpdateLinks:=0
End Sub
 
А в какой книге этот код? Не в той ли что  закрывается?
 
БМВ,да точно, спасибо
Страницы: 1
Читают тему (гостей: 1)
Наверх