VB ile Özet Tablo Office Web bileşeni nasıl kullanılır

Makale çevirileri Makale çevirileri
Makale numarası: 235542 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Bu makalede, Office Özet Tablo nas?l kullan?laca??n? gösterir Web Bileşeni'nin üzerinde bir Visual Basic formu bilgilerini görüntülemek.

Daha fazla bilgi

Office Web bileşenleri, Office veri gözatmayı etkinleştir denetimleri kümesidir. Web bileşenleri denetimleri olduğundan, bunları bir Visual Basic formunda yerleştirin ve verileri görüntülemek için bu bileşenleri otomatikleştirme.

Otomasyon örneği oluşturma

  1. Visual Basic'ı başlatın ve yeni bir Standart EXE projesi oluşturun. Varsayılan olarak, Form1 oluşturulur.
  2. Project|References, ActiveX Data Objects 2.1 kitaplığı ' na bir başvuru ekleyin ve Tamam ' ı tıklatın.
  3. <a0>Bileşen Ekle</a0> iletişim kutusunu görüntülemek için CTRL + T tuşlarına basın. Microsoft Office Web Bileşenleri'ni ekleyin ve Tamam ' ı tıklatın.

    Not: Office XP, Office 2000 hem de Office XP Web içeren bileşenleri. Office 2003 Web Bileşenleri'ni kullanmak için <a0></a0>, Microsoft Office Web ekleme bileşenleri 11.0 kitaplığı. Office 2000 Web Bileşenleri'ni kullanmak için <a0></a0>, Microsoft Office Web bileşenleri 9.0 kitaplığı ekleyin. Office XP Web kullanmak için Microsoft Office Web Components 10.0 kitaplığı bileşenleri, ekleme.
  4. Bir Özet Tablo, forma ekleyin.
  5. Form1 kod penceresinde, aşağıdaki kodu ekleyin:
    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. Sonra Microsoft Access'i kullanarak bir örnek veritabanı oluşturun. Access'i başlatın ve bir Boş Access veritabanı ' nı seçin. Dosyayı c:\pivottest.mdb kaydedin. Tasarım görünümünde tablo oluştur ' u çift tıklatın. Aşağıdaki verileri girin:

    Bu tabloyu kapaBu tabloyu aç
    Field NameVeri Türü
    MaddeText
    KategoriText
    DEĞERSayı
  7. Pencereyi kapatın ve değişiklikleri Table1 kaydedin. Bir anahtar oluşturmak için Hayır ' ı seçin. Table1 çift tıklatın ve aşağıdaki verileri girin:

    Bu tabloyu kapaBu tabloyu aç
    MaddeKategoriDEĞER
    NailsDonanım5
    ShirtGiysisinin23
    ÇekiçDonanım16
    SandwichYiyecek5
    PantsGiysisinin31
    DrinksYiyecek2
  8. Dosyayı kaydetmek için Access kapatın.
  9. Proje çalıştırmak için F5 tuşuna basın. Çalışan sonra Özet Tablo doldurmanız. Hücre ve hücrenin değerini, veri içeren bir hücreyi çift sütun ve satır adlarını gösterir.

Referanslar

Office Otomasyonu hakkında daha fazla bilgi için Microsoft Office geliştirme Destek sitesini ziyaret edin:
http://support.microsoft.com/ofd

Özellikler

Makale numarası: 235542 - Last Review: 23 Ekim 2006 Pazartesi - Gözden geçirme: 3.5
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office PivotTable Component 9.0
  • Microsoft Office XP Web Components
  • Microsoft Office 2003 Web Components
Anahtar Kelimeler: 
kbmt kbautomation kbhowto kbweb KB235542 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:235542

Geri Bildirim Ver

 

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