Cuestión : La macro de la tabla del pivote da subíndice del error fuera de gama

Cuando me llamo esta macro del acceso salir el subíndice del error fuera de gama. Cuando ruedo esto sobresalirlo lo funciona para muy bien en esta fila determinada WSD = el
WSD dévil del
del


Sub CreatePivot de las hojas de trabajo (“tblEXPORTMETRICS”) () como Worksheet
PTCache dévil como PivotCache
pinta dévil como PivotTable
PRange dévil como Range
FinalRow dévil como Long
determinado WSD = el
“cancelación del
de las hojas de trabajo (“tblEXPORTMETRICS”) cualquier tables
del pivote para cada pinta en el
de WSD.PivotTables
PT.TableRange2.Clear
PT
” define área de entrada y fijó un pivote Cache
FinalRow = WSD.Cells (65536, 1).End (xlUp). Row
PRange = WSD.Cells determinados (1, (FinalRow, 12)
PTCache = ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData:
del
de =PRange.Address) determinado pinta = PTCache.CreatePivotTable (TableDestination: =Sheets. Add.Cells (5, 1), TableName: = el
de " PivotTableStates ") PT.ManualUpdate = True
“fijó la fila y el fields
PT.AddFields RowFields de la columna: =Array (“estado”), ColumnFields: = " el
del

” de " CHKVCHRCD fijó el fields
de los datos con PT.PivotFields (“CHECKVIEWCHK.")
. Orientación = xlDataField
. Función = xlCount
. La posición = el
“Calc de With
del final de 1
el table
del pivote PT.ManualUpdate = False
el
de PT.ManualUpdate = de True
” agregaron para el files
WSD.Select del proyecto class= del

Respuesta : La macro de la tabla del pivote da subíndice del error fuera de gama

También, si yo entiende correctamente, la macro adentro en personal.xls, solamente usted desea funcionarlo en el otro archivo.

Intentar intercambiar la pedido de estas dos líneas de código:

Fijar el exbook = appXL.Workbooks.Open (“C:\” y el fname)
Fijar el exbook = appXL.Workbooks.Open (“S:\Payroll\XLTEMPLATE\Personal.xls ")

hacerlo tan:

Fijar el exbook = appXL.Workbooks.Open (“S:\Payroll\XLTEMPLATE\Personal.xls ")
Fijar el exbook = appXL.Workbooks.Open (“C:\” y el fname)