Şu anda çevrimdışısınız; İnternet'in yeniden bağlanması bekleniyor

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

Ö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.

235542
Ö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 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. 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:

    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:

    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:
OWC pivot tablosu

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 235542 - Son İnceleme: 10/23/2006 18:40:34 - Düzeltme: 3.5

  • Microsoft Office PivotTable Component 9.0
  • Microsoft Office XP Web Components
  • Microsoft Office 2003 Web Components
  • kbmt kbautomation kbhowto kbweb KB235542 KbMttr
Geri bildirim