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

留意：

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

怎么编写程序提取excel数据？

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 := \‘第