您目前已離線,請等候您的網際網路重新連線

不支援您的瀏覽器

您必須更新瀏覽器,才能使用此網站。

更新至最新版本的 Internet Explorer

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

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:235883
依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此,本文係依「現狀」提供,不會再更新。
結論
如果想在您自訂的 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 WithEnd Sub				


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

取得說明

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

您可以將圖表控制項繫結至試算表控制項。如需在圖表控制項的詳細資訊,請按一下下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項:
235885如何使用 [圖表] 網路元件與 VB
参考
更多有關 Office Web 元件的資訊,請參閱 Microsoft Office 2000/Visual 基本程式設計人員指南 》 中的第 12"使用 Web 技術 」。

警告:本文為自動翻譯

內容

文章識別碼:235883 - 最後檢閱時間:07/14/2004 18:59:24 - 修訂: 1.2

  • Microsoft Office Spreadsheet Component 9.0
  • kbmt kbhowto kbofficewebspread KB235883 KbMtzh
意見反應