Cara menggunakan komponen Web PivotTable kantor dengan BB

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 235542
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menunjukkan bagaimana untuk menggunakan PivotTable Office Web komponen untuk menampilkan informasi pada bentuk Visual Basic.

INFORMASI LEBIH LANJUT

Office Web Components adalah set kontrol yang memungkinkan melihat data kantor. Karena komponen Web kontrol, Anda dapat menempatkan mereka pada Visual Basic membentuk dan mengotomatisasi komponen untuk menampilkan data.

Membuat Sampel Otomatisasi

  1. Mulai Visual Basic dan membuat sebuah proyek EXE standar yang baru. Form1 dibuat secara default.
  2. Di bawah Project|Referensi, menambahkan referensi ke Objek Microsoft ActiveX Data 2,1 perpustakaan kemudian klik Oke.
  3. Tekan CTRL + T kunci untuk menampilkan Menambahkan komponen kotak dialog. Menambahkan komponen Web Microsoft Office, dan kemudian Klik Oke.

    CATATAN: Office XP mencakup Office 2000 dan Office XP Web Komponen. Untuk menggunakan komponen Web Office 2003, tambahkan Microsoft Office Web Komponen 11,0 perpustakaan. Untuk menggunakan Office 2000 Web komponen, tambahkan Microsoft Office Web komponen 9,0 perpustakaan. Menggunakan Office XP Web Komponen, menambah Microsoft Office Web komponen 10,0 perpustakaan.
  4. Menambahkan sebuah PivotTable ke bentuk.
  5. Dalam jendela kode untuk Form1, masukkan kode berikut:
    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. Selanjutnya, membuat database contoh menggunakan Microsoft Access. Mulai akses dan memilih Kosong akses Database. Simpan berkas sebagai c:\pivottest.MDB. Klik dua kali Membuat tabel dalam Design View. Masukkan data berikut:

    Perkecil tabel iniPerbesar tabel ini
    Nama fieldJenis Data
    ItemTeks
    KategoriTeks
    HargaNomor
  7. Menutup jendela dan menyimpan perubahan sebagai Table1. Pilih Tidak untuk menciptakan kunci. Klik dua kali Table1 dan masukkan berikut data:

    Perkecil tabel iniPerbesar tabel ini
    ItemKategoriHarga
    KukuPerangkat keras5
    KemejaPakaian23
    PaluPerangkat keras16
    SandwichMakanan5
    CelanaPakaian31
    MinumanMakanan2
  8. Menutup akses untuk menyimpan file.
  9. Tekan F5 kunci untuk menjalankan proyek. Setelah berjalan, tabel pivot harus mengisi. Mengklik dua kali pada sel dengan data menunjukkan nilai sel dan sel baris dan kolom nama.

REFERENSI

Untuk informasi lebih lanjut mengenai otomatisasi Office, kunjungi Situs dukungan pengembangan Microsoft Office pada:
http://support.microsoft.com/ofd

Properti

ID Artikel: 235542 - Kajian Terakhir: 20 September 2011 - Revisi: 2.0
Kata kunci: 
kbautomation kbhowto kbweb kbmt KB235542 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:235542

Berikan Masukan

 

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