Cara menggunakan Spreadsheet Web komponen dengan Visual Basic

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

Pada Halaman ini

RINGKASAN

Jika Anda ingin menggunakan mesin spreadsheet atau perhitungan dalam Visual Basic solusi kustom Anda, Anda dapat menggunakan kontrol Spreadsheet yang disertakan dengan Microsoft Office Web Components. Artikel ini membahas cara memasukkan spreadsheet sebagai kontrol pada bentuk Visual Basic dan mengisi spreadsheet dengan data.

INFORMASI LEBIH LANJUT

Anda dapat menambahkan Office Web Components bentuk dalam Visual Basic dengan cara yang sama bahwa Anda menambahkan kontrol ActiveX lain. The Spreadsheet kontrol yang disertakan dengan Office Web Components adalah pilihan yang lebih kuat daripada DataGrid kontrol yang kapal dengan Visual Basic. Menggunakan spreadsheet data untuk menampilkan data terformat, menghitung formula dan memungkinkan pengguna interaktivitas.

PENTING: Untuk melihat dan bekerja dengan salah satu Office Web Components, Anda harus memilikinya diinstal pada komputer Anda. Komponen diinstal dengan Microsoft Office 2000, atau, jika perusahaan Anda memiliki lisensi situs Office 2000, komponen dapat didownload dari Intranet Anda. Pengguna harus memiliki komponen-komponen ini diinstal juga, dan harus ditutupi oleh lisensi Office 2000. Anda dan pengguna Anda harus menggunakan Microsoft Internet Explorer versi 4,01 atau nanti.

Langkah-langkah untuk membuat contoh proyek

  1. Buat projek Standard EXE yang baru dalam Visual Basic. Form1 dibuat secara default.
  2. Menambahkan referensi ke Microsoft Office Web komponen 9,0.
  3. Tambahkan kontrol Spreadsheet dari peralatan Visual Basic untuk membentuk Anda.
  4. The Spreadsheet kontrol dapat ditampilkan dan digunakan seperti lembar kerja, atau dapat tersembunyi dan digunakan sebagai mesin perhitungan untuk kontrol yang terlihat pada halaman.
Bekerja dengan Spreadsheet kontrol Visual Basic hampir sama untuk bekerja dengan lembar kerja dalam Excel. Metode dan properti yang Anda gunakan untuk memanipulasi komponen Spreadsheet yang mirip dengan yang akan Anda gunakan ketika mengotomatisasi Excel.

Mempopulasikan kontrol Spreadsheet

Anda dapat menambahkan data Spreadsheet kontrol dalam salah satu cara berikut:
  • Memasukkan data secara langsung ke dalam grid.
  • Salin dan sisipkan data dari Excel sheet, file teks atau dokumen Word.
  • Mengimpor data dari file teks atau halaman Web. Untuk informasi lebih lanjut lihat topik LoadText metode dan properti HTMLURL topik dalam bantuan online.
  • Menulis kode untuk mengisi spreadsheet dengan data.
Perhatikan bahwa tidak ada cara untuk mengikat Spreadsheet mengontrol data secara langsung.

Prosedur berikut populates dan format Spreadsheet kontrol dengan data dari database contoh Northwind (NWind.mdb):
Sub GetNwindData()

    Dim rstEmployees As Object
    Dim cnn As String
    Dim strSQL As String
    Dim fldCount As Integer
    Dim intIRow As Integer
    Dim intICol As Integer
    Dim varData As Variant

    'Create recordset and fill with records from Northwind sample database.
    Set rstEmployees = CreateObject("ADODB.Recordset")
    cnn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"
    strSQL = "SELECT FirstName, LastName, Title, Extension FROM Employees ORDER BY LastName"
    rstEmployees.Open strSQL, cnn, 3 ' adOpenStatic = 3
    
    'Clear any existing values from the spreadsheet control.
    Spreadsheet1.ActiveSheet.Cells(1, 1).Select
    Spreadsheet1.ActiveSheet.UsedRange.Clear

    'Add the field names as column headers.
    For fldCount = 0 To rstEmployees.Fields.Count - 1
        intIRow = intIRow + 1
        Spreadsheet1.ActiveSheet.Cells(1, intIRow).Value = rstEmployees.Fields(fldCount).Name
    Next

    'Fill the control with data from the database.
    Dim iNumCols As Integer
    Dim iNumRows As Integer
    
    iNumCols = rstEmployees.Fields.Count
    iNumRows = rstEmployees.Recordcount
    varData = rstEmployees.GetRows(iNumRows)
    
    For intIRow = 1 To iNumRows
        For intICol = 1 To iNumCols
            Spreadsheet1.ActiveSheet.Cells(intIRow + 1, intICol).Value = varData(intICol - 1, intIRow - 1)
        Next
    Next

    'Format the headers in row 1 with a Bold Font that is 11 points.
    With Spreadsheet1.ActiveSheet.Range(Spreadsheet1.Cells(1, 1),
Spreadsheet1.ActiveSheet.Cells(1, iNumCols)).Font
        .Bold = True
        .Size = 11
    End With
    
    'AutoFit the columns and make all text left-aligned.
    With Spreadsheet1.ActiveSheet.Range(Spreadsheet1.Cells(1, 1),
Spreadsheet1.ActiveSheet.Cells(iNumRows + 1, iNumCols))
        .AutoFitColumns
        .HAlignment = ssHAlignLeft
    End With

End Sub
				


Perhatikan bahwa kontrol Spreadsheet tidak Workbook dan berisi hanya satu lembar. Properti ActiveSheet selalu merujuk kepada yang satu lembar.

Mendapatkan bantuan

Setelah Anda membuat referensi ke perpustakaan Office Web Components, Anda dapat mengakses bantuan melalui browser objek atau dari General tab Spreadsheet properti Toolbox. Anda juga dapat mencari dan klik dua kali berkas Bantuan Msowcvba.chm. Untuk mendapatkan bantuan pada kata kunci tertentu, sorot kata kunci dan tekan F1 kunci. Untuk informasi tentang menciptakan referensi dan menggunakan objek model bantuan, lihat bantuan dalam Visual Basic atau Visual Basic untuk aplikasi.

Anda dapat mengikat kontrol Chart kontrol Spreadsheet. Untuk informasi tambahan mengenai kontrol Chart, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
235885 Cara menggunakan grafik komponen Web dengan BB

REFERENSI

Untuk informasi lebih lanjut tentang Office Web Components, lihat Bab 12, "Menggunakan teknologi Web," dalam Microsoft Office 2000/Visual Basic Programmer's Guide.

Properti

ID Artikel: 235883 - Kajian Terakhir: 20 September 2011 - Revisi: 2.0
Kata kunci: 
kbhowto kbofficewebspread kbmt KB235883 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:235883
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

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