! Как добавить лист в Excel'e

Программирование на Visual Basic for Applications
GAL
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 69
Зарегистрирован: 05.11.2004 (Пт) 15:57

! Как добавить лист в Excel'e

Сообщение GAL » 06.04.2005 (Ср) 15:45

Помогите кто может...:roll:
Мне нужно добавить лист в Excel'e, но с определенным названием, например: Итоги.
Как просто добавить лист я знаю, а вот чтобы указать название листа - нет.
Помогите.. если не затруднит.
Заранее спасибо.

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 06.04.2005 (Ср) 15:48

Sheets.Add
ActiveSheet.Name="Итоги"

А вообще, читай хелп и используй "Запись макросов". Помогает.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 06.04.2005 (Ср) 15:50

Азбуку читали? ;)

Worksheets.Add.Name = "Name"



2 uhm

А свой пост не сотру все равно, потому что короче и элегантней :)

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 06.04.2005 (Ср) 15:55

Согласен. Хотя новички могут таких конструкций испугаться :)

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 06.04.2005 (Ср) 16:05

Код: Выделить всё
With Sheets.Add
.Name = "Итоги"
End With



Код: Выделить всё
Sheets.Add
ActiveSheet.Name="Итоги"

Потому как я напоролся, на том, что пользователь в это время активизировал другой лист :(

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 06.04.2005 (Ср) 16:11

1ый вариант - это то же, что писал RayShade.

Про пользователя - да, при определенной ловкости рук можно успеть :). Так что первый вариант и вправду лучше по всем параметрам.

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 06.04.2005 (Ср) 16:50

Иногда необходимо установить несколько свойств :D

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 06.04.2005 (Ср) 16:56

Вопрос был только про 1 свойство :)

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 06.04.2005 (Ср) 17:05

Где одно, там и пять! :wink:

Я вообще частенько делаю так:

Код: Выделить всё

Dim sh As Workseet
set sh = Sheets.Add
sh.Name = "Итоги"
' Дальнейшая работа

' и в конце
set sh = Nothing

Ramzes
Скромный человек
Скромный человек
Аватара пользователя
 
Сообщения: 5004
Зарегистрирован: 12.04.2003 (Сб) 11:59
Откуда: Из гробницы :)

Сообщение Ramzes » 06.04.2005 (Ср) 19:13

[off]
И меня еще время от времени во флудерестве обвиняют! Тут ответ был дан в первом ответе!
:roll: [/off]

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 06.04.2005 (Ср) 21:18

Ну мне может тоже, хочется три ряда звездей под ником!
8) :D

А ещё автор первого ответа (моё почтение :D ) признал, что ответ может быть разным, главное знать к чему может привести различные варианты использования :D

Ser Artur
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 23
Зарегистрирован: 10.10.2005 (Пн) 13:03

Я могу предложить другой вариант

Сообщение Ser Artur » 11.10.2005 (Вт) 7:36

Вот пример
Вложения
addsheet.zip
(12.99 Кб) Скачиваний: 48


Вернуться в VBA

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

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

    TopList