Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

Errore su creazione tabella Pivot con vba da access Opzioni
danbar
Inviato: Thursday, October 13, 2016 1:11:50 PM
Rank: Newbie

Iscritto dal : 10/13/2016
Posts: 1
Angel Salve a tutti!
Sto cercando da una query di access di creare una tabella pivot con questo codice:

Set ws = wb.Worksheets(NomeQuery)
'cerco ultima riga e ultima colonna
r = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
c = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

'imposto il range
Set rngDati = ws.Range(ws.Cells(r, c), ws.Cells(1, 1)) '"iltuorange"
Set pc1 = wb.PivotCaches.Create(xlDatabase, rngDati)

Set pt1 = pc1.CreatePivotTable(wb.Sheets("Tabella_Pivot").Range("A1"))


'aggiungo qui i campi riga e colonnA
[]
' Aggiungo i campi 'valore

With pt1
.AddDataField .PivotFields("SommaDiTariffa"), "Tariffa", xlSum
.AddDataField .PivotFields("SommaDiFinanziamenti"), "Finanziamento", xlSum
.AddDataField .PivotFields("Totale"), "Totale", xlSum
End With

sulla penultima riga (quella prima di end with) mi da errore : "Errore definita dall'applicazione o dall'oggetto"
E' identica alle due precedenti!!!!
Brick wall
Perché sulle prime due non me la da e sull'ultima si? E soprattutto come risolvo?!?!?!
Sponsor
Inviato: Thursday, October 13, 2016 1:11:50 PM

 
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.