如何與 Visual Basic 中使用試算表網頁元件

文章翻譯 文章翻譯
文章編號: 235883 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

如果想在您自訂的 Visual Basic 方案中使用試算表或計算引擎,您可以使用 Microsoft Office Web 元件所隨附的試算表控制項。本文將告訴您,如何插入試算表為 Visual Basic 表單中的控制項,並填入試算表的資料。

其他相關資訊

您可以在您加入任何其他的 ActiveX 控制項的方式相同,Visual Basic 中的表單新增 Office Web 元件。隨附在 「 Office Web 元件的 試算表 控制項是比 DataGrid 控制項,隨附 Visual Basic 更健全的選項。使用試算表資料來顯示格式化的資料、 計算公式,並且允許使用者互動功能。

重要: 檢視,並使用任何 Office 網頁元件必須將其安裝在您的電腦上。使用 Microsoft Office 2000 安裝元件,或如果您的公司 Office 2000 站台授權可從您內部網路下載元件。您的使用者必須同時也安裝這些元件,而且必須涵蓋的 Office 2000 授權。您和您的使用者必須使用 Microsoft Internet Explorer 4.01 或更新版本。

建立範例專案的步驟

  1. 建立新的標準 EXE 專案在 Visual Basic 中時。預設會建立 Form1。
  2. 將參考加入至 Microsoft Office Web 元件 9.0。
  3. 將試算表控制項從 Visual Basic 工具箱新增到表單。
  4. 試算表 控制項可以顯示及使用像工作表或隱藏並做為頁面上的可見控制項一個計算引擎。
使用 試算表 在 Visual Basic 中的控制項是幾乎完全相同使用 Excel 中工作表。方法和使用來處理試算表元件的屬性都是類似於那些自動化 Excel 時,您將使用。

填入試算表控制項

您可以加入至 試算表 控制項的資料,下列方式之一:
  • 將資料直接輸入方格中。
  • 複製並貼上 Excel 工作表、 文字檔案或 Word 文件中的資料。
  • 從文字檔案或網頁匯入資料。如需詳細資訊請參閱 LoadText 方法主題及線上 [說明] 中的 [HTMLURL 屬性主題。
  • 撰寫程式碼以填入試算表的資料。
請注意沒有任何方法可以直接將 試算表 控制項繫結至資料。

下列程序會填入並設定 試算表 控制項的範例資料庫北風 (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
				


請注意 「 試算表控制項不是一個活頁簿包含一張紙。ActiveSheet 屬性一律是指該單一工作表。

取得說明

建立 Office Web 元件程式庫的參考之後,您可以透過物件瀏覽器] 或 [從試算表屬性工具箱中的 [一般] 索引標籤存取說明。您也可以找到並按兩下 Msowcvba.chm 上的 [說明] 檔案。若要取得特定關鍵字的說明,反白顯示關鍵字],然後按 F1 鍵。如需有關建立參考和使用物件資訊模型說明,請參閱 Visual Basic 或 Visual Basic 中的應用程式的說明。

您可以將圖表控制項繫結至試算表控制項。如需在圖表控制項的詳細資訊,請按一下下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項:
235885如何使用 [圖表] 網路元件與 VB

?考

更多有關 Office Web 元件的資訊,請參閱 Microsoft Office 2000/Visual 基本程式設計人員指南 》 中的第 12"使用 Web 技術 」。

屬性

文章編號: 235883 - 上次校閱: 2004年7月14日 - 版次: 1.2
這篇文章中的資訊適用於:
  • Microsoft Office Spreadsheet Component 9.0
關鍵字:?
kbmt kbhowto kbofficewebspread KB235883 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:235883
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此,本文係依「現狀」提供,不會再更新。

提供意見

 

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