Вопрос : Макрос таблицы оси дает приписку ошибки из ряда

Когда я вызываю этот макрос от доступа мной получите приписку ошибки из ряда. Когда я бегу это внутри первенствуйте оно бежит отлично оно останавливает на этом рядке установленном WSD =
тусклое WSD



Sub CreatePivot рабочий лист («tblEXPORTMETRICS») () как Worksheet
тусклое PTCache как PivotCache
тусклый PT как PivotTable
тусклое PRange по мере того как Range
тусклое FinalRow как Long
установленное WSD =
«Delete
рабочий лист («tblEXPORTMETRICS») любое прежнее tables
оси для каждого PT в
WSD.PivotTables
PT.TableRange2.Clear
следующем PT
» определяет зону входного сигнала и setup ось Cache
FinalRow = WSD.Cells (65536, 1).End (xlUp). Row
установленные PRange = WSD.Cells (1, (FinalRow, 12)
установленные PTCache = ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData:

=PRange.Address) установленное PT = PTCache.CreatePivotTable (TableDestination: =Sheets. Add.Cells (5, 1), TableName: = "
PivotTableStates ") PT.ManualUpdate = True
«setup рядок & fields
PT.AddFields RowFields колонки: =Array («положение»), ColumnFields: = "


» " CHKVCHRCD setup fields
данных с PT.PivotFields («CHECKVIEWCHK.")
. Ориентация = xlDataField
. Функция = xlCount
. Положение =
«Calc With
конца 1
table
оси PT.ManualUpdate = False

PT.ManualUpdate = True
» добавили для files
WSD.Select проекта class=

Ответ : Макрос таблицы оси дает приписку ошибки из ряда

Также, если я понимаем правильно, то макрос внутри в personal.xls, только вы желает побежать оно на другом архиве.

Попытайтесь обменить заказ этих 2 линий Кодего:

Установите exbook = appXL.Workbooks.Open («C:\» & fname)
Установите exbook = appXL.Workbooks.Open («S:\Payroll\XLTEMPLATE\Personal.xls ")

так сделайте его:

Установите exbook = appXL.Workbooks.Open («S:\Payroll\XLTEMPLATE\Personal.xls ")
Установите exbook = appXL.Workbooks.Open («C:\» & fname)