How to Utilizzo del componente Web di Office tabella pivot con Visual Basic

Questo articolo è stato precedentemente pubblicato con il codice di riferimento I235542
Sommario
In questo articolo viene mostrato in che modo utilizzare il componente Web di Office tabella pivot per visualizzare informazioni in un form di Visual Basic.
Informazioni
I componenti Web di Office sono controlli che consentono l'esplorazione dei dati di Office e in quanto tali possono essere inseriti in un form di Visual Basic e automatizzati affinch_ visualizzino dei dati.

Creazione del modello di automazione

  1. Avviare Visual Basic e creare un nuovo progetto EXE standard, a cui in base all'impostazione predefinita verrà assegnato il nome Form1.
  2. In Progetto|Riferimenti aggiungere un riferimento a Libreria di Microsoft ActiveX Data Objects 2.1, quindi scegliere OK.
  3. Premere CTRL+T per visualizzare la finestra di dialogo Aggiungi componenti. Aggiungere Microsoft Office Web Components 9.0 e scegliere OK.
  4. Aggiunta di una tabella pivot al form.
  5. Nella finestra del codice del progetto Form1 inserire il seguente codice:
    Option ExplicitDim cnnConnection As ObjectPrivate Sub Form_Load()   Dim strProvider As String   Dim view As PivotView   Dim fsets As PivotFieldSets   Dim c As Object   Dim newtotal As PivotTotal   strProvider = "Microsoft.Jet.OLEDB.4.0"  ' Creazione di un oggetto ADO  Set cnnConnection = CreateObject("ADODB.Connection")  ' Impostazione del provider e apertura della connessione al database  cnnConnection.Provider = strProvider  cnnConnection.Open "C:\pivottest.mdb"  ' Impostazione della stringa di connessione della tabella pivot in base alla stringa di connessione di cnnConnection  PivotTable1.ConnectionString = cnnConnection.ConnectionString  ' Istruzione SQL per ottenere qualsiasi dato presente nella table1  PivotTable1.CommandText = "Seleziona * da table1"  ' Ottenimento delle variabili dalla tabella pivot  Set view = PivotTable1.ActiveView  Set fsets = PivotTable1.ActiveView.FieldSets  Set c = PivotTable1.Constants  ' Aggiunta di Categoria all'asse delle righe e di Articolo all'asse delle colonne  view.RowAxis.InsertFieldSet fsets("Categoria")  view.ColumnAxis.InsertFieldSet fsets("Articolo")  ' Aggiunta di un nuovo totale - Somma Prezzo  Set newtotal = view.AddTotal("Somma Prezzo", view.FieldSets("Prezzo").Fields(0), c.plFunctionSum)  view.DataAxis.InsertTotal newtotal  view.DataAxis.InsertFieldSet view.FieldSets("Prezzo")  ' Impostazione di alcune proprietà visuali  PivotTable1.DisplayExpandIndicator = False  PivotTable1.DisplayFieldList = False  PivotTable1.AllowDetails = FalseEnd SubPrivate Sub Form_Terminate()  ' Rimozione del riferimento all'oggetto ADO  Set cnnConnection = NothingEnd SubPrivate Sub PivotTable1_DblClick()  Dim sel As Object  Dim pivotagg As PivotAggregate  Dim sTotal As String Dim sColName As String  Dim sRowName As String  Dim sMsg As String  ' Ottenimento dell'oggetto su cui si é fatto doppio clic  Set sel = PivotTable1.Selection  ' Se é un aggregato, sarà possibile trovare informazioni su di esso  If TypeName(sel) = "PivotAggregates" Then      ' Selezione del primo articolo     Set pivotagg = sel.Item(0)    ' Visualizzazione del valore    MsgBox "La cella su cui si é fatto doppio clic presenta un valore di '" & pivotagg.Value & "'.", vbInformation, "Valore di cella"   ' Ottenimento delle variabili dalla cella   sTotal = pivotagg.Total.Caption   sColName = pivotagg.Cell.ColumnMember.Caption   sRowName = pivotagg.Cell.RowMember.Caption   ' Visualizzazione del nome della riga e della colonna   sMsg = "Il valore é " & sTotal & " by " & sRowName & " by " & sColName   MsgBox sMsg, vbInformation, "Informazioni valore"  End IfEnd Sub
  6. Di seguito creare un database di esempio utilizzando Microsoft Access. Per fare questo, avviare Access e scegliere Database di Access vuoto. Salvare il file assegnandogli il nome c:\pivottest.mdb. Fare doppio clic su Crea una tabella in visualizzazione Struttura. Immettere i seguenti dati:

    ArticoloTesto
    CategoriaTesto
    PrezzoNumero
  7. Chiudere la finestra e salvare le modifiche con il nome di Table1. Scegliere No per creare una chiave. Fare doppio clic su Table1 e immettere i seguenti dati:

    ChiodiFerramenta10.200
    CamiciaAbbigliamento47.000
    MartelloFerramenta35.700
    SandwichAlimentari7.000
    MutandeAbbigliamento53.000
    BevandeAlimentari4.750
  8. Chiudere Access per salvare il file.
  9. Premere F5 per eseguire il progetto. Al termine dell'esecuzione la tabella dovrebbe essere popolata. Facendo doppio clic su una cella contenente i dati verranno visualizzati il valore della cella e i nomi di riga e colonna.
Riferimenti
Per ulteriori informazioni sull'automazione di Office, visitare il sito di supporto Microsoft Office Development al seguente indirizzo:
Proprietà

ID articolo: 235542 - Ultima revisione: 06/29/2007 04:01:00 - Revisione: 4.1

Microsoft Office 2000 Standard Edition

  • kboffice2000 kbweb kbautomation kbvbp500 kbvbp600 kbgrpdso KB235542
Feedback