Office Web Componentsin PivotTable-komponentin käyttäminen Visual Basicin kanssa

Yhteenveto

Tässä artikkelissa kerrotaan, miten Visual Basic -lomakkeen tiedot näytetään Office Web Componentsin PivotTable-komponentin avulla.

Enemmän tietoa

Office Web Components -komponentit ovat ohjausobjekteja, joiden avulla Office-tietoja voidaan selata. Koska Web Components -komponentit ovat ohjausobjekteja, voit sijoittaa niitä Visual Basic -lomakkeeseen ja näyttää tietoja komponenttien automatisoimisen avulla.

Automaatioesimerkin muodostaminen

  1. Käynnistä Visual Basic ja luo uusi normaali EXE-projekti. Lomake1 luodaan oletusarvon mukaan.
  2. Valitse Projekti|Viittaukset-osassa Microsoft ActiveX Data Objects 2.1 Library -viittaus ja valitse sitten OK.
  3. Tuo komponenttien lisäämisen valintaikkuna näyttöön painamalla CTRL+T. Lisää Microsoft Office Web Components -komponentit ja valitse sitten OK.

    HUOMAUTUS: Office XP sisältää Office 2000:n ja Office XP:n Web Components -komponentit. Jos haluat käyttää Office 2003:n Web Components -komponentteja, lisää Microsoft Office Web Components 11.0 -kirjasto. Jos haluat käyttää Office 2000:n Web Components -komponentteja, lisää Microsoft Office Web Components 9.0 -kirjasto. Jos haluat käyttää Office XP:n Web Components -komponentteja, lisää Microsoft Office Web Components 10.0 -kirjasto.
  4. Lisää pivot-taulukko lomakkeeseen.
  5. Lisää seuraava koodi Lomake1:n koodi-ikkunassa:
    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"
    ' Luo ADO-objekti
    Set cnnConnection = CreateObject("ADODB.Connection")
    ' Määritä palvelu ja avaa yhteys tietokantaan
    cnnConnection.Provider = strProvider
    cnnConnection.Open "C:\pivottest.mdb"
    ' Määritä pivot-taulukon yhteysmerkkijonoksi cnnConnection-yhteysmerkkijono
    PivotTable1.ConnectionString = cnnConnection.ConnectionString
    ' SQL-lauseke hakea kaikki table1-taulukon kohteet
    PivotTable1.CommandText = "Valitse * table1-taulukosta"

    ' Hae muuttujat pivot-taulukosta
    Set view = PivotTable1.ActiveView
    Set fsets = PivotTable1.ActiveView.FieldSets
    Set c = PivotTable1.Constants

    ' Lisää Luokka Row-akseliin ja Kohde Column-akseliin
    view.RowAxis.InsertFieldSet fsets("Luokka")
    view.ColumnAxis.InsertFieldSet fsets("Kohde")

    ' Lisää uusi summa - Hinnan summa
    Set newtotal = view.AddTotal("Hinnan summa", view.FieldSets("Hinta").Fields(0), c.plFunctionSum)
    view.DataAxis.InsertTotal newtotal
    view.DataAxis.InsertFieldSet view.FieldSets("Hinta")

    ' Määritä joitakin visuaalisia ominaisuuksia
    PivotTable1.DisplayExpandIndicator = False
    PivotTable1.DisplayFieldList = False
    PivotTable1.AllowDetails = False
    End Sub

    Private Sub Form_Terminate()
    ' Poista ADO-objektin viittaus
    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

    ' Hae kaksoisnapsauttamasi valintaobjekti
    Set sel = PivotTable1.Selection
    ' Jos kyseessä on kerätty kohde, siitä löytyy tietoja
    If TypeName(sel) = "PivotAggregates" Then
    ' Valitse ensimmäinen kohde

    Set pivotagg = sel.Item(0)
    ' Näytä arvo
    MsgBox "Kaksoisnapsauttamasi solun arvo on'" & pivotagg.Value & "'.", vbInformation, "Solun arvo"

    ' Hae muuttujat solusta
    sTotal = pivotagg.Total.Caption
    sColName = pivotagg.Cell.ColumnMember.Caption
    sRowName = pivotagg.Cell.RowMember.Caption

    ' Näytä rivin ja sarakkeen nimi
    sMsg = "Arvo on " & sTotal & " x " & sRowName & " x " & sColName
    MsgBox sMsg, vbInformation, "Arvon tiedot"
    End If
    End Sub
  6. Luo seuraavaksi mallitietokanta Microsoft Accessin avulla. Käynnistä Access ja valitse sitten Tyhjä tietokanta. Tallenna tiedosto nimellä c:\pivottest.mdb. Kaksoisnapsauta Luo taulukko rakennenäkymässä. Kirjoita seuraavat tiedot:

    Kentän nimiTietolaji
    KohdeTeksti
    LuokkaTeksti
    HintaNumero
  7. Sulje ikkuna ja tallenna Taulukko1-muutokset. Valitse Ei, kun avaimen luomista kysytään. Kaksoisnapsauta Taulukko1-kohtaa ja kirjoita seuraavat tiedot:

    KohdeLuokkaHinta
    NaulatTavarat5
    PaitaVaatteet23
    VasaraTavarat16
    VoileipäRuoka5
    HousutVaatteet31
    JuomatRuoka2
  8. Tallenna tiedosto sulkemalla Access.
  9. Suorita projekti painamalla F5-näppäintä. Kun suorittaminen on päättynyt, tiedot pitäisi olla lisätty pivot-taulukkoon. Tietoja sisältävän solun kaksoisnapsauttaminen tuo näyttöön solun arvon sekä solun sarakkeen ja rivin nimet.

Suositukset

Lisätietoja Office-automatisoinnista on Microsoft Office Developmentin tukisivustossa:
Ominaisuudet

Artikkelin tunnus: 235542 – Viimeisin tarkistus: 2.2.2006 – Versio: 1

Palaute