【正文】 能夠 達(dá)到 簡(jiǎn)介、美觀 的效果 。如圖 所示： 圖 工程引用圖 添加 Common Dialog 控件 25 新建的工程中是沒(méi)有 Common Dialog控件的，需要將 Common Dialog控件添加到工具箱中，添加方法：點(diǎn)擊主菜單“工程”下的“部件”，選中列表框中的“ Microsoft Common Dialog Control ” ，再按“確定”即可在工具箱上看到 Common Dialog控件的圖標(biāo)。實(shí)現(xiàn)的方法是： = 文本文件（ *.txt） |*.txt| 進(jìn)行文本篩選即選擇文本文件 由于 Excel的應(yīng)用程序?qū)?象是外部可創(chuàng)建的對(duì)象，所以能從 VB應(yīng)用程序內(nèi)部來(lái)程序化操作 Excel，方法是用 VB的 OLE自動(dòng)化技術(shù)獲取 Excel的控制句柄，從而直接控制 Excel的一系列操作。 在工作表的第一行加上標(biāo)題 (A1:D1).Value = Array(點(diǎn)名 , X軸坐標(biāo) , Y軸坐標(biāo) , 高程 ) 在表頭做好后，就可以向 Excel里輸入數(shù)據(jù)了，在這里我們可以對(duì)數(shù)據(jù)輸出的多少進(jìn)行選擇，采用 Resize事件來(lái)完成。 程序設(shè)計(jì)基本流程 添加 CELL控件 新建的工程中試沒(méi)有 CELL控件的，需要將 CELL控件添加到工具箱中，添加方法： 點(diǎn)擊主菜單“工程”下的“部件”，選中列表框中的“ ActiveX Control module”， 28 再按“確定”即可在工具箱上看到 CELL控件的圖標(biāo)?？梢栽兕惸K中編寫(xiě)代碼來(lái)建立新對(duì)象。 。實(shí)際上，窗體正是這樣一種類模塊，在其上可安放控件，也可顯示窗體窗口。 用戶界面如圖 所示： 圖 程序界面 界面屬性： 對(duì)象名 屬性 值 Form1 Caption 方案二：通過(guò) Cell組件生成 Excel文件 cmdClose Caption “退出” cmdOpen Caption “ 打開(kāi) ” cmdSave Caption “保存 ” cmdImport Caption “ 讀入文件 ” cmdExport Caption “ 輸出文件 ” 程序編碼與說(shuō)明： 該程序主要通過(guò)特定語(yǔ)句，調(diào)用工具，將文本文件導(dǎo)入到 Cell組件中，主要語(yǔ)句為 : PopupMenu mnuExport 30 在 Cell組件中，我們可以對(duì) Cell文件表格進(jìn)行處理，來(lái)設(shè)置行和列，采用下列語(yǔ)句來(lái)設(shè)置 將 Cell組件文件轉(zhuǎn)化為 Excel文件，用語(yǔ)句 直接讀寫(xiě) Excel文件的程序設(shè)計(jì) 本程序中要在工程中添加一個(gè)類模塊。 為了讓生成的 Excel文件更像報(bào)表，我們給有內(nèi)容的單元格加上邊框，并調(diào)整數(shù)據(jù)在單元格里的位置，我選擇了居中，這樣看上去會(huì)比較好，由于，各數(shù)值的長(zhǎng)度不同，輸入到 Excel中就需要對(duì)單元格進(jìn)行調(diào)整，在這我讓單元格大小同輸入數(shù)據(jù)相適應(yīng)，這就避免了每次導(dǎo)入數(shù)據(jù)都要更改單元格大小。實(shí)現(xiàn)如下： 定義一個(gè) Excel的應(yīng)用對(duì)象變量 Dim oExcel As New 26 定義一個(gè) Excel工作薄對(duì)象變量 Dim oSheet As 定義一個(gè) Excel工作表 對(duì)象變量 Dim oBook As 創(chuàng)建一個(gè)新實(shí)例，獲取 Excel的控制句柄 在 OLE自動(dòng)化利用函數(shù) GreateObject()建立對(duì) Excel對(duì)象的引用并啟動(dòng) Excel Set oExcel = CreateObject() 添加一個(gè)工作表 Set oBook = Excel表格的控制，主要包括數(shù)據(jù)的導(dǎo)入、修改，單元格的合并，邊框的控制，字體控制。這就需要進(jìn)行文本篩選，選擇文件，并完成對(duì)文本框的輸出。 圖 成果生成圖 23 利用 OLE 技術(shù)，生成 Excel 文件 方案程序設(shè)計(jì) 程序設(shè)計(jì)的基本流程 圖 基本流程圖 用戶界面和對(duì)象屬性設(shè)置 圖 程序界面 獲取文件名，測(cè)站點(diǎn)號(hào)，坐標(biāo)，高程 將測(cè)站點(diǎn)號(hào)，坐標(biāo)，高程寫(xiě)入二維數(shù)組 創(chuàng)建 Excel、 sheet 等對(duì)象，生成 Excel文件 顯示全站儀測(cè)站點(diǎn)成果表 結(jié)束 打開(kāi)全站儀測(cè)站點(diǎn)數(shù)據(jù) 24 界面屬性 對(duì)象名 屬性 值 Form1 Caption “利用 OLE 技 術(shù) 生 成Excel文件” txtTs Text “ 清空 ” MultiLine Ture ScrollBars 3Both ComOpen Caption “讀取” ComFull Caption “輸出” ComCancel Caption “結(jié)束” About Caption “ 關(guān)于本工具” 表 51 程序編碼與說(shuō)明： 在編寫(xiě)程序前要實(shí)現(xiàn) VB與 Excel的連接。 來(lái)完 成簡(jiǎn)單的文本格式的轉(zhuǎn)化。這是提到在各自的位置。字符數(shù)組不是零終止。 表 46 說(shuō)明了整個(gè)字符串的標(biāo)準(zhǔn)格式，但在許多記錄中字符串不同于本格式。字符數(shù)組的編碼取決于目前的記錄 （ 例如，從代碼記錄或從字型記錄）。 字符串字節(jié)（ BIFF2BIFF5） 所有到 BIFF5 的 Excel 文件格式都包含簡(jiǎn)單字符串字節(jié)。請(qǐng)注意， Excel 中的術(shù)語(yǔ)是指試算表或工作表的“文件 ”。這些記錄包含一個(gè) 3 字節(jié)的屬性字段“ rgbAttr”。 19 標(biāo)準(zhǔn)文件記錄順序 Excel 工作表文件的每一個(gè)記錄類型的預(yù)定位置。接下來(lái) 的三個(gè)字節(jié)，標(biāo)示為 “ rgbAttr” 指定單元格屬性（表 43）。行（ Row） 0 在工作表中對(duì)應(yīng)行 1。第一個(gè)數(shù)字在系統(tǒng)中為 0， 而不是 1 。這種單元格的確定方式讓人更容 易理解。 有關(guān)電子表格單元格的記錄數(shù)據(jù)字節(jié) 電子表格出現(xiàn)在屏幕上或打印是以矩陣的單元格出現(xiàn)的。同樣，低字節(jié)的記錄長(zhǎng)度字段字節(jié) 18 是 2 和高字 的記錄長(zhǎng)度字段 字節(jié) 是 3。后兩個(gè)字節(jié)表示記錄的長(zhǎng)度（ length）。它使用的文件格式叫做 BIFF（二進(jìn)制文件格式）。 這個(gè)電子表格文件導(dǎo)入到 office 中不會(huì)出現(xiàn)任何問(wèn)題。 (1)SetCellString(Col As Long, Row As Long, Sheet As Long, Str As String) SetCellString方法用來(lái)設(shè)置指定單元格的字符串 (2)MoveToCell(Col As Long, Row As Long) MoveToCell將焦點(diǎn)移動(dòng)到指定單元格上 (3)SelectRange(Col As Long, Row As Long, Col2 As Long, Row2 As Long) SelectRange方法用來(lái)在表格中選擇一個(gè)指定的區(qū)域 (4)SetCellAlign(Col As Long, Row As Long, Sheet As Long, Para As Long) SetCellAlign 方法用來(lái)設(shè)置指定單元格的對(duì)齊方式 (5)SetCellNumType(Col As Long, Row As Long, Sheet As Long, Para As Long) SetCellNumType用來(lái)設(shè)置單元格的數(shù)值格式類型 (6)SetButtonCell(Col As Long, Row As Long, Sheet As Long) 16 SetButtonCell用來(lái)設(shè)置單元格中的按鈕 (7)SetCols(Cols As Long, Sheetingdex As Long) SetCols方法用來(lái)設(shè)置某頁(yè)的列數(shù) (8)SetRows(Rows As Long, Sheetindex As Long) SetRows方法用來(lái)設(shè)置某頁(yè)的行數(shù) (9)Void PrintSheet(Long Withdlg, Long Valuesheet) PrintSheet方法用來(lái)設(shè)置打印 (10)Void PrintSetTopTitle(Long StartRow, Long EndRow) PrintSetTopTitle方法設(shè)置表頭標(biāo)題的范圍，該標(biāo)題將會(huì)出現(xiàn)在 每個(gè)打印頁(yè)上。資源本地化根據(jù)需要可以將 Cell組件 /插件設(shè)置成不同的語(yǔ)言版本。自定義函數(shù)可以無(wú)限制次數(shù)的嵌套。如此傻瓜式的操作并不妨礙你的各種需要，除此之外，你可以指定圖表數(shù)據(jù)源，以及控制圖表的每一個(gè)數(shù)據(jù)。 (2)別具一格的選擇界面 Cell的第一感覺(jué)即與其他表格不同，那就是它的灰色的選擇區(qū)域。 Cell組件可以作為一個(gè)通用的表格處理組件，內(nèi)置了圖表分析、數(shù)據(jù)統(tǒng)計(jì)、數(shù)據(jù)保存、公式及自定義函數(shù)、數(shù)據(jù)庫(kù)連接、打印及打印瀏覽等一系列功能，為程序員提供了豐富的編程接口，采用 Cell組件可以提高軟件界面的友好性及數(shù)據(jù)的開(kāi)發(fā)性，可以極大地減少程序代碼，顯著地加快軟件的開(kāi)發(fā)進(jìn)度。 Cell插件具有與 Cell組件類似的功能，但與 Cell組件不同， Cell插件用于開(kāi)發(fā) Web應(yīng)用。 Cell組件（ ActiveX控件，擴(kuò)展名為 OCX）主要適用于開(kāi)發(fā) windows應(yīng)用程序，是為商業(yè)軟件解決實(shí)際開(kāi)發(fā)過(guò)程中的圖表、報(bào) 表顯示，輸入，打印輸出等問(wèn)題的最理想的解決方案。 Cell組件 CELL是新一代的 B\S結(jié)構(gòu)報(bào)表工具軟件，它具有較強(qiáng)的功能，它能較好地解決軟件開(kāi)發(fā)人員報(bào)表制作中遇到的問(wèn)題，提高開(kāi)發(fā)效率。 Cell組件的廣泛兼容性，讓文本數(shù)據(jù)從 Cell組件輸入并轉(zhuǎn)化為 Excel成為可能。表示在工程中要引用 Excel類型庫(kù)。 Excel對(duì)象的接口結(jié)構(gòu) Excel對(duì)象模型中有 5個(gè)重要的對(duì)象與制作報(bào)表有關(guān) ， 分別為 ： Application、 Workbook、Worksheet、 Range、 Cells。 Workbooks對(duì)象是工作簿集合對(duì)象 ， 表示 ，Workbook對(duì)象則表示其中的某個(gè)指定的工作簿。該對(duì)象在軟件安裝的時(shí)候就一起注冊(cè) ， 可以供 Visual Basic等應(yīng)用程序開(kāi)發(fā)軟件引用。我們還可使用 VB中的 OLE控 件，通過(guò)加入此控件，適當(dāng)改變?cè)摽丶膶傩?，就可用一?VB中支持 OLE的方法在程序中方便地建立鏈接式或嵌入式 OLE對(duì)象，如可用方法： Create Embed：創(chuàng)建嵌入式的 OLE對(duì)象 ； Create Link：創(chuàng)建鏈接式 OLE對(duì)象 。 對(duì)象嵌入是指將 OLE對(duì)象復(fù)制到 VB當(dāng)前程序中，即在 OLE控件內(nèi)部保存數(shù)據(jù)。OLE有 4種基本的應(yīng)用：對(duì)象鏈接（ Object Link）、對(duì)象嵌入（ Object Embed）、 OLE自動(dòng)化（ OLE automation）和 OLE控件。 OLE技術(shù)可以滿足用戶在一個(gè)文檔中加入不同格式數(shù)據(jù)的需要（如文本、圖像、聲音等），即所 謂建立復(fù)合文檔問(wèn)題。值得注意的是 OLE文件只能為鏈接對(duì)象所定義 ， 而對(duì)于嵌入對(duì)象 ,只需定義 OLE類。 OLE類也決定 OLE對(duì)象所包含的數(shù)據(jù)類型 ， 10 鏈接或嵌入對(duì)象均要定義 OLE類。嵌入的 OLE對(duì)象不需要保存在文件中 ， 所有數(shù)據(jù)都在應(yīng)用程序中 ， 這就確保了 OLE數(shù)據(jù)不會(huì)被偶然地刪除或修改。 應(yīng)用程序可以得到 OLE對(duì)象文件中的最新數(shù)據(jù) 。 COM /OLE 2. 0 是被證明了的開(kāi)放技術(shù) ,能滿足上述全部要求。被操作的一段為Automation服務(wù)器，典型的 Automation服務(wù)器有 Microsoft Office 程序和 Inter Explorer。 OLE 是一個(gè)系統(tǒng) ,它可以使應(yīng)用程序通過(guò)數(shù)據(jù)鏈接和數(shù)據(jù)嵌入來(lái)更容易地共享數(shù)據(jù)。它提供了建立混合文檔的手段。 8 4 生成 Excel 文件 的方法及原理 利用 OLE 技術(shù)，生成 Excel 文件 利用 OLE技術(shù) ， 可以在程序中直接控制 Excel應(yīng)用程序 ， 將數(shù)據(jù)直接輸入到 Excel中 ，產(chǎn)生工作簿 ， 實(shí)現(xiàn)存儲(chǔ)和打印 ， 而且還可以對(duì)生成的 Excel表格進(jìn)行詳細(xì)的格式控制 ， 生成滿足用戶要求的復(fù)雜報(bào)表 ， 生成后的 Excel文件 還可以利用 Excel的強(qiáng)大功能進(jìn)行二次修改。 Visual Basic 利用對(duì)對(duì)象的鏈接與嵌入技術(shù) (OLE)，開(kāi)發(fā)出具有圖、文、聲、像、 Web 等對(duì)象合成的應(yīng)用程序。 利用 VB 的數(shù)據(jù)訪問(wèn)特性，用戶可以對(duì)包括 Microsoft SQL Server 和其他企 業(yè)數(shù)據(jù)庫(kù)在內(nèi)的大部分?jǐn)?shù)據(jù)庫(kù)格式創(chuàng)建數(shù)據(jù)庫(kù)和前端應(yīng)用程序，以及可調(diào)整的服務(wù)器端部件。無(wú)論是開(kāi)發(fā)功能強(qiáng)大、性能可靠的商務(wù)軟件，還是編寫(xiě)能處理實(shí)際問(wèn)題的實(shí)用小程序， VB 都是最快速、最簡(jiǎn)便的方法。在連續(xù)記錄當(dāng)中，此前 的紀(jì)錄 不會(huì)被改變 。每個(gè)記錄包含文件各種內(nèi)容和特點(diǎn)的特定數(shù)據(jù)。如果 BIFF5— BIFF8 工作簿文件存儲(chǔ)為流文件，整個(gè)流被稱為 工作薄流。 定義：工作 表 流 BIFF2— BIFF4 工作 表 文件被存儲(chǔ)為流文件。如果這些文件都儲(chǔ)存 在 流文件 中 ， 則 整個(gè)文件 僅 包括“ book”流 (BIFF5)或者“ workbook”流（ BIFF8）。下表顯示寫(xiě)入 Excel 版本 中 的文件格式。 該工作域文件載有完整數(shù)據(jù)的 所有 嵌入式表。它存儲(chǔ)文件名，窗口大小，窗口位置以及每個(gè)部分的工作域。默認(rèn)的文件擴(kuò)展名的工作簿文件是 “ XLS” 。 2 2 Excel文件格式 文件結(jié)構(gòu) 工作表文件 一