функция Windows(имя).Activate

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

функция Windows(имя).Activate (ошибка в коде VBA)

функция Windows(имя).Activate

Bandin

Дата: Воскресенье, 28.04.2013, 11:28 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Добрый день, подскажите пожалуйста, в чем тут ошибка?
[vba]

Код

Windows(имя).Activate

[/vba] - программа выдает ошибку в этой строчке

вот весь код:
[vba]

Код

    имя = "Ситуационный план С-Н.xls"
'   **************************************************
'
'   Имя листа с исходными данными ситуационного плана
'   **************************************************
            имялист = "Таб С-Н"
'    имялист = "КИП"
'   **************************************************
'
'              Ввод начала и конца участка, шага отображения
            nn = "Введите дистанцию начала участка в км"
            начало = InputBox(nn)
            kk = "Введите дистанцию конца участка в км"
            конец = InputBox(kk)
            hh = "Введите интервал участка отображения на листе в км"
            интервал = InputBox(hh)
            km = 950 / интервал / 1000
            nnn = (конец - начало) / интервал
            Windows(имя).Activate
            Sheets(имялист).Select

[/vba]