【導(dǎo)讀】輸出到Excel文件中再處理。我們就需要懂得如何快速的將數(shù)據(jù)輸入到Excel中。輸入數(shù)據(jù)都要打開Excel再進(jìn)行一步步輸入操作，很繁瑣。我們希望通過一個簡單程序。本文通過研究得出三種生成Excel文件。的方法，并采用VB程序開發(fā)出文本文件自動轉(zhuǎn)化為Excel文件的程序。不同的方案為我們提供了不同的設(shè)計理念，為我們對數(shù)據(jù)的輸入有了不同的選擇。

　　

【正文】 表示一個整數(shù)紀(jì)錄。（ length）長度字節(jié)的記錄表明，記錄體是 9個字節(jié)。行（ Row） 0 在工作表中對應(yīng)行 1。 ROW 1 對應(yīng)工作表的行 2 ，依此類推。 Column2相對應(yīng)的表格列為 C。因而，圖 43 處理的單元格是 C1 。接下來 的三個字節(jié)，標(biāo)示為 “ rgbAttr” 指定單元格屬性（表 43）。最后一對字節(jié)（標(biāo)記為“ w” ）是表示整數(shù)的意義。 這里是 39H 或 57 個小數(shù)。因此，記錄指定工作表的單元格 C1 中包含一個整數(shù) 57。 19 標(biāo)準(zhǔn)文件記錄順序 Excel 工作表文件的每一個記錄類型的預(yù)定位置。文件沒有必要存在所有類型，但那些都是在同一秩序下存在。表 44 列出了 Excel 文件（電子表格）文件的記錄類型，在該命令下他們將出現(xiàn)在 BIFF 文件。幾個 BIFF 文件的記錄類型，即行，空白，整數(shù)，數(shù)量，標(biāo)簽， 布爾型 ，公式，和列默認(rèn)值，單元格 的描述內(nèi)容。這些記錄包含一個 3 字節(jié)的屬性字段“ rgbAttr”。下表說明 bit 與單元格屬性間的對應(yīng)關(guān)系。 表 44 下面列出了操作碼秩序中的一些記錄類型。它給出了一個規(guī)格和每種類型的字節(jié)間的斷開。請注意， Excel 中的術(shù)語是指試算表或工作表的“文件 ”。 記錄類型：尺寸 描述：電子數(shù)據(jù)表的整體規(guī)?；蚍秶? 記錄單元長度： 8 個字節(jié) 記錄單元字節(jié)結(jié)構(gòu)： 20 注：最后一列和一欄的記錄都大于最高被占領(lǐng)的編號。 記錄類型 : 表格 描述 : 描述了一個通過數(shù)據(jù)表命令創(chuàng)建行或列表 記錄體長度 : 12 bytes 記錄體字節(jié)結(jié)構(gòu) : 這兒給出的第一和最后一行和列不包括外排或外列，只包含表格式或輸入值。如果輸入單元是刪除內(nèi)容，抵消 8 和 9 字節(jié)給出的輸入單元行是 1 。 字符串字節(jié)（ BIFF2BIFF5） 所有到 BIFF5 的 Excel 文件格式都包含簡單字符串字節(jié)。字符串字節(jié)由字符數(shù)組的字符長度組成。長度被存儲為 8 位值或 16 位值，這取決于當(dāng)前的記錄。該字符串不是零終止。字符數(shù)組的編碼取決于目前的記錄 （ 例如，從代碼記錄或從字型記錄）。 表 45 Unicode 字符串（ BIFF8） 從 BIFF8 起，字符串總是使用 UTF16LE 的文字編碼存儲。字符數(shù)組是一個 16 位值的序列。此外可以使用壓縮格 式，它忽略了所有字符為 零的高字節(jié)。 表 46 說明了整個字符串的標(biāo)準(zhǔn)格式，但在許多記錄中字符串不同于本格式。這將單獨說明。在一個 Unicode字符串中可能（但不要求）存儲 RTF 格式的信息和亞洲語音信息。這樣的結(jié)果是用四個不同的方法來存儲字符串。字符數(shù)組不是零終止。 21 Unicode 字符串內(nèi)容 該字符串包含字符數(shù)（像往常一樣的 8 位值或 16 位值 ） ，選擇特征，字符數(shù)組和可選的格式信息。一般情況下，選擇特征領(lǐng)域也出現(xiàn)空字符串。但是，在少數(shù)幾個記錄里，如果字符串是空的，此地是省略的。這是提到在各自的位置。 表 46 常數(shù)組 常數(shù)的二維數(shù)組用來存儲緩存的 DDE 鏈接結(jié)果（記錄 EXTERNNAME），或常數(shù)組公式（如 t 數(shù)組）。數(shù)組始于尺寸（寬度和高度），后面是一列恒定值。 二維常數(shù)值數(shù)組， BIFF2BIFF5 ： 表 47 二維常數(shù)值數(shù)組， BIFF8： 表 48 22 5 程序設(shè)計 在這里，我將以一個全站儀測量數(shù)據(jù)為數(shù)據(jù)源，用上述三種方法 實現(xiàn)將文本文件 導(dǎo)出生成 Excel 文件。 來完 成簡單的文本格式的轉(zhuǎn)化。用三個簡單的程序來測試三種方法，生成如 圖 的 Excel 文件 ，以便于作比較 。 在生成的 Excel 文件時，對 Excel 文件的單元格進(jìn)行簡單設(shè)置，對數(shù)據(jù)的排列方式也進(jìn)行整理，使生成的 Excel 文件能夠 達(dá)到 簡介、美觀 的效果 。 這里主要是實現(xiàn)三種 Excel 文件的生成方法，對文本數(shù)據(jù)的選擇采取最簡單的矩陣形式，有一定的格式，對凌亂的數(shù)據(jù)處理我還無法實現(xiàn)。 圖 成果生成圖 23 利用 OLE 技術(shù)，生成 Excel 文件 方案程序設(shè)計 程序設(shè)計的基本流程 圖 基本流程圖 用戶界面和對象屬性設(shè)置 圖 程序界面 獲取文件名，測站點號，坐標(biāo)，高程 將測站點號，坐標(biāo)，高程寫入二維數(shù)組 創(chuàng)建 Excel、 sheet 等對象，生成 Excel文件 顯示全站儀測站點成果表 結(jié)束 打開全站儀測站點數(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 程序編碼與說明： 在編寫程序前要實現(xiàn) VB與 Excel的連接。 VB引用 Microsoft Excel類型庫 從【工程】菜單中選擇【引用】欄，打開外部引用對話框，勾選 Microsoft Excel Object Library 選項， Excel 對象庫即被添加到 VB 環(huán)境中以供調(diào)用。如圖 所示： 圖 工程引用圖 添加 Common Dialog 控件 25 新建的工程中是沒有 Common Dialog控件的，需要將 Common Dialog控件添加到工具箱中，添加方法：點擊主菜單“工程”下的“部件”，選中列表框中的“ Microsoft Common Dialog Control ” ，再按“確定”即可在工具箱上看到 Common Dialog控件的圖標(biāo)。如圖： 圖 控件引用圖 在將數(shù)據(jù)讀取輸入到 Excel前，我們應(yīng)先將數(shù)據(jù)在文本框中顯示，以確定數(shù)據(jù)是否正確。這就需要進(jìn)行文本篩選，選擇文件，并完成對文本框的輸出。這就需要一個 Common Dialog的控件。實現(xiàn)的方法是： = 文本文件（ *.txt） |*.txt| 進(jìn)行文本篩選即選擇文本文件 由于 Excel的應(yīng)用程序?qū)?象是外部可創(chuàng)建的對象，所以能從 VB應(yīng)用程序內(nèi)部來程序化操作 Excel，方法是用 VB的 OLE自動化技術(shù)獲取 Excel的控制句柄，從而直接控制 Excel的一系列操作。 VB要調(diào)用 Excel的功能，創(chuàng)建 Excel文件時，先創(chuàng)建一個 OLE對象，然后在對象中建立工作表 worksheet。實現(xiàn)如下： 定義一個 Excel的應(yīng)用對象變量 Dim oExcel As New 26 定義一個 Excel工作薄對象變量 Dim oSheet As 定義一個 Excel工作表 對象變量 Dim oBook As 創(chuàng)建一個新實例，獲取 Excel的控制句柄 在 OLE自動化利用函數(shù) GreateObject()建立對 Excel對象的引用并啟動 Excel Set oExcel = CreateObject() 添加一個工作表 Set oBook = Excel表格的控制，主要包括數(shù)據(jù)的導(dǎo)入、修改，單元格的合并，邊框的控制，字體控制。 由于我們讀取的全站儀數(shù)據(jù)里面包括點名、 X軸坐 標(biāo)、 Y軸坐標(biāo)、高程，因此，我們在向 Excel中輸入數(shù)據(jù)前，應(yīng)先將表頭做好，以便生成 Excel文件能更準(zhǔn)確直觀的現(xiàn)實數(shù)據(jù)含義。 在工作表的第一行加上標(biāo)題 (A1:D1).Value = Array(點名 , X軸坐標(biāo) , Y軸坐標(biāo) , 高程 ) 在表頭做好后，就可以向 Excel里輸入數(shù)據(jù)了，在這里我們可以對數(shù)據(jù)輸出的多少進(jìn)行選擇，采用 Resize事件來完成。 將數(shù)組中的數(shù)據(jù)傳輸?shù)焦ぷ鞅碇?，?shù)據(jù)的開始位置是 A2 (A2).Resize(600, 4).Value = DataArray 在將數(shù)據(jù)輸入到 Excel里后，接下來要做的就是對生成的 Excel表格進(jìn)行調(diào)整。 為了讓生成的 Excel文件更像報表，我們給有內(nèi)容的單元格加上邊框，并調(diào)整數(shù)據(jù)在單元格里的位置，我選擇了居中，這樣看上去會比較好，由于，各數(shù)值的長度不同，輸入到 Excel中就需要對單元格進(jìn)行調(diào)整，在這我讓單元格大小同輸入數(shù)據(jù)相適應(yīng)，這就避免了每次導(dǎo)入數(shù)據(jù)都要更改單元格大小。 操作單元格邊框的語句 (xlDiagonalDown).LineStyle = xlNone (xlDiagonalUp).LineStyle = xlNone 27 Selection是選中的區(qū)域，也可以直接用 Range對象指定目標(biāo)區(qū)域 Borders是 Range對象的屬性，代表對象的四個邊框 xlDiagonalDown是 Borders的參數(shù)，值可以從表 52里面選擇，分別代表不同位置的邊框 xlNone是 LineStyle的值，值可以從表 53里面選取，分別代表不同的線性 名稱 值 描述 xlDiagonalDown 5 從區(qū)域中每個單元格的左上角至右下 角的邊框 xlDiagonalUp 6 從區(qū)域中每個單元格的左下角至右上角的邊框 xlEdgeBottom 9 區(qū)域底部的邊框 xlEdgeRight 10 區(qū)域右邊的邊框 xlEdgeTop 8 區(qū)域頂部的邊框 xlEdgeLeft 7 區(qū)域左邊的邊框 xlInsideVertical 11 區(qū)域中所有單元格的水平邊框 xlInsideHorizontal 12 區(qū)域中所有單元格的垂直邊框 表 52 名稱 值 描述 xlContinuous 1 實線 xlDash 4115 虛線 xlDashDot 4 點劃相間線 xlDashDotDot 5 劃線后跟兩個點 xlDot 4118 點式線 xlDouble 4119 雙線 xlLineStyleNone 4142 無線條 xlSlantDashDot 13 傾斜的劃線 表 53 通過 Cell組件生成 Excel文件 程序設(shè)計 本程序?qū)⒉捎萌A有用表的 Cell組件作為中間組件，通過 Cell組件來進(jìn)行文本文件讀取和文 本格式的轉(zhuǎn)化。 程序設(shè)計基本流程 添加 CELL控件 新建的工程中試沒有 CELL控件的，需要將 CELL控件添加到工具箱中，添加方法： 點擊主菜單“工程”下的“部件”，選中列表框中的“ ActiveX Control module”， 28 再按“確定”即可在工具箱上看到 CELL控件的圖標(biāo)。如 圖 所示： 圖 Cell組件引用圖 圖 基本流程圖 獲取文件名，測站點號，坐標(biāo)，高程 通過調(diào)用 Cell組件的內(nèi)部函數(shù)來將數(shù)據(jù)導(dǎo)入到 Cell組件中 Cell文件轉(zhuǎn)化為 Excel文件，生成 Excel文件 顯示全站儀測站點成果表 結(jié)束 開始 29 用戶界面和對象屬性設(shè)置 這里也需要兩個 Common Dialog 控件，引用方法在方案一中有介紹。 用戶界面如圖 所示： 圖 程序界面 界面屬性： 對象名 屬性 值 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è)計 本程序中要在工程中添加一個類模塊。 類模塊（文件擴(kuò)展名為 .CLS）是面向?qū)ο缶幊痰幕A(chǔ)?？梢栽兕惸K中編寫代碼來建立新對象。這些對象可以包含自定義的屬性和方法。實際上，窗體正是這樣一種類模塊，在其上可安放控件，也可顯示窗體窗口。 程序設(shè)計的基本流程 圖 基本程序流程圖 獲取文件名，測站點號，坐標(biāo)，高程 將測站點號，坐標(biāo)，高程 ， 寫入二維數(shù)組，顯示在文本框中 創(chuàng)建一個 Microsoft Excel兼容的電子表格文件，讀取二維數(shù)組并導(dǎo)入到電子表格中 生成一個 Microsoft Excel兼容的電子表格文件 顯示全站儀測站點成果表 打開全站儀測站點數(shù)據(jù) 結(jié)束 31 用戶界面和對象屬性設(shè)置 用戶界面圖 所示 ： 圖 程序界面 這里也需要兩個 Common Dialog 控件，引用方法在方案一中有介紹。