Страницы: 1
RSS
Показать панель запросов Power Query при открытии книги, VBA (Visible=True)
 
Давно ищу как задать открытие панели PQ при открытии Excel или при открытии книги
Импортные способы не помогли:

Код
Application.CommandBars("Queries and Connections").Visible = True
Application.CommandBars("Queries and Connections").Width = 300

Application.CommandBars("Workbook Queries").Enabled = True

явно видно, что дело в наименовании
перебор русскоязычных для панели пока без успеха (в т.ч. попытка PowerQueryManageWorkbookQueries)
 
Доброе время суток
Цитата
Дмитрий Марков написал:
дело в наименовании
С 2016 поменялось, видимо.
Код
Public Sub showQueriesPane()
    Application.CommandBars("Workbook Queries").Visible = True
    Application.CommandBars("Workbook Queries").Width = 300
End Sub

P. S. если в книге нет ни одного подключения, то будет ошибка.
 
Андрей VG, здравствуйте!

В который раз Огромное Вам спасибо!
Если в книге нет ни одного подключения, то On Error Resume Next хорошо обходит отсутствие
Не очень только получается вызвать при открытии книги, Do Events не помогло, параллельных кодов тоже нет
Код
Private Sub Workbook_Open()
Call Module1.showQueriesPane
DoEvents
End Sub
 
Цитата
Дмитрий Марков написал:
Do Events не помогло
Сделайте лучше вызов Module1.showQueriesPane на OnTime через несколько секунд. Скорее всего, просто не подхватывается движком существование подключений в книге.
 
Добрый день, Андрей! Можно, скорее всего, и без задержек:
Код
Private Sub Workbook_Open()
  Application.OnTime Now(), "showQueriesPane"
End Sub
Владимир
 
Цитата
sokol92 написал:
скорее всего, и без задержек
на деле, при старте OnTime используется для того, чтобы выждать пока все внутренние процессы Excel прогрузятся. И поэтому да, можно даже не указывать размер задержки - запуск сработает как только Excel сможет нормально отвечать на события.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Владимир, Дмитрий - большое спасибо!
 
Андрей VG, sokol92, Дмитрий(The_Prist) Щербаков, большое спасибо! Все подхватывается, отлично работает!


P.S. Андрей VG, с Днем рождения! Всего наилучшего!
Страницы: 1
Наверх