Torching Vark
Nieuwe gebruiker
- Lid geworden
- 15 nov 2010
- Berichten
- 1
Ik laat de gebruiker een knop in drukken. Die opent een te selecteren extern bestand, voert daar een x aantal bewerkingen op uit en slaat hem op als CSV.
Het zijn bestanden telkens van een andere layout, dus per bestand heb ik een knop met bestandspecifieke bewerkingen. Zoveel mogelijk maak ik echter gebruik van dezelfde routines. Zo ook de draaitabel routine. Bij een CSV bestand wat ik open werkt deze routine ineens niet (Fout 1004, ongeldige verwijzing). Wat zijn de voorwaarden voor de 'Set PT = PTCache routine?'
Het zijn bestanden telkens van een andere layout, dus per bestand heb ik een knop met bestandspecifieke bewerkingen. Zoveel mogelijk maak ik echter gebruik van dezelfde routines. Zo ook de draaitabel routine. Bij een CSV bestand wat ik open werkt deze routine ineens niet (Fout 1004, ongeldige verwijzing). Wat zijn de voorwaarden voor de 'Set PT = PTCache routine?'
Sub Draaitabel()
Dim WSDi As Worksheet
Dim WSDo As Worksheet
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim PRange As Range
Dim i As Integer
Dim j As Integer
Set WSDi = ActiveSheet
WSDi.Name = "Data"
' Delete any prior pivot tables
For Each PT In WSDi.PivotTables
PT.TableRange2.Clear
Next PT
' Define input area and set up a Pivot Cache
FinalRow = 0
FinalCol = 0
FinalRow = WSDi.Cells(Application.Rows.Count, 1).End(xlUp).row
FinalCol = WSDi.Cells(1, Application.Columns.Count).End(xlToLeft).Column
Set PRange = WSDi.Cells(1, 1).Resize(FinalRow, FinalCol)
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="WSDi.Cells(1, 1).Resize(FinalRow, FinalCol)")
Set WSDo = Worksheets.Add
WSDo.Name = NaamOpenBestand 'Draaitabel krijgt naam originele bestand (max 21 karakters)
WSDo.Unprotect
Set PT = PTCache.CreatePivotTable(TableDestination:=WSDo.Cells(2, 2))