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