批量提取Excle数据内容

批量提取Excle数据内容，对于很多Excel表格文件数据內容提取，如对100个好几个一样文件格式的Excel的同一部位数据开展提取数据归纳

本软件只适用office2003版本的Excel，因此计算机规定安裝该版本才可以！2003之后版本要改装装丁，只需2003版本能开启就可以了！

VB实际操作EXCEL
全方位操纵 Excel
最先建立 Excel 目标，应用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) 表明现阶段对话框：
ExcelID.Visible := True;
2) 变更 Excel 菜单栏：
ExcelID.Caption := \‘应用软件启用 Microsoft Excel\‘;
3) 加上新工作簿：
ExcelID.WorkBooks.Add;
4) 开启已具有的工作簿：
ExcelID.WorkBooks.Open( \‘C:\\Excel\\Demo.xls\‘ );
5) 设置第2个工作表为主题活动工作表：
ExcelID.WorkSheets[2].Activate;
或 ExcelID.WorkSheets[ \‘Sheet2\‘ ].Activate;
6) 给表格中取值：
ExcelID.Cells[1,4].Value := \‘第一行第四列\‘;
7) 设置指定列的总宽（企业：标识符数量），以第一列入例：
ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的相对高度（企业：磅）（1磅＝0.035CM），以第二个人行为例：
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1CM
9) 在第8行以前插入分页符：
ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
参照编码：ActiveSheet.HPageBreaks(1).Location = Range(“A22“)
10) 在第8列以前删除分页符：
ExcelID.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框总宽：
ExcelID.ActiveSheet.Range[ \‘B3:D4\‘ ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( \\ ) 6-斜( / )
12) 消除第一行第四列表格中公式计算：
ExcelID.ActiveSheet.Cells[1,4].ClearContents;
13) 设置第一行字体样式特性：
ExcelID.ActiveSheet.Rows[1].Font.Name := \‘篆书\‘;
ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelID.ActiveSheet.Rows[1].Font.Bold := True;
ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;
14) 开展网页页面设置：
a.页眉：
ExcelID.ActiveSheet.PageSetup.CenterHeader := \‘表格演试\‘;
b.底部：
ExcelID.ActiveSheet.PageSetup.CenterFooter := \‘第