Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Переименовать лист в книге / 6 сообщений из 6, страница 1 из 1
29.06.2007, 23:02:57
    #34629839
Alex37
Alex37
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать лист в книге
В первой книге (откуда и запускается VBA код) есть лист с таблицей ("Бланк"). Его копирую во вновь создаваемую книгу:

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

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

Помогите, плизззз!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.06.2007, 23:59:39
    #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
| Ответить | Цитировать | Написать  
30.06.2007, 01:49:32
    #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, 11:35:47
    #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
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
02.11.2009, 14:08:37
    #36285909
Татик
Татик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать лист в книге
примажусь к этому вопросу
а можно чтоб название листа бралось из определенной ячейки этого листа? например из А1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2009, 15:01:12
    #36286093
q
q
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переименовать лист в книге
activesheet.name = activesheet.cells(1,1).value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Переименовать лист в книге / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 504ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2178900]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 192ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 249ms
total:  504ms
x
x
Закрыть


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