Momentálne ste offline a čaká sa, kým sa znova pripojíte na internet

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

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
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 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"   ' 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 = FalseEnd SubPrivate Sub Form_Terminate()  ' Remove reference to the ADO object  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      ' 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 IfEnd 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:

    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:

    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:
OWC kontingenčnej tabuľky

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 235542 – Posledná kontrola: 10/23/2011 18:32:00 – Revízia: 3.0

  • kbautomation kbhowto kbweb kbmt KB235542 KbMtsk
Pripomienky