批量提取Excle数据内容 1.0 下载

批量提取Excel数据内容，针对大量Excel表格文件数据内容进行提取，例如对100个具有相同文件格式的Excel文件的同一部位数据进行提取和归纳。本软件仅适用于Office 2003版本的Excel，所以您的计算机必须安装该版本才能使用！2003之后的版本需要进行改装，只需2003版本能够打开即可！如何编写程序提取Excel数据？

VB实际操作Excel，全方位操纵Excel：

表明当前对话框：ExcelID.Visible := True;

更改Excel菜单栏：ExcelID.Caption := '应用程序启用 Microsoft Excel';

加上新工作簿：ExcelID.WorkBooks.Add;

打开已存在的工作簿：ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');

设置第二个工作表为活动工作表：ExcelID.WorkSheets[2].Activate; 或 ExcelID.WorkSheets['Sheet2'].Activate;

给表格中取值：ExcelID.Cells[1,4].Value := '第一行第四列';

设置指定列的宽度（单位：字符数），以第一列为例：ExcelID.ActiveSheet.Columns[1].ColumnWidth := 5;

设置指定行的行高（单位：磅）（1磅＝0.035CM），以第二行为例：ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1CM

在第8行之前插入分页符：ExcelID.WorkSheets[1].Rows[8].PageBreak := 1; 参照代码：ActiveSheet.HPageBreaks(1).Location = Range("A22")

在第8列之前删除分页符：ExcelID.ActiveSheet.Columns[4].PageBreak := 0;

指定边框宽度：ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight := 3; 1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )

清除第一行第四列单元格中的公式计算：ExcelID.ActiveSheet.Cells[1,4].ClearContents;

设置第一行字体样式特性：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;

进行页面设置： a. 页眉：ExcelID.ActiveSheet.PageSetup.CenterHeader := '表格演示'; b. 页脚：ExcelID.ActiveSheet.PageSetup.CenterFooter := '第

软件特点

适用于Office 2003版本的Excel

全方位操纵Excel功能

简单易用的编程接口

如何使用

确保您的计算机已安装Office 2003版本的Excel。

编写VB程序，按照上述代码示例进行操作。

运行程序按照需求提取和修改Excel数据。

保存或导出修改后的Excel文件。