ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / отличить куб от сводной таблицы
4 сообщений из 4, страница 1 из 1
отличить куб от сводной таблицы
    #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, 14:32
| Ответить | Цитировать | Написать  
отличить куб от сводной таблицы
    #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:06
| Ответить | Цитировать | Написать  
отличить куб от сводной таблицы
    #39694377
нуб987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нуб987
Участник
да, так сработало :)
но почему есть разница между "прямым" получением значения свойства: Sheets(n).PivotTables(m).MDX
и "косвенным" (через объект из For Each): p.MDX

суть ведь одна.
Но почему-то при обращении из первого варианта выдается ошибка. А при обращении к объекту как во втором варианте все ок.
Почему так?
...
Рейтинг: 0 / 0
28.08.2018, 15:13
| Ответить | Цитировать | Написать  
отличить куб от сводной таблицы
    #39694381
нуб987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нуб987
Участник
ааа..... невнимательно посмотрел код
ошибка есть в любом случае. Просто либо мы ее получаем и игнорируем, либо НЕ получаем и понимаем, что в этой таблице куб (раз нет ошибки)
...
Рейтинг: 0 / 0
28.08.2018, 15:15
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / отличить куб от сводной таблицы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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