Visual Basic ile elektronik tablo Web bileşeni nasıl kullanılır

Makale çevirileri Makale çevirileri
Makale numarası: 235883 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Özel Visual Basic çözümde bir elektronik tablo veya hesaplama altyapısı kullanmak istiyorsanız Microsoft Office Web Bileşenleri elektronik tablo denetimi kullanabilirsiniz. Bu makalede, Visual Basic formdaki bir denetim olarak elektronik tablo ekleme ve elektronik tablodaki verilerle doldurmak nasıl anlatılmaktadır.

Daha fazla bilgi

Office Web bileşenleri Visual Basic'de form için başka bir ActiveX denetimi eklediğiniz ayn? ?ekilde ekleyebilirsiniz. Ile Office Web bileşenleri elektronik tablo denetimi DataGrid denetimini Visual Basic ile birlikte gelen'den daha güçlü bir seçenektir. Elektronik tablo verilerini, biçimlendirilmiş verileri görüntüleme, formüller ve kullanıcı etkileşimi izin vermek için kullanın.

ÖNEMLI: görüntülemek ve herhangi bir Office Web bileşenleri ile çalışmak için bunları bilgisayarınıza yüklenmiş olmalıdır. Bileşenleri, Microsoft Office 2000 ile birlikte yüklenen veya bir Office 2000 sitesi lisansı varsa, bileşenleri, intranet yüklenebilir. Kullanıcılarınıza bu bileşenler de yüklü olmalıdır ve Office 2000 lisansına yer gerekir. Siz ve kullanıcılarınız Microsoft ınternet Explorer sürüm 4.01 veya daha üst sürümünü kullanmanız gerekir.

Örnek bir proje oluşturmak için gereken adımları

  1. Yeni bir proje standart exe DOSYASı, Visual Basic'te oluşturun. Varsayılan olarak, Form1 oluşturulur.
  2. Microsoft Office Web bileşenleri 9.0 için bir başvuru ekleyin.
  3. Elektronik tablo denetimi, Visual Basic araç kutusundan forma ekleyin.
  4. Elektronik tablo denetimi görüntülenir ve olması gibi bir çalışma sayfası kullanılan veya gizli ve olması sayfasında görünür denetimler için bir hesaplama altyapısı olarak kullanılır.
Elektronik tablo ile çalışma denetimini Visual Basic'te bir Excel çalışma çalışma için yaklaşık olarak aynıdır. Yöntemleri ve özellikleri, Elektronik Tablo Bileşeni'ni yönetmek için kullandığınız zaman, Excel otomatikleştirme kullanırsınız olanlar benzer.

Bir elektronik tablo denetimi doldurma

Verileri aşağıdaki yollardan biriyle bir elektronik tablo başka bir denetime ekleyebilirsiniz:
  • Verileri doğrudan kılavuza girin.
  • Kopyalayın ve verileri bir Excel sayfası, metin dosyası veya Word belgesine yapıştırın.
  • Verileri bir metin dosyası veya bir Web sayfasına alın. Daha fazla bilgi için LoadText yöntemi konu ve çevrimiçi Yardım'daki HTMLURL özellik konusuna bakın.
  • Elektronik tablodaki verilerle doldurmak için bir kod yazın.
Elektronik tablo denetiminin veri doğrudan bağlanmak için bir yol olduğunu unutmayın.

Aşağıdaki yordam doldurur ve bir elektronik tablo denetiminin veri (NWind.mdb) Northwind örnek veritabanındaki biçimler:
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
				


Not bir elektronik tablo denetimi, bir çalışma kitabı değildir ve yalnızca tek bir sayfa içerir. ActiveSheet özelliği her zaman tek bu sayfaya başvurur.

Yardım alma

Office Web Bileşenleri kitaplığı için bir başvuru oluşturduktan sonra nesne tarayıcı yoluyla veya elektronik tablo Özellik Araç kutusunun Genel sekmesindeki Yardım'A erişebilirsiniz. Ayrıca bulun ve Msowcvba.chm Yardım dosyasını çift tıklatın. Belirli bir anahtar sözcük hakkında Yardım almak için <a0></a0>, anahtar sözcüğü seçin ve F1 tuşuna basın. Başvuru oluşturma ve nesne kullanma hakkında bilgi modeli, Visual Basic veya Visual Basic for Applications Yardım menüsüne bakın.

Bir grafik denetimi, bir elektronik tablo denetimi için bağlayabilirsiniz. Grafik denetimini hakkında ek bilgi için lütfen Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
235885VB ile grafik Web bileşeni nasıl kullanılır

Referanslar

Office Web bileşenleri hakkında daha fazla bilgi için Microsoft Office 2000/Visual Basic Programmer's Guide ' Bölüm 12, "Web teknolojileri kullanarak," "konusuna bakın.

Özellikler

Makale numarası: 235883 - Last Review: 14 Temmuz 2004 Çarşamba - Gözden geçirme: 1.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Spreadsheet Component 9.0
Anahtar Kelimeler: 
kbmt kbhowto kbofficewebspread KB235883 KbMttr
Machine-translated Article
Ö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.
Makalenin İngilizcesi aşağıdaki gibidir:235883
Kullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.

Geri Bildirim Ver

 

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