Private Function TabellaPivot(ByVal NomeFileIn As String)
        Dim PivotTabella As Excel.Application
        Dim XlwbDati As Excel.Workbook
        Dim XlshDati As Excel.Worksheet

        'instanzio l'oggetto application

        PivotTabella = CreateObject("Excel.Application")

        XlwbDati = PivotTabella.Workbooks.Open(NomeFileIn)


        Try
            'lo rendo visibile

            PivotTabella.Visible = True

            'Mi posiziono sul foglio attivo
            XlshDati = XlwbDati.ActiveSheet


            'Oggetto corretto per Tabella Pivot
            With XlshDati
                .PivotTableWizard(SourceType:=Excel.XlSourceType.xlSourceSheet, _
                SourceData:=.Cells(1, 1).CurrentRegion, TableDestination:="", _
                TableName:="Multidim1", HasAutoFormat:=True, _
                SaveData:=True)
            End With

            With XlwbDati.ActiveSheet
                .PivotTables("Multidim1").AddFields(RowFields:= _
                "MeseScadenza", ColumnFields:="AnnoScadenza", PageFields:="")
                .PivotTables("Multidim1").PivotFields("RibaScadenza"). _
                Orientation = 4 ' xlDataField
                .Name = "AnalisiInsoluti"
            End With

        Catch ex As Exception
            MessageBox.Show(ex.Message & Err.Number, "Programma Excel", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally

            PivotTabella = Nothing
            XlshDati = Nothing
            XlwbDati = Nothing
        End Try


        Return Nothing
End function