Frage : Gelenktabellenmakro gibt Störungstiefzeichen aus Strecke heraus

Wenn ich dieses Makro vom Zugang mich nenne, das Störungstiefzeichen aus Strecke heraus erhalten. Wenn ich dieses innen laufen lasse, es übertreffen laufen lässt fein es stoppt an dieser gesetzten Reihe WSD = Arbeitsblätter („tblEXPORTMETRICS“)


Sub CreatePivot ()

schwaches WSD als Worksheet
schwaches PTCache als PivotCache
schwacher Pint als PivotTable
schwaches PRange, wie Range
schwaches FinalRow als gesetztes Long
WSD = Arbeitsblätter („tblEXPORTMETRICS“)

„Löschung jedes vorherige Gelenk tables
für jeden Pint WSD.PivotTables
PT.TableRange2.Clear
im Folgenden PT

“ Eingangsbereich definieren und ein Gelenk Cache
FinalRow = WSD.Cells gründeten (65536, 1).End (xlUp). Row
gesetztes PRange = WSD.Cells (1, (FinalRow, 12)
gesetztes PTCache = ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData: =PRange.Address)

gesetzt Pint = PTCache.CreatePivotTable (TableDestination: =Sheets. Add.Cells (5, 1), TableName: = " PivotTableStates ")
PT.ManualUpdate = True
„gründete die Reihe u. das Spalte fields
PT.AddFields RowFields: =Array („Zustand“), ColumnFields: = " CHKVCHRCD "


“ gründete das Daten fields
mit PT.PivotFields („CHECKVIEWCHK.")
. Lagebestimmung = xlDataField
. Funktion = xlCount
. Position = 1
Ende With

„Calc das Gelenk table
PT.ManualUpdate = False
PT.ManualUpdate = True

“ fügten für das Projekt files
WSD.Select hinzu

Antwort : Gelenktabellenmakro gibt Störungstiefzeichen aus Strecke heraus

Auch wenn ich richtig verstehen, möchten das Makro innen in personal.xls, aber Sie es auf der anderen Akte laufen lassen.

Versuchen, den Auftrag dieser zwei Linien des Codes auszutauschen:

Exbook = appXL.Workbooks.Open („C:\“ u. fname) einstellen
Exbook = appXL.Workbooks.Open („S:\Payroll\XLTEMPLATE\Personal.xls ") einstellen

ihn so bilden:

Exbook = appXL.Workbooks.Open („S:\Payroll\XLTEMPLATE\Personal.xls ") einstellen
Exbook = appXL.Workbooks.Open („C:\“ u. fname) einstellen