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 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"   ' 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 = FalseEnd SubPrivate Sub Form_Terminate()  ' Poista ADO-objektin viittaus  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      ' 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 IfEnd 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:
owc pivot-taulukko
Propiedades

Id. de artículo: 235542 - Última revisión: 02/02/2006 16:33:00 - Revisión: 3.3

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

  • kbhowto kbweb kbautomation KB235542
Comentarios