【正文】 。實(shí)際上，窗體正是這樣一種類模塊，在其上可安放控件，也可顯示窗體窗口。可以再類模塊中編寫代碼來建立新對象。 用戶界面如圖 所示： 圖 程序界面 界面屬性： 對象名 屬性 值 Form1 Caption 方案二：通過 Cell組件生成 Excel文件 cmdClose Caption “退出” cmdOpen Caption “ 打開 ” cmdSave Caption “保存 ” cmdImport Caption “ 讀入文件 ” cmdExport Caption “ 輸出文件 ” 程序編碼與說明： 該程序主要通過特定語句，調(diào)用工具，將文本文件導(dǎo)入到 Cell組件中，主要語句為 : PopupMenu mnuExport 30 在 Cell組件中，我們可以對 Cell文件表格進(jìn)行處理，來設(shè)置行和列，采用下列語句來設(shè)置 將 Cell組件文件轉(zhuǎn)化為 Excel文件，用語句 直接讀寫 Excel文件的程序設(shè)計(jì) 本程序中要在工程中添加一個(gè)類模塊。 程序設(shè)計(jì)基本流程 添加 CELL控件 新建的工程中試沒有 CELL控件的，需要將 CELL控件添加到工具箱中，添加方法： 點(diǎn)擊主菜單“工程”下的“部件”，選中列表框中的“ ActiveX Control module”， 28 再按“確定”即可在工具箱上看到 CELL控件的圖標(biāo)。 為了讓生成的 Excel文件更像報(bào)表，我們給有內(nèi)容的單元格加上邊框，并調(diào)整數(shù)據(jù)在單元格里的位置，我選擇了居中，這樣看上去會比較好，由于，各數(shù)值的長度不同，輸入到 Excel中就需要對單元格進(jìn)行調(diào)整，在這我讓單元格大小同輸入數(shù)據(jù)相適應(yīng)，這就避免了每次導(dǎo)入數(shù)據(jù)都要更改單元格大小。 在工作表的第一行加上標(biāo)題 (A1:D1).Value = Array(點(diǎn)名 , X軸坐標(biāo) , Y軸坐標(biāo) , 高程 ) 在表頭做好后，就可以向 Excel里輸入數(shù)據(jù)了，在這里我們可以對數(shù)據(jù)輸出的多少進(jìn)行選擇，采用 Resize事件來完成。實(shí)現(xiàn)如下： 定義一個(gè) Excel的應(yīng)用對象變量 Dim oExcel As New 26 定義一個(gè) Excel工作薄對象變量 Dim oSheet As 定義一個(gè) Excel工作表 對象變量 Dim oBook As 創(chuàng)建一個(gè)新實(shí)例，獲取 Excel的控制句柄 在 OLE自動化利用函數(shù) GreateObject()建立對 Excel對象的引用并啟動 Excel Set oExcel = CreateObject() 添加一個(gè)工作表 Set oBook = Excel表格的控制，主要包括數(shù)據(jù)的導(dǎo)入、修改，單元格的合并，邊框的控制，字體控制。實(shí)現(xiàn)的方法是： = 文本文件（ *.txt） |*.txt| 進(jìn)行文本篩選即選擇文本文件 由于 Excel的應(yīng)用程序?qū)?象是外部可創(chuàng)建的對象，所以能從 VB應(yīng)用程序內(nèi)部來程序化操作 Excel，方法是用 VB的 OLE自動化技術(shù)獲取 Excel的控制句柄，從而直接控制 Excel的一系列操作。這就需要進(jìn)行文本篩選，選擇文件，并完成對文本框的輸出。如圖 所示： 圖 工程引用圖 添加 Common Dialog 控件 25 新建的工程中是沒有 Common Dialog控件的，需要將 Common Dialog控件添加到工具箱中，添加方法：點(diǎn)擊主菜單“工程”下的“部件”，選中列表框中的“ Microsoft Common Dialog Control ” ，再按“確定”即可在工具箱上看到 Common Dialog控件的圖標(biāo)。 圖 成果生成圖 23 利用 OLE 技術(shù)，生成 Excel 文件 方案程序設(shè)計(jì) 程序設(shè)計(jì)的基本流程 圖 基本流程圖 用戶界面和對象屬性設(shè)置 圖 程序界面 獲取文件名，測站點(diǎn)號，坐標(biāo)，高程 將測站點(diǎn)號，坐標(biāo)，高程寫入二維數(shù)組 創(chuàng)建 Excel、 sheet 等對象，生成 Excel文件 顯示全站儀測站點(diǎn)成果表 結(jié)束 打開全站儀測站點(diǎn)數(shù)據(jù) 24 界面屬性 對象名 屬性 值 Form1 Caption “利用 OLE 技 術(shù) 生 成Excel文件” txtTs Text “ 清空 ” MultiLine Ture ScrollBars 3Both ComOpen Caption “讀取” ComFull Caption “輸出” ComCancel Caption “結(jié)束” About Caption “ 關(guān)于本工具” 表 51 程序編碼與說明： 在編寫程序前要實(shí)現(xiàn) VB與 Excel的連接。 在生成的 Excel 文件時(shí)，對 Excel 文件的單元格進(jìn)行簡單設(shè)置，對數(shù)據(jù)的排列方式也進(jìn)行整理，使生成的 Excel 文件能夠 達(dá)到 簡介、美觀 的效果 。 來完 成簡單的文本格式的轉(zhuǎn)化。數(shù)組始于尺寸（寬度和高度），后面是一列恒定值。這是提到在各自的位置。一般情況下，選擇特征領(lǐng)域也出現(xiàn)空字符串。字符數(shù)組不是零終止。在一個(gè) Unicode字符串中可能（但不要求）存儲 RTF 格式的信息和亞洲語音信息。 表 46 說明了整個(gè)字符串的標(biāo)準(zhǔn)格式，但在許多記錄中字符串不同于本格式。字符數(shù)組是一個(gè) 16 位值的序列。字符數(shù)組的編碼取決于目前的記錄 （ 例如，從代碼記錄或從字型記錄）。長度被存儲為 8 位值或 16 位值，這取決于當(dāng)前的記錄。 字符串字節(jié)（ BIFF2BIFF5） 所有到 BIFF5 的 Excel 文件格式都包含簡單字符串字節(jié)。 記錄類型 : 表格 描述 : 描述了一個(gè)通過數(shù)據(jù)表命令創(chuàng)建行或列表 記錄體長度 : 12 bytes 記錄體字節(jié)結(jié)構(gòu) : 這兒給出的第一和最后一行和列不包括外排或外列，只包含表格式或輸入值。請注意， Excel 中的術(shù)語是指試算表或工作表的“文件 ”。 表 44 下面列出了操作碼秩序中的一些記錄類型。這些記錄包含一個(gè) 3 字節(jié)的屬性字段“ rgbAttr”。表 44 列出了 Excel 文件（電子表格）文件的記錄類型，在該命令下他們將出現(xiàn)在 BIFF 文件。 19 標(biāo)準(zhǔn)文件記錄順序 Excel 工作表文件的每一個(gè)記錄類型的預(yù)定位置。 這里是 39H 或 57 個(gè)小數(shù)。接下來 的三個(gè)字節(jié)，標(biāo)示為 “ rgbAttr” 指定單元格屬性（表 43）。 Column2相對應(yīng)的表格列為 C。行（ Row） 0 在工作表中對應(yīng)行 1。 表 43 操作碼（ opcode） 2 表示一個(gè)整數(shù)紀(jì)錄。第一個(gè)數(shù)字在系統(tǒng)中為 0， 而不是 1 。它們最拿手是處理二進(jìn)制數(shù)字。這種單元格的確定方式讓人更容 易理解。因此，單元格 A1 中是第一列和第一行。 有關(guān)電子表格單元格的記錄數(shù)據(jù)字節(jié) 電子表格出現(xiàn)在屏幕上或打印是以矩陣的單元格出現(xiàn)的。第二個(gè) 2 字節(jié) 代表記錄體長度是4 個(gè)字節(jié) ， 最后兩個(gè)字節(jié)是文件類型。同樣，低字節(jié)的記錄長度字段字節(jié) 18 是 2 和高字 的記錄長度字段 字節(jié) 是 3。 BIFF 記錄頭： 表 41 每個(gè) X 代表一個(gè)十六進(jìn)制數(shù)字，兩個(gè) X 組成一個(gè)字節(jié)。后兩個(gè)字節(jié)表示記錄的長度（ length）。都有一個(gè) 4 個(gè)字節(jié)的記錄頭（ Record Header）。它使用的文件格式叫做 BIFF（二進(jìn)制文件格式）。記錄頭是 4byte，前兩位指定記錄類型的代碼（ opcode），后兩位指定記錄長度；記錄體是存儲該記錄的實(shí)際數(shù)據(jù)。 這個(gè)電子表格文件導(dǎo)入到 office 中不會出現(xiàn)任何問題。它采用只按照讀取純二進(jìn)制的方式進(jìn)行讀取，這種方法需要對 Excel 內(nèi)部格式有個(gè)清晰認(rèn)識。 (1)SetCellString(Col As Long, Row As Long, Sheet As Long, Str As String) SetCellString方法用來設(shè)置指定單元格的字符串 (2)MoveToCell(Col As Long, Row As Long) MoveToCell將焦點(diǎn)移動到指定單元格上 (3)SelectRange(Col As Long, Row As Long, Col2 As Long, Row2 As Long) SelectRange方法用來在表格中選擇一個(gè)指定的區(qū)域 (4)SetCellAlign(Col As Long, Row As Long, Sheet As Long, Para As Long) SetCellAlign 方法用來設(shè)置指定單元格的對齊方式 (5)SetCellNumType(Col As Long, Row As Long, Sheet As Long, Para As Long) SetCellNumType用來設(shè)置單元格的數(shù)值格式類型 (6)SetButtonCell(Col As Long, Row As Long, Sheet As Long) 16 SetButtonCell用來設(shè)置單元格中的按鈕 (7)SetCols(Cols As Long, Sheetingdex As Long) SetCols方法用來設(shè)置某頁的列數(shù) (8)SetRows(Rows As Long, Sheetindex As Long) SetRows方法用來設(shè)置某頁的行數(shù) (9)Void PrintSheet(Long Withdlg, Long Valuesheet) PrintSheet方法用來設(shè)置打印 (10)Void PrintSetTopTitle(Long StartRow, Long EndRow) PrintSetTopTitle方法設(shè)置表頭標(biāo)題的范圍，該標(biāo)題將會出現(xiàn)在 每個(gè)打印頁上。 Cell 組件的方法、屬性和事件 Cell組件提供上百個(gè)編程接口 (方法、屬性、事件 )，通過使用這些方法、屬性、事件，實(shí)現(xiàn)報(bào)表自定義、報(bào)表顯示、打印預(yù)覽、打印圖表、自定義函數(shù)、資源本地化等強(qiáng)大功能，并且能夠完全讀寫 Excel文件，是軟件人員開發(fā)完美軟件的工具。資源本地化根據(jù)需要可以將 Cell組件 /插件設(shè)置成不同的語言版本。與 Excel， Word表格， Lotus123表格數(shù)據(jù)兼容的復(fù)制和粘貼 Cell支持剪切，復(fù)制和粘貼，其基本格式與 Excel， Word表格和 Lotus123相同；用戶采用這個(gè)功能可以在 Excel，Word表格和 Lotus123中交換數(shù)據(jù)。自定義函數(shù)可以無限制次數(shù)的嵌套。用戶在編輯公式時(shí)可以立即求得公式的結(jié)果，如果公式存在循環(huán)引用， Cell會列出產(chǎn)生循環(huán)引用的公式列表。如此傻瓜式的操作并不妨礙你的各種需要，除此之外，你可以指定圖表數(shù)據(jù)源，以及控制圖表的每一個(gè)數(shù)據(jù)。 (3)豐富的單元格式與設(shè)計(jì) 通過 Cell組件，您可以將數(shù)據(jù)轉(zhuǎn)化為具有高度交互性的內(nèi)容， Cell的單元格多種多樣，你可以從幾十種格式中選擇 按鈕，下拉框，單選鈕，核選框，滾卷鈕，超級鏈結(jié)來強(qiáng)化報(bào)表的沖擊力。 (2)別具一格的選擇界面 Cell的第一感覺即與其他表格不同，那就是它的灰色的選擇區(qū)域?？梢栽O(shè)置頁眉，頁腳，頁邊距，打印預(yù)覽無級縮放，多頁顯示。 Cell組件可以作為一個(gè)通用的表格處理組件，內(nèi)置了圖表分析、數(shù)據(jù)統(tǒng)計(jì)、數(shù)據(jù)保存、公式及自定義函數(shù)、數(shù)據(jù)庫連接、打印及打印瀏覽等一系列功能，為程序員提供了豐富的編程接口，采用 Cell組件可以提高軟件界面的友好性及數(shù)據(jù)的開發(fā)性，可以極大地減少程序代碼，顯著地加快軟件的開發(fā)進(jìn)度。 Cell插件的接口均經(jīng)過精心設(shè)計(jì)，其代碼也經(jīng)過多次提煉，盡量減小其大小，以適應(yīng)在 Inter環(huán)境中分發(fā)。 Cell插件具有與 Cell組件類似的功能，但與 Cell組件不同， Cell插件用于開發(fā) Web應(yīng)用。采用 Cell組件可以極大的減少軟件開發(fā)工作量，改善軟件人機(jī)界面，提高軟件質(zhì)量。 Cell組件（ ActiveX控件，擴(kuò)展名為 OCX）主要適用于開發(fā) windows應(yīng)用程序，是為商業(yè)軟件解決實(shí)際開發(fā)過程中的圖表、報(bào) 表顯示，輸入，打印輸出等問題的最理想的解決方案。今天越來越多的用戶開始利用 Cell組件來適合企業(yè)自身實(shí)際應(yīng)用與需求的報(bào)表應(yīng)用系統(tǒng)，以便使企業(yè)內(nèi)部人員能夠能加方便地通過瀏覽器界面對日常業(yè)務(wù)數(shù)據(jù)進(jìn)行報(bào)表瀏覽、查詢檢索、統(tǒng)計(jì)分析等操作。 Cell組件 CELL是新一代的 B\S結(jié)構(gòu)報(bào)表工具軟件，它具有較強(qiáng)的功能，它能較好地解決軟件開發(fā)人員報(bào)表制作中遇到的問題，提高開發(fā)效率。 利用 Cell組件自身的強(qiáng)大功能，還能完成文本文件與 Excel文件 的互換 。 Cell組件的廣泛兼容性，讓文本數(shù)據(jù)從 Cell組件輸入并轉(zhuǎn)化為 Excel成為可能。但在 Excel操作過程中關(guān)閉 Excel對象時(shí)， VB程序無法知道，如果此時(shí)使用 Excel對象，則 VB程序會產(chǎn)生自動化錯誤，形成 VB程序無法完全控制 Excel的狀況，使得 VB與 Excel脫節(jié)。表示在工程中要引用 Excel類型庫。在啟動 Excel程序時(shí)要按此順序分別啟動 ， 這 12 樣才能實(shí)現(xiàn)對 Excel報(bào)表的操作。 Excel對象的接口結(jié)構(gòu) Excel對象模型中有 5個(gè)重要的對象與制作報(bào)表有關(guān) ， 分別為 ： Application、 Workb