Questione : Imperniare il sottoscritto di errore di elasticità di macro della tabella fuori portata

Quando mi denomino questa macro da accesso ottenere il sottoscritto di errore fuori portata. Quando faccio funzionare questo dentro eccellerlo lo fa funzionare benissimo si arresta a questa fila stabilita WSD =
WSD fioco del
del


Sub CreatePivot dei manuali (“tblEXPORTMETRICS„) () come Worksheet
PTCache fioco come PivotCache
pinta fioca come PivotTable
PRange fioco come Range
FinalRow fioco come Long
stabilito WSD =
“cancellazione del
dei manuali (“tblEXPORTMETRICS„) tutto il tables
del perno per ogni pinta nel
di WSD.PivotTables
PT.TableRange2.Clear
PT
„ definisce la zona di input ed ha installato un perno Cache
FinalRow = WSD.Cells (65536, 1).End (xlUp). Row
PRange = WSD.Cells stabiliti (1, 1).Resize (FinalRow, 12)
PTCache = ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData:
del
di =PRange.Address) stabilito pinta = PTCache.CreatePivotTable (TableDestination: =Sheets. Add.Cells (5, 1), TableName: = " il
di PivotTableStates ") PT.ManualUpdate = True
“ha installato la fila & il fields
PT.AddFields RowFields della colonna: =Array (“condizione„), ColumnFields: = " il
del

„ " di CHKVCHRCD ha installato il fields
di dati con PT.PivotFields (“CHECKVIEWCHK.")
. Orientamento = xlDataField
. Funzione = xlCount
. La posizione = il
“Calc di With
di conclusione di 1
il table
del perno PT.ManualUpdate = False

di True
„ hanno aggiunto per il files
WSD.Select di progetto class= del

Risposta : Imperniare il sottoscritto di errore di elasticità di macro della tabella fuori portata

Inoltre, se io capisce correttamente, la macro dentro in personal.xls, ma voi desidera farla funzionare sull'altra lima.

Provare a scambiare l'ordine di queste due linee di codice:

Regolare il exbook = appXL.Workbooks.Open (“C:\„ & fname)
Regolare il exbook = appXL.Workbooks.Open (“S:\Payroll\XLTEMPLATE\Personal.xls ")

così farlo:

Regolare il exbook = appXL.Workbooks.Open (“S:\Payroll\XLTEMPLATE\Personal.xls ")
Regolare il exbook = appXL.Workbooks.Open (“C:\„ & fname)