Vraag : De de lijstmacro van de spil geeft foutensubscript uit waaier

Wanneer ik deze macro van toegang roep krijg ik het foutensubscript uit waaier. Wanneer ik dit binnen in werking stel blink het in werking stelt boete uit het bij deze rij Vastgesteld WSD = Aantekenvellen („tblEXPORTMETRICS“)


Sub CreatePivot ()

Schemerige WSD als Worksheet
Schemerige PTCache als PivotCache
Schemerig PT als PivotTable
Schemerige PRange tegenhoudt aangezien Range
Schemerige FinalRow als Vastgestelde Long
WSD = Aantekenvellen („tblEXPORTMETRICS“)

„om het even welke vroegere spil tables
voor Elk PT in WSD.PivotTables
PT.TableRange2.Clear
Volgende PT

“ inputgebied en opstelling een Spil Cache
FinalRow = WSD.Cells (65536, 1) bepaalt. Eind (xlUp). Row
Vastgestelde PRange = WSD.Cells (1, 1). Resize (FinalRow, 12)
Vastgestelde PTCache = ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData: vastgestelde =PRange.Address)

PT = PTCache.CreatePivotTable (TableDestination: =Sheets. Add.Cells (5, 1), TableName: = "/> „Opstelling PivotTableStates ")
PT.ManualUpdate = True
PT.AddFields RowFields: =Array („staat“), ColumnFields: = De Opstelling van " CHKVCHRCD "


de“ gegevens fields
met PT.PivotFields („CHECKVIEWCHK. “)
. Richtlijn = xlDataField
. Functie = xlCount
. Positie = 1
Eind With

„Calc de spil table
PT.ManualUpdate = False
PT.ManualUpdate die = True

“ voor het project files
WSD.Select wordt toegevoegd

Antwoord : De de lijstmacro van de spil geeft foutensubscript uit waaier

Ook, als ik correct begrijp, wenst de macro binnen in personal.xls, maar u om het op het andere dossier in werking te stellen.

Probeer ruilend de orde van deze twee lijnen van code:

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

maak het zo:

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