Question : Le macro de table de pivot donne l'indice inférieur d'erreur hors de la gamme

Quand je m'appelle ce macro de l'accès obtenir l'indice inférieur d'erreur hors de la gamme. Quand je cours ceci dedans l'exceler le court très bien s'arrête à cette rangée réglée WSD =
faible WSD du
du


Sub CreatePivot de feuilles de travail (« tblEXPORTMETRICS ») () comme Worksheet
faible PTCache comme PivotCache
faible pinte comme PivotTable
faible PRange comme Range
faible FinalRow comme Long
réglé WSD =
« suppression du
de feuilles de travail (« tblEXPORTMETRICS ») n'importe quel tables
de pivot pour chaque pinte dans le prochain PT

de WSD.PivotTables
PT.TableRange2.Clear
 » définissent le secteur d'entrée et ont installé un pivot Cache
FinalRow = WSD.Cells (65536, 1).End (xlUp). Row
PRange = WSD.Cells réglés (1, (FinalRow, 12)
PTCache = ActiveWorkbook.PivotCaches.Add (SourceType : =xlDatabase, SourceData :
du
de =PRange.Address) réglé pinte = PTCache.CreatePivotTable (TableDestination : =Sheets. Add.Cells (5, 1), TableName : = le
de " PivotTableStates ") PT.ManualUpdate = True
« a installé la rangée et le fields
PT.AddFields RowFields de colonne : =Array (« état »), ColumnFields : = " le
du

 » de " CHKVCHRCD a installé le fields
de données avec PT.PivotFields (« CHECKVIEWCHK.")
. Orientation = xlDataField
. Fonction = xlCount
. La position = le
« CALC de With
de fin de 1
le table
de pivot PT.ManualUpdate = False
le
de PT.ManualUpdate = de True
 » se sont ajoutés pour le files
WSD.Select de projet class= de

Réponse : Le macro de table de pivot donne l'indice inférieur d'erreur hors de la gamme

En outre, si moi comprend correctement, le macro dedans dans personal.xls, mais vous souhaitent le courir sur l'autre dossier.

Essayer de permuter l'ordre de ces deux lignes de code :

Placer l'exbook = l'appXL.Workbooks.Open (« C:\ » et le fname)
Placer l'exbook = l'appXL.Workbooks.Open (« S:\Payroll\XLTEMPLATE\Personal.xls ")

le faire ainsi :

Placer l'exbook = l'appXL.Workbooks.Open (« S:\Payroll\XLTEMPLATE\Personal.xls ")
Placer l'exbook = l'appXL.Workbooks.Open (« C:\ » et le fname)