Excel VBA: Указывать на прогресс пользователя в PivotCaches.create

Question

Я немного оглянулся, но не могу найти ответ на этот вопрос. В моей VBA У меня есть строка, которая создает новую сводную таблицу и вставляет его в таблицу, как SO-

Application.StatusBar = MyPC.RecordCount 

ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _ 
    ActiveWorkbook.Connections("ACCESS2"), Version:=xlPivotTableVersion14). _ 
    CreatePivotTable TableDestination:="Dashboard!R20C1", TableName:= _ 
    "PTDashboard", DefaultVersion:=xlPivotTableVersion14 

Application.StatusBar = False 

Когда я был на ранних стадиях строительства этого строки состояния будет отображать счетчик, сколько записей было введя в pivotCache из Connection. По какой-то причине это пошло, и я пытаюсь подражать тому, что он делает (возможно, это была версия Excel 2013, так как я также работал над этим проектом на домашнем компьютере).

Поскольку может быть несколько сотен тысяч записей, это может занять до минуты, и я хочу показать пользователю, что это происходит.

Обычно я делаю это в цикле, но поскольку у меня нет этой опции, я немного тупик. Есть ли где-то в фоновом режиме, откуда я могу прочитать эти данные? Надеюсь, я был достаточно ясен. Заранее спасибо.

Answer 1

Я не думаю, что вы сможете получить доступ к данным так, как вы хотите, но чтобы избежать появления висящего приложения или кода, перестаньте работать, вот что вы можете сделать.

Создать небольшую UserForm и поставить одну метку на нем с сообщением, которое указывает на ваш макрос делать что-то, например, «Пожалуйста, подождите, пока Pivotecache нагрузки ... это может занять до 1 минуты.»

Затем отобразите его vbModeless непосредственно перед тем, как вы вызовете свой PivotCache и выгрузите его сразу же после.

Я проверил это с петлей, но я думаю, что он должен работать с тем, что вы делаете, тоже что-то вроде:

Sub Test() 

    UserForm1.Show vbModeless 

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _ 
     ActiveWorkbook.Connections("ACCESS2"), Version:=xlPivotTableVersion14). _ 
     CreatePivotTable TableDestination:="Dashboard!R20C1", TableName:= _ 
     "PTDashboard", DefaultVersion:=xlPivotTableVersion14 

    Unload UserForm1 

End Sub 

Answer 2

Вы можете попробовать это?

Application.StatusBar = "Creating Pivot... Please be Patient" 
DoEvents 

ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _ 
ActiveWorkbook.Connections("ACCESS2"), Version:=xlPivotTableVersion14). _ 
CreatePivotTable TableDestination:="Dashboard!R20C1", TableName:= _ 
"PTDashboard", DefaultVersion:=xlPivotTableVersion14 

Application.StatusBar = "Pivot Created!" 
DoEvents