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

Artikelöversättning Artikelöversättning
Artikel-id: 235542 - Visa produkter som artikeln gäller.
Visa alla | Dölj alla

På den här sidan

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:

    Dölj tabellenVisa tabellen
    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:

    Dölj tabellenVisa tabellen
    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:
http://support.microsoft.com/ofd

Egenskaper

Artikel-id: 235542 - Senaste granskning: den 2 februari 2006 - Revision: 3.3
Informationen i denna artikel gäller:
  • Microsoft Office PivotTable Component 9.0
  • Microsoft Office Web Components
  • Microsoft Office Web Components
Nyckelord: 
kbhowto kbweb kbautomation KB235542

Ge feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com