Ako používať kontingenčnej tabuľky Office Web Component s VB

Preklady článku Preklady článku
ID článku: 235542
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Tento článok ukazuje ako používať úradu kontingenčnej tabuľky Webová súčasť zobrazíte informácie vo formulári jazyka Visual Basic.

DALSIE INFORMACIE

Súčasti Office Web Components sú množina ovládacích prvkov, ktoré umožňujú Prehľadávanie Office údajov. Pretože Web Components sú ovládacie prvky, môžete umiestniť ich na Visual Basic tvoria a automatizovať komponenty na zobrazenie údajov.

Budova automatizácia vzorky

  1. Spustite program Visual Basic a vytvorenie nového štandardného EXE projektu. Form1 sa vytvorí na základe predvoleného nastavenia.
  2. Podľa Project|Odkazy, pridať odkaz na Microsoft ActiveX Data objekty 2.1 knižnica a potom kliknite na tlačidlo ok.
  3. Stlačte CTRL + T klávesy na zobrazenie Pridať súčasti dialógové okno. Pridať súčasti Microsoft Office Web Components a potom kliknite na tlačidlo ok.

    POZNÁMKA: Office XP zahŕňa Office 2000 a Office XP Web Súčasti. Ak chcete použiť súčasti Office 2003 Web Components, pridať Microsoft Office Web Komponenty 11.0 knižnica. Chcete použiť Office 2000 Web Components, pridať Knižnica Microsoft Office Web komponentov 9.0. Na používanie balíka Office XP Web Komponentov, pridať knižnicu Microsoft Office Web Components 10.0.
  4. Pridajte kontingenčnej tabuľky do formulára.
  5. V okne kód pre Form1, vložte nasledujúci kód:
    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"
       ' Create an ADO object
       Set cnnConnection = CreateObject("ADODB.Connection")
       ' Set the provider and open the connection to the database
       cnnConnection.Provider = strProvider
       cnnConnection.Open "C:\pivottest.mdb"
       ' Set the pivot table's connection string to the cnnConnection's connection string
       PivotTable1.ConnectionString = cnnConnection.ConnectionString
       ' SQL statement to get everything from table1
       PivotTable1.CommandText = "Select * from table1"
       
       ' Get variables from the pivot table
       Set view = PivotTable1.ActiveView
       Set fsets = PivotTable1.ActiveView.FieldSets
       Set c = PivotTable1.Constants
       
       ' Add Category to the Row axis and Item to the Column axis
       view.RowAxis.InsertFieldSet fsets("Category")
       view.ColumnAxis.InsertFieldSet fsets("Item")
       
       ' Add a new total - Sum of Price
       Set newtotal = view.AddTotal("Sum of Price", view.FieldSets("Price").Fields(0), c.plFunctionSum)
       view.DataAxis.InsertTotal newtotal
       view.DataAxis.InsertFieldSet view.FieldSets("Price")
          
       ' Set some visual properties
       PivotTable1.DisplayExpandIndicator = False
       PivotTable1.DisplayFieldList = False
       PivotTable1.AllowDetails = False
    End Sub
    
    Private Sub Form_Terminate()
      ' Remove reference to the ADO object
      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
       
       ' Get the selection object you double-clicked on
       Set sel = PivotTable1.Selection
       ' If it is a aggregate, you can find information about it
       If TypeName(sel) = "PivotAggregates" Then
          ' Select the first item
    
          Set pivotagg = sel.Item(0)
          ' Display the value
          MsgBox "The cell you double-clicked has a value of '" & pivotagg.Value & "'.", vbInformation, "Value of Cell"
          
          ' Get variables from the cell
          sTotal = pivotagg.Total.Caption
          sColName = pivotagg.Cell.ColumnMember.Caption
          sRowName = pivotagg.Cell.RowMember.Caption
          
          ' Display the row and column name
          sMsg = "The value is " & sTotal & " by " & sRowName & " by " & sColName
          MsgBox sMsg, vbInformation, "Value Info"
       End If
    End Sub
    					
  6. Ďalej vytvoriť vzorky databázy pomocou programu Microsoft Access. Spustite program Access a vyberte Prázdna databáza programu Access. Súbor uložiť ako c:\pivottest.mdb. Dvakrát kliknite na Vytvorenie tabuľky v návrhovom zobrazení. Zadajte nasledujúce údaje:

    Zbaliť túto tabuľkuRozbaliť túto tabuľku
    Názov poľaTyp údajov
    PoložkaText
    KategóriaText
    CenaČíslo
  7. Zatvorte okno a uložte zmeny ako Tabuľka1. Vyberte Nie na vytvorenie kľúča. Dvakrát kliknite na položku Tabuľka1 a zadajte nasledovné údaje:

    Zbaliť túto tabuľkuRozbaliť túto tabuľku
    PoložkaKategóriaCena
    KlinceHardvér5
    TričkoOblečenie23
    KladivoHardvér16
    SendvičPotraviny5
    NohaviceOblečenie31
    NápojePotraviny2
  8. Zatvorte prístup na uloženie súboru.
  9. Stlačte F5 kľúč na spustenie projektu. Po spustení kontingenčnú tabuľku by naplniť. Dvojitým kliknutím na bunku s údajmi zobrazuje hodnota bunky a Názvy riadkov a stĺpcov buniek.

ODKAZY

Pre viac informácií o automatizácia kancelárskych, navštívte Microsoft Office Development podporu lokalite:
http://support.Microsoft.com/ofd

Vlastnosti

ID článku: 235542 - Posledná kontrola: 23. októbra 2011 - Revízia: 3.0
Kľúčové slová: 
kbautomation kbhowto kbweb kbmt KB235542 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:235542

Odošlite odozvu

 

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