powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать имя листа в Excel
5 сообщений из 5, страница 1 из 1
Как узнать имя листа в Excel
    #35673478
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте, подскажите, плз, как узнать имя добавленного листа,
что-то типа...

Sheets.Add
ActiveSheet.Paste

ИмяЛиста = Sheet.Name '--- ????????????
Cells(1, 6).Value = ИмяЛиста
...
Рейтинг: 0 / 0
Как узнать имя листа в Excel
    #35673984
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
dim ws as worksheet
set ws = sheets.add
ИмяЛиста=ws.name
...
Рейтинг: 0 / 0
Как узнать имя листа в Excel
    #35674781
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

Пишет, что лист ИмяЛиста не обнаружен.
...
Рейтинг: 0 / 0
Как узнать имя листа в Excel
    #35674843
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Piter_Спасибо, лист определил. А почему не хочет имяЛиста не воспринимает как переменную...Потому что ты ее написал как константу.
...
Рейтинг: 0 / 0
Как узнать имя листа в Excel
    #35674888
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать имя листа в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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