Så här använder du Office Web Component-komponenten Pivottabell med VB

Sammanfattning

Denna artikel innehåller information om hur Office Web Component-komponenten Pivottabell kan användas för att visa information i Visual Basic-formulär.

Mer Information

Office Web Components är en uppsättning kontroller som används för bläddring i Office-data. Eftersom komponenterna är kontroller kan du placera dem och automatisera dem i Visual Basic-formulär för att visa data.

Skapa automatiseringsexemplet

  1. Starta Visual Basic och skapa ett nytt Standard-EXE-projekt. Form1 skapas som standard.
  2. Lägg till en referens till Microsoft ActiveX Data Objects 2.1-biblioteket under Projekt|Referenser och klicka sedan på OK.
  3. Visa dialogrutan Lägg till komponenter genom att trycka på tangenterna CTRL+T. Lägg till Microsoft Office Web Components och klicka sedan på OK.

    Obs! Office XP innehåller både Office 2000 Web Components och Office XP Web Components. Om du vill använda Office 2003 Web Components lägger du till Microsoft Office Web Components 11.0-biblioteket. Om du vill använda Office 2000 Web Components lägger du till Microsoft Office Web Components 9.0-biblioteket. Om du vill använda Office XP Web Components lägger du till Microsoft Office Web Components 10.0-biblioteket.
  4. Lägg till en pivottabell i formuläret.
  5. Skriv följande kod i kodfönstret för formulär 1:
    Option Explicit

    Dim cnnConnection As Object

    Private 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"
    ' Skapa ett ADO-objekt
    Set cnnConnection = CreateObject("ADODB.Connection")
    ' Ange provider och öppna anslutningen till databasen
    cnnConnection.Provider = strProvider
    cnnConnection.Open "C:\pivottest.mdb"
    ' Ange pivottabellens anslutningssträng till anslutningssträngen för cnnConnection
    PivotTable1.ConnectionString = cnnConnection.ConnectionString
    ' SQL-uttryck för att hämta allt ur tabell 1
    PivotTable1.CommandText = "Välj * från tabell 1"

    ' Hämta variabler från pivottabellen
    Set view = PivotTable1.ActiveView
    Set fsets = PivotTable1.ActiveView.FieldSets
    Set c = PivotTable1.Constants

    ' Lägg till kategori i radaxeln och objekt i kolumnaxeln
    view.RowAxis.InsertFieldSet fsets("Kategori")
    view.ColumnAxis.InsertFieldSet fsets("Objekt")

    ' Lägg till en ny summa - prissumma
    Set newtotal = view.AddTotal("Prissumma", view.FieldSets("Pris").Fields(0), c.plFunctionSum)
    view.DataAxis.InsertTotal newtotal
    view.DataAxis.InsertFieldSet view.FieldSets("Pris")

    ' Ange vissa visuella egenskaper
    PivotTable1.DisplayExpandIndicator = False
    PivotTable1.DisplayFieldList = False
    PivotTable1.AllowDetails = False
    End Sub

    Private Sub Form_Terminate()
    ' Ta bort referensen till ADO-objektet
    Set cnnConnection = Nothing
    End Sub


    Private 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

    ' Hämta markeringsobjektet du dubbelklickade på
    Set sel = PivotTable1.Selection
    ' Om det är en mängd kan du hämta information om den
    If TypeName(sel) = "PivotAggregates" Then
    ' Markera första objektet

    Set pivotagg = sel.Item(0)
    ' Visa värdet
    MsgBox "Cellen du dubbelklickade på har värdet '" & pivotagg.Value & "'.", vbInformation, "Cellvärde"

    ' Hämta variabler från cellen
    sTotal = pivotagg.Total.Caption
    sColName = pivotagg.Cell.ColumnMember.Caption
    sRowName = pivotagg.Cell.RowMember.Caption

    ' Visa rad- och kolumnnamn
    sMsg = "Värdet är " & sTotal & " vid " & sRowName & " vid " & sColName
    MsgBox sMsg, vbInformation, "Värdeinfo"
    End If
    End Sub
  6. Skapa sedan en exempeldatabas i Microsoft Access. Starta Access och välj Tom Access-databas. Spara filen som c:\pivottest.mdb. Dubbelklicka på Skapa tabell i designvy. Ange följande data:

    FältnamnDatatyp
    ObjektText
    KategoriText
    PrisNummer
  7. Stäng fönstret och spara ändringar som tabell 1. Välj Nej när du uppmanas skapa en nyckel. Dubbelklicka på tabell 1 och ange följande data:

    ObjektKategoriPris
    SpikarMaskinvara5
    SkjortaKläder23
    HammareMaskinvara16
    SmörgåsMat5
    ByxorKläder31
    DryckerMat2
  8. Spara filen genom att stänga Access.
  9. Kör projektet genom att trycka på F5. När projektet har körts fylls pivottabellen i. Om du dubbelklickar på en cell med data visas cellvärdet och namnen på cellen, cellkolumnen och cellraden.

Referenser

Det finns mer information om Office Automation på supportwebbplatsen för Microsoft Office:
Egenskaper

Artikel-id: 235542 – senaste granskning 2 feb. 2006 – revision: 1

Feedback