Макрос создания сводной таблицы не понимает название листа

Пользователь

Сообщений: 206 Регистрация: 01.01.1970

08.11.2015 12:01:45

Добрый день уважаемые форумчане.

Написал макрос, который создает сводную таблицу на основе диапазона с динамически изменяющимся кол-вом строк:

Код

Sub IO()
finalRow = Cells(Rows.Count, 2).End(xlUp).Row
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "HRST!R5C2:R" & finalRow & "C15", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="HRST!R5C18", TableName:="Сводная2", _
        DefaultVersion:=xlPivotTableVersion12
End Sub

Но вот проблема - название листа с иточником данных состоит из двух слов и разделено пробелом (без использования символа нижнее подчеркивание) и когда я использую в коде название листа HR ST, то макрос выдает ошибку Run Time error 5 Invalid procedure or argument

Но как только название листа переименуешь на HRST и внесешь соответствующие изменения в код, то макрос работает как часы и не выдает ошибку.

Хотелось бы узнать, можно ли как-то обойти данную ошибку без переименования листа HR ST в HRST, т.к. в книге есть множество других макросов, которые работают именно с названием HR ST и переделывать их все очень не хотелось бы.

Прикрепленные файлы

HR ST.xlsm (15.51 КБ)

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 08.11.2015 12:26:09 pinguindell, создайте на другом листе формулу, которая ссылается на любую ячейку этого листа - увидите, как нужно изменить имя листа для использования ссылок вида "Лист!ячейка".

pinguindell

Пользователь

Сообщений: 206 Регистрация: 01.01.1970

08.11.2015 13:25:59

Казанский,спасибо !!! Сначала въехать не мог, что нужно сделать, потом все таки дошло, на тот случай если кто-то тоже столкнется с такой "проблемой", к названию листа нужно добавить апострофы, в результате макрос работает как нужно:

Код

Sub IO()
finalRow = Cells(Rows.Count, 2).End(xlUp).Row
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "'HR ST'!R5C2:R" & finalRow & "C15", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="'HR ST'!R5C18", TableName:="Сводная 2", _
        DefaultVersion:=xlPivotTableVersion12
End Sub

Изменено: pinguindell - 08.11.2015 13:26:33