Làm thế nào để sử dụng các thành phần Web PivotTable văn phòng với VB

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:235542
TÓM TẮT
Bài viết này chứng tỏ làm thế nào để sử dụng văn phòng PivotTable Web thành phần để hiển thị thông tin trên một hình thức Visual Basic.
THÔNG TIN THÊM
Cấu phần Web Office là một bộ điều khiển cho phép lưu dữ liệu văn phòng. Bởi vì các thành phần Web là điều khiển, bạn có thể đặt chúng vào một Visual Basic lập và tự động hoá các thành phần để hiển thị dữ liệu.

Xây dựng mẫu tự động hóa

  1. Bắt đầu Visual Basic và tạo ra một dự án mới EXE tiêu chuẩn. Form1 được tạo ra theo mặc định.
  2. Dưới Project|Tham khảo, thêm một tham chiếu đến các Microsoft ActiveX Data Objects 2.1 Library và sau đó nhấp vào Ok.
  3. Báo chí các CTRL + T phím để hiển thị các Thêm các thành phần hộp thoại. Thêm các thành phần Web Microsoft Office, và sau đó Nhấp vào Ok.

    LƯU Ý: Office XP bao gồm cả Office 2000 và Office XP Web Các thành phần. Để sử dụng Office 2003 cấu phần Web, thêm Microsoft Office Web Thư viện thành phần 11,0. Để sử dụng các thành phần Office 2000 Web, thêm các Microsoft Office Web thành phần 9,0 thư viện. Để sử dụng Office XP Web Các thành phần, thêm thư viện Microsoft Office Web thành phần 10,0.
  4. Thêm một PivotTable mẫu.
  5. Trong cửa sổ mã cho Form1, chèn đoạn mã sau:
    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. Sau đó, tạo ra một cơ sở dữ liệu mẫu bằng cách sử dụng Microsoft Access. Bắt đầu truy cập và chọn Trống truy cập cơ sở dữ liệu. Lưu các tập tin như c:\pivottest.mdb. Bấm đúp Tạo bảng theo quan điểm thiết kế. Nhập dữ liệu sau:

    Tên trườngKiểu dữ liệu
    Khoản mụcVăn bản
    Thể loạiVăn bản
    GiáSố
  7. Đóng cửa sổ và lưu các thay đổi như Table1. Chọn Không để tạo một phím. Bấm đúp vào Table1 và nhập dưới đây dữ liệu:

    Khoản mụcThể loạiGiá
    Móng tayPhần cứng5
    Áo sơ miQuần áo23
    BúaPhần cứng16
    Bánh sandwichThực phẩm5
    QuầnQuần áo31
    Đồ uốngThực phẩm2
  8. Đóng truy cập để lưu tập tin.
  9. Báo chí các F5 chìa khóa để chạy các dự án. Sau khi chạy, pivot bảng nên cư. Bấm-đúp vào ngày một tế bào với dữ liệu cho thấy giá trị của các tế bào và các tế bào cột và dòng tên.
THAM KHẢO
Để biết thêm thông tin về văn phòng tự động hóa, truy cập vào các Phát triển văn phòng Microsoft hỗ trợ trang web tại:
OWC pivot bảng

Cảnh báo: Bài viết này được dịch tự động

Thuộc tính

ID Bài viết: 235542 - Xem lại Lần cuối: 08/21/2011 09:12:00 - Bản sửa đổi: 2.0

  • kbautomation kbhowto kbweb kbmt KB235542 KbMtvi
Phản hồi