Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

Cara menggunakan komponen Web PivotTable kantor dengan BB

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

    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:

    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:
Tabel pivot owc

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 235542 - Tinjauan Terakhir: 09/20/2011 12:27:00 - Revisi: 2.0

  • kbautomation kbhowto kbweb kbmt KB235542 KbMtid
Tanggapan