Новая книга Excel как отдельная переменная

Программирование на Visual Basic for Applications
Володя
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.06.2003 (Чт) 14:45
Откуда: Москва

Новая книга Excel как отдельная переменная

Сообщение Володя » 28.06.2003 (Сб) 15:23

Господа специалисты, подскажите.

В процессе реализации программы создается новая книга (посредством Workbooks.Add). Потом создается еще одна книга. Потом нужно обратиться к первой созданной книге (добавить туда листов, информации). Потом нужно обратиться ко второй и так по очереди - то к одной, то к другой. Как бы это реализовать так, чтобы не очень громоздко?

И еще, простите, глупый вопрос. :oops: Есть путь к экселевскому файлу. Этот файл уже открыт, но активирован другой экселевский файл. Как активировать первый файл?

Спасибо.
Заранее благодарен, Володя.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 29.06.2003 (Вс) 7:06

  1. Код: Выделить всё
    Set MyBook1 = Workbooks.Add
    Set MyBook2 = Workbooks.Add
    Set MyBook3 = Workbooks.Add
    MyBook2.Worksheets(3).Calculate
  2. Код: Выделить всё
    Workbooks("DesiredBook").Activate
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Володя
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.06.2003 (Чт) 14:45
Откуда: Москва

Сообщение Володя » 05.07.2003 (Сб) 14:48

Спасибо.

Вопрос еще в том, что нужно создать эту книгу с одной только страницей. Пытался написать Set MyBook = WorkBooks.Add 1 - так выдает ошибку. :?:
Заранее благодарен, Володя.

Володя
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.06.2003 (Чт) 14:45
Откуда: Москва

Сообщение Володя » 05.07.2003 (Сб) 15:20

Кстати. пытался сделать Workbooks("D:\Mybook.xls").Activate тоже не работает :( или я что-то путаю?
Заранее благодарен, Володя.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 06.07.2003 (Вс) 5:30

  1. Set MyBook = Workbooks.Add(1)
  2. Workbooks("MyBook.xls").Activate
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Володя
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.06.2003 (Чт) 14:45
Откуда: Москва

Сообщение Володя » 07.07.2003 (Пн) 10:43

Спасибо, Серж.
Заранее благодарен, Володя.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 70

    TopList