Slik bruker du PivotTable Office Web Component med VB

Artikkeloversettelser Artikkeloversettelser
Artikkel-ID: 235542 - Vis produkter som denne artikkelen gjelder for.
Vis alt | Skjul alt

På denne siden

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 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"
       ' 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 = False
    End Sub
    
    Private Sub Form_Terminate()
      ' Fjern referansen til ADO-objektet
      Set olNs = 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
       
       ' 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 If
    End 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:

    Skjul denne tabellenVis denne tabellen
    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:

    Skjul denne tabellenVis denne tabellen
    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:
http://support.microsoft.com/ofd

Egenskaper

Artikkel-ID: 235542 - Forrige gjennomgang: 2. februar 2006 - Gjennomgang: 3.3
Informasjonen i denne artikkelen gjelder:
  • Microsoft Office PivotTable Component 9.0
  • Microsoft Office Web Components
  • Microsoft Office Web Components
Nøkkelord: 
kbhowto kbweb kbautomation KB235542

Gi tilbakemelding

 

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