批量提取Excle數(shù)據(jù)內(nèi)容 [1.0 綠色版]

批量提取Excle數(shù)據(jù)內(nèi)容，對于很多Excel表格文件數(shù)據(jù)內(nèi)容提取，如對100個好幾個一樣文件格式的Excel的同一部位數(shù)據(jù)開展提取數(shù)據(jù)歸納

留意：

本軟件只適用office2003版本的Excel，因此計算機規(guī)定安裝該版本才可以！2003之后版本要改裝裝丁，只需2003版本能開啟就可以了！

怎么編寫程序提取excel數(shù)據(jù)？

VB實際操作EXCEL

全方位操縱 Excel

最先建立 Excel 目標(biāo)，應(yīng)用ComObj:

Dim ExcelID as Excel.Application

Set ExcelID as new Excel.Application

1) 表明現(xiàn)階段對話框：

ExcelID.Visible := True;

2) 變更 Excel 菜單欄：

ExcelID.Caption := \‘應(yīng)用軟件啟用 Microsoft Excel\‘;

3) 加上新工作簿：

ExcelID.WorkBooks.Add;

4) 開啟已具有的工作簿：

ExcelID.WorkBooks.Open( \‘C:\\Excel\\Demo.xls\‘ );

5) 設(shè)置第2個工作表為主題活動工作表：

ExcelID.WorkSheets[2].Activate;

或 ExcelID.WorkSheets[ \‘Sheet2\‘ ].Activate;

6) 給表格中取值：

ExcelID.Cells[1,4].Value := \‘第一行第四列\(zhòng)‘;

7) 設(shè)置指定列的總寬（企業(yè)：標(biāo)識符數(shù)量），以第一列入例：

ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;

8) 設(shè)置指定行的相對高度（企業(yè)：磅）（1磅＝0.035CM），以第二個人行為例：