- 运行环境:Win9X/2000/XP/2003/win7/vista|ME/|NT
- 软件语言:简体中文|授权方式:免费版
- 软件类型:国产软件 - 应用软件 - 办公软件
- 软件大小:310 KB
- 下载星级:
- 软件官网:暂无
- 更新时间:2013/8/9 11:33:57
【软件截图】

【基本介绍】
批量提取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.035厘米), 以第二行为例:
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
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 := \‘第&P页\‘;
c.页眉到顶端边距2cm:
ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm:
ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm:
ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm:
ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左手边距2cm:
ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右手边距2cm:
Ex