Du arbetar offline, väntar på att återansluta till Internet

Webbläsaren stöds inte

Du måste uppdatera webbläsaren för att använda webbplatsen.

Uppdatera till den senaste versionen av Internet Explorer

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 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"   ' 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 = FalseEnd SubPrivate Sub Form_Terminate()  ' Ta bort referensen till ADO-objektet  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      ' 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 IfEnd 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:
owc pivottabell
Egenskaper

Artikel-id: 235542 – senaste granskning 02/02/2006 16:52:00 – revision: 3.3

  • Microsoft Office PivotTable Component 9.0
  • Microsoft Office Web Components
  • Microsoft Office Web Components
  • kbhowto kbweb kbautomation KB235542
Feedback
" + (window.location.protocol) + "//c.microsoft.com/ms.js'><\/script>");