Du er frakoblet, venter på at Internett skal koble til igjen

Slik bruker du PivotTable Office Web Component med VB

Sammendrag
Denne artikkelen viser hvordan du bruker PivotTable Office Web Component til å vise informasjon i et Visual Basic-skjema.
Mer informasjon
Office Web Components er sett med kontroller som brukes til å bla gjennom Office-data. Fordi Web Components er kontroller, kan du plassere dem i et Visual Basic-skjema og automatisere komponentene til å vise data.

Bygge automatiseringseksempelet

  1. Start Visual Basic og opprett et nytt standard EXE-prosjekt. Form1 opprettes som standard.
  2. Legg til en referanse til Microsoft ActiveX Data Objects 2.1 Library under Project|References, og klikk deretter OK.
  3. Trykk CTRL+T for å vise dialogboksen Add Components. Legg til Microsoft Office Web Components, og klikk deretter OK.

    Obs!  Office XP inneholder både Office 2000 og Office XP Web Components. Hvis du vil bruke Office 2003 Web Components, legger du til Microsoft Office Web Components 11.0 Library. Hvis du vil bruke Office 2000 Web Components, legger du til Microsoft Office Web Components 9.0 Library. Hvis du vil bruke Office XP Web Components, legger du til Microsoft Office Web Components 10.0 Library.
  4. Legg til en pivottabell i skjemaet.
  5. Sett inn følgende kode i kodevinduet for Form1:
    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"   ' Opprett et ADO-objekt   Set cnnConnection = CreateObject("ADODB.Connection")   ' Angi leverandør og åpne forbindelsen til databasen   cnnConnection.Provider = strProvider   cnnConnection.Open "C:\pivottest.mdb"   ' Juster pivottabellens forbindelsesstreng til cnnConnections-forbindelsesstrengen   PivotTable1.ConnectionString = cnnConnection.ConnectionString   ' SQL-setning for å hente alt fra table1   PivotTable1.CommandText = "Velg * fra tabell1"      ' Hent variabler fra pivottabellen   Set view = PivotTable1.ActiveView   Set fsets = PivotTable1.ActiveView.FieldSets   Set c = PivotTable1.Constants      ' Legg Category til Row-aksen og Item til Column-aksen   view.RowAxis.InsertFieldSet fsets("Kategori")   view.ColumnAxis.InsertFieldSet fsets("Element")      ' Legg til en ny total – sum pris   Set newtotal = view.AddTotal("Sum pris", view.FieldSets("Pris").Fields(0), c.plFunctionSum)   view.DataAxis.InsertTotal newtotal   view.DataAxis.InsertFieldSet view.FieldSets("Pris")         ' Angi visuelle egenskaper   PivotTable1.DisplayExpandIndicator = False   PivotTable1.DisplayFieldList = False   PivotTable1.AllowDetails = FalseEnd SubPrivate Sub Form_Terminate()  ' Fjern referansen til ADO-objektet  Set olNs = 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      ' Hent utvalgsobjektet du har dobbeltklikket   Set sel = PivotTable1.Selection   ' Hvis det er en oppsamling, kan du finne informasjon om det   If TypeName(sel) = "PivotAggregates" Then      ' Velg det første elementet      Set pivotagg = sel.Item(0)      ' Vis verdien      MsgBox "Cellen du har dobbeltklikket, har verdien '" & pivotagg.Value & "'.", vbInformation, "Verdi for celle"            ' Hent variabler fra cellen      sTotal = pivotagg.Total.Caption      sColName = pivotagg.Cell.ColumnMember.Caption      sRowName = pivotagg.Cell.RowMember.Caption            ' Vis rad- og kolonnenavn      sMsg = "Verdien er " & sTotal & " x " & sRowName & " x " & sColName      MsgBox sMsg, vbInformation, "Verdiinfo"   End IfEnd Sub					
  6. Deretter oppretter du en eksempeldatabase med Microsoft Access. Start Access og velg Tom database.... Lagre filen som c:\pivottest.mdb. Dobbeltklikk Lag tabell i utformingsvisning. Skriv inn følgende data:

    FeltnavnDatatype
    ElementTekst
    KategoriTekst
    PrisTall
  7. Lukk vinduet og lagre endringene som Tabell1. Velg Nei når du blir spurt om å lage en nøkkel. Dobbeltklikk Tabell1 og skriv inn følgende data:

    ElementKategoriPris
    SpikerJernvare5
    SkjorteKlær23
    HammerJernvare16
    SandwichMat5
    BukserKlær31
    DrikkeMat2
  8. Lukk Access for å lagre filen.
  9. Trykk F5 for å kjøre prosjektet. Etter kjøringen skal pivottabellen fylles ut. Hvis du dobbeltklikker en celle med data, vises verdien og kolonne- og radnavnet for cellen.
Referanser
Hvis du vil ha mer informasjon om Office-automatisering, kan du gå til webområdet for støtte for utvikling av Microsoft Office:
owc pivottabell
Egenskaper

Artikkel-ID: 235542 – Forrige gjennomgang: 02/02/2006 16:41:00 – Revisjon: 3.3

Microsoft Office PivotTable Component 9.0, Microsoft Office Web Components, Microsoft Office Web Components

  • kbhowto kbweb kbautomation KB235542
Tilbakemelding
>