ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Переименовать лист в книге
6 сообщений из 6, страница 1 из 1
Переименовать лист в книге
    #34629839
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
В первой книге (откуда и запускается VBA код) есть лист с таблицей ("Бланк"). Его копирую во вновь создаваемую книгу:

ThisWorkbook.Sheets("Бланк").Copy
WbFullName = FullPath & "Заказы.XLS"
ActiveWorkbook.SaveAs WbFullName

В новой книге появляется лист с названием "Бланк". Как мне этот лист переименовать?
Дело в том, что в новую книгу надо вставить 5 таких ОДИНАКОВЫХ таблиц (5 листов), но у каждого листа должно быть своё имя.
Никак не получается переименовать имя листа...

Помогите, плизззз!!!
...
Рейтинг: 0 / 0
29.06.2007, 23:02
| Ответить | Цитировать | Написать  
Переименовать лист в книге
    #34629873
aCoT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aCoT
Гость
ThisWorkbook.Sheets("Бланк").Copy
WbFullName = "Заказы.XLS"
ActiveWorkbook.SaveAs WbFullName

Windows(WbFullName).Activate
For i = 1 To 4
Sheets("Бланк").Copy Before:=Sheets(1)
Next
ActiveWorkbook.Save
ActiveWorkbook.Close
...
Рейтинг: 0 / 0
29.06.2007, 23:59
| Ответить | Цитировать | Написать  
Переименовать лист в книге
    #34629914
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Код: plaintext
1.
2.
3.
ThisWorkbook.Sheets("Бланк").Copy
ActiveSheet.Name = "Новое имя листа"
WbFullName = FullPath & "Заказы.XLS" 
ActiveWorkbook.SaveAs WbFullName
...
Рейтинг: 0 / 0
30.06.2007, 01:49
| Ответить | Цитировать | Написать  
Переименовать лист в книге
    #34630016
Alex37
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex37
Гость
White Owl
Код: plaintext
1.
2.
3.
ThisWorkbook.Sheets("Бланк").Copy
ActiveSheet.Name = "Новое имя листа"
WbFullName = FullPath & "Заказы.XLS" 
ActiveWorkbook.SaveAs WbFullName

Использовал обе подсказки, спасибо авторам! Получилось следущее - привожу кусок рабочего кода:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
 10   Datastr = InputBox("Введите дату готовности заказов:", "Ввод даты", Date)
 If Datastr = "" Then MsgBox "Вы не ввели дату", vbInformation, "Проверка": GoTo  10 
 ThisWorkbook.Sheets("Бланк комплектации").Copy
 ActiveSheet.Name = "Подоконники"
 ' задаем имя файла с датой
 WbFullName = FullPath & "Комплектация заказов на " & Datastr & ".XLS"
 ActiveWorkbook.SaveAs WbFullName          ' сохраняем вновь созданную книгу
 ' добавляем новые листы  в новую книгу со своими именами
 ' Windows(WbFullName).Activate ' в этой строке возникает ошибка - отключил её - работает и так
 For J =  1  To  4 
     Sheets("Подоконники").Copy Before:=Sheets( 1 )
     If J =  1  Then ActiveSheet.Name = "Отливы"
     If J =  2  Then ActiveSheet.Name = "Ручки"
     If J =  3  Then ActiveSheet.Name = "Сетки"
     If J =  4  Then ActiveSheet.Name = "Доп-профили"
 Next J

Может и криво, но работает :) Получаю книгу с 5 листами, одинаковые по содержимому, но с разными именами. Может есть более изящный и короткий способ?
...
Рейтинг: 0 / 0
30.06.2007, 11:35
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Переименовать лист в книге
    #36285909
Татик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Татик
Гость
примажусь к этому вопросу
а можно чтоб название листа бралось из определенной ячейки этого листа? например из А1
...
Рейтинг: 0 / 0
02.11.2009, 14:08
| Ответить | Цитировать | Написать  
Переименовать лист в книге
    #36286093
q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q
Гость
activesheet.name = activesheet.cells(1,1).value
...
Рейтинг: 0 / 0
02.11.2009, 15:01
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Переименовать лист в книге
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34629914&tid=2178900]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 176ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 221ms
total:  453ms
созд. / загр.: 453ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]