Sviluppare funzionalita su Microsoft Office con VBA ELEMENTO ITEM IN GENERAZIONE TABELLA PIVOT

LoginRegistrati
Stai vedendo 1 articolo (di 1 totali)
  • Autore
    Articoli
  • #21467 Risposta

    Daniele

      Buongiorno.

      Ho necessità di generare più tabelle pivot in modo automatico da dati esterni ACCESS

      Ho scritto il codice seguente sostituendo a "I_01_04_06" la relativa variale INCROCIO.

      Ho sostituito tutto con successo tranne in corrispondenza all'elemento ITEM in cui non riesco a farlo poichè non conosco la corretta sintassi. (parte evidenziata in rosso)

      Ringrazio moltissimo per l'aiuto

       

      Dim INCROCIO As String
      INCROCIO = "I_01_04_06"
      ActiveWorkbook.Queries.Add Name:=INCROCIO, Formula:= _
      "let" & Chr(13) & "" & Chr(10) & " Origine = Access.Database(File.Contents(""C:\Users\Daniele Mangiarotti\Documents\DANIELE LAVORO\INCIPIT\PROGETTI\SEPHORA\ANALISI_DATI\SEPHORA_TEST.accdb""), [CreateNavigationProperties=true])," & Chr(13) & "" & Chr(10) & " _" & INCROCIO & " = Origine{[Schema="""",Item=""I_01_04_06""]}[Data]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " _" & INCROCIO
      ActiveWorkbook.Worksheets.Add
      With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
      "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & INCROCIO & ";Extended Properties=""""" _
      , Destination:=Range("$A$1")).QueryTable
      .CommandType = xlCmdSql
      .CommandText = Array("SELECT * FROM [" & INCROCIO & "]")
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .PreserveColumnInfo = True
      .ListObject.DisplayName = INCROCIO
      .Refresh BackgroundQuery:=False
      End With

      ActiveSheet.Name = INCROCIO

    LoginRegistrati
    Stai vedendo 1 articolo (di 1 totali)
    Rispondi a: ELEMENTO ITEM IN GENERAZIONE TABELLA PIVOT
    Gli allegati sono permessi solo ad utenti REGISTRATI
    Le tue informazioni:



    vecchio frac - 2748 risposte

    albatros54
    albatros54 - 735 risposte

    patel
    patel - 636 risposte

    Marius44
    Marius44 - 557 risposte

    Luca73
    Luca73 - 523 risposte