Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать имя листа в Excel / 5 сообщений из 5, страница 1 из 1
25.11.2008, 11:19:41
    #35673478
Piter_
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать имя листа в Excel
Здравствуйте, подскажите, плз, как узнать имя добавленного листа,
что-то типа...

Sheets.Add
ActiveSheet.Paste

ИмяЛиста = Sheet.Name '--- ????????????
Cells(1, 6).Value = ИмяЛиста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 13:19:42
    #35673984
nporaMep
nporaMep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать имя листа в Excel
dim ws as worksheet
set ws = sheets.add
ИмяЛиста=ws.name
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 17:37:39
    #35674781
Piter_
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать имя листа в Excel
Спасибо, лист определил. А почему не хочет имяЛиста не воспринимает как переменную...

Dim ws As Worksheet
Set ws = Sheets.Add

ИмяЛиста = ws.Name
Cells(1, 2).Value = ИмяЛиста

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ИмяЛиста!R1C1:R12345C38").CreatePivotTable TableDestination:="", TableName:= _
"СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select

Пишет, что лист ИмяЛиста не обнаружен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 17:58:42
    #35674843
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать имя листа в Excel
Piter_Спасибо, лист определил. А почему не хочет имяЛиста не воспринимает как переменную...Потому что ты ее написал как константу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 18:16:34
    #35674888
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать имя листа в Excel
Piter_Спасибо, лист определил. А почему не хочет имяЛиста не воспринимает как переменную...

Dim ws As Worksheet
Set ws = Sheets.Add

ИмяЛиста = ws.Name
Cells(1, 2).Value = ИмяЛиста

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ИмяЛиста!R1C1:R12345C38").CreatePivotTable TableDestination:="", TableName:= _
"СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select

Пишет, что лист ИмяЛиста не обнаружен.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim ws As Worksheet
    Set ws = Sheets.Add
       
    ИмяЛиста = ws.Name
    Cells( 1 ,  2 ).Value = ИмяЛиста

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'" & ИмяЛиста & "'!R1C1:R12345C38").CreatePivotTable TableDestination:="", TableName:= _
        "СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells( 3 ,  1 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать имя листа в Excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 560ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2180083]:
 0ms
get settings:
 8ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 215ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 240ms
total:  560ms
x
x
Закрыть


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