Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / отличить куб от сводной таблицы / 4 сообщений из 4, страница 1 из 1
28.08.2018, 14:32
    #39694344
нуб987
нуб987
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отличить куб от сводной таблицы
подскажите, как в макросе отличить куб от сводной таблицы?
делал так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim n As Integer
Dim m As Integer
For n = 1 To Sheets.Count
    For m = 1 To Sheets(n).PivotTables.Count
        if Sheets(n).PivotTables(m).MDX <> "" then ... ' CUBE
            else ... ' NOT cube
        endif
    Next m


выдает ошибку "Application-defined or object-defined error"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2018, 15:06
    #39694370
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отличить куб от сводной таблицы
нуб987, файла нет - не проверял
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub uu()
Dim w As Worksheet, p As PivotTable
  On Error Resume Next
  For Each w In ActiveWorkbook.Worksheets
    For Each p In w.PivotTables
      If p.MDX = "" Then
        ' NOT cube - сюда будет передано управление в случае ошибки
      Else
        ' CUBE
      End If
    Next
  Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2018, 15:13
    #39694377
нуб987
нуб987
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отличить куб от сводной таблицы
да, так сработало :)
но почему есть разница между "прямым" получением значения свойства: Sheets(n).PivotTables(m).MDX
и "косвенным" (через объект из For Each): p.MDX

суть ведь одна.
Но почему-то при обращении из первого варианта выдается ошибка. А при обращении к объекту как во втором варианте все ок.
Почему так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.08.2018, 15:15
    #39694381
нуб987
нуб987
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отличить куб от сводной таблицы
ааа..... невнимательно посмотрел код
ошибка есть в любом случае. Просто либо мы ее получаем и игнорируем, либо НЕ получаем и понимаем, что в этой таблице куб (раз нет ошибки)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / отличить куб от сводной таблицы / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 139ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172261]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 12ms
total:  139ms
x
x
Закрыть


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