Použití kontingenčního Office Web Component s VB

Překlady článku Překlady článku
ID článku: 235542 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento článek demonstruje použití kontingenčního Office Web Components zobrazíte informace ve formuláři jazyka.

Další informace

Součásti Office Web Components jsou sadu ovládacích prvků povolit procházení dat Office. Protože součástí jsou ovládací prvky, můžete umístit na formuláři jazyka a automatizovat součásti zobrazit data.

Vytváření Automation Sample

  1. Spusťte jazyka a vytvoření nového projektu standardní EXE. Jako výchozí je vytvořen formulář Form1.
  2. Ve skupinovém rámečku Project|References přidat odkaz na Knihovně Microsoft ActiveX Data Objects 2.1 a potom klepněte na tlačítko OK.
  3. Stisknutím kláves CTRL + T zobrazíte dialogové okno Přidat součásti. Přidání součásti Microsoft Office Web Components a potom klepněte na tlačítko OK.

    Poznámka: Office XP zahrnuje Office 2000 a Office XP Web Components. Pomocí součástí Office 2003 Web Components přidat Microsoft Office Web Components 11.0 knihovny. Použití součásti Office 2000 Web Components přidat knihovnu Microsoft Office Web Components 9.0. Použití Office XP Web Components, přidat knihovnu Microsoft Office Web Components 10.0.
  4. Přidat do formuláře kontingenční tabulky.
  5. V okně kódu Form1 vložte následující 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. Dále vytvořte ukázkové databáze pomocí aplikace Microsoft Access. Spusťte aplikaci Access a zvolte Prázdná databáze Access. Uložte soubor jako c:\pivottest.mdb. Poklepejte na položku vytvořit tabulku v návrhovém zobrazení. Zadejte následující data:

    Zmenšit tuto tabulkuRozšířit tuto tabulku
    Název poleTyp dat
    PoložkyText
    KategorieText
    CenaČíslo
  7. Zavřete okno a změny uložit jako Tabulka1. Vyberte možnost Ne pro vytvoření klíče. Poklepejte na Tabulka1 a zadejte následující data:

    Zmenšit tuto tabulkuRozšířit tuto tabulku
    PoložkyKategorieCena
    HřebíkyHardware5
    KošiliOblečení23
    KladivoHardware16
    SandwichPotravin5
    KalhotyOblečení31
    DrinksPotravin2
  8. Zavřít aplikaci Access uložit soubor.
  9. Stisknutím klávesy F5 spustit projektu. Po spuštění, měli naplnit kontingenční tabulky. Poklepáním na buňku s daty zobrazuje hodnotu buňky a buňku názvy sloupců a řádků.

Odkazy

Další informace o automatizaci Office společnosti Microsoft Office Development podpory na:
http://support.microsoft.com/ofd

Vlastnosti

ID článku: 235542 - Poslední aktualizace: 23. října 2006 - Revize: 3.5
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Office PivotTable Component 9.0
  • Microsoft Office XP Web Components
  • Microsoft Office 2003 Web Components
Klíčová slova: 
kbmt kbautomation kbhowto kbweb KB235542 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:235542

Dejte nám zpětnou vazbu

 

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