位置:绿色联盟 > 下载中心应用软件办公软件→ 批量提取Excle数据内容下载

批量提取Excle数据内容 1.0 免费版

  • 运行环境:Win9X/2000/XP/2003/win7/vista|ME/|NT
  • 软件语言:简体中文|授权方式:免费版
  • 软件类型:国产软件 - 应用软件 - 办公软件
  • 软件大小:310 KB
  • 下载星级:
  • 软件官网:暂无
  • 更新时间:2013/8/9 11:33:57
软件简介
本站提供免费版的 批量提取Excle数据内容 软件免费下载。

【软件截图】

批量提取Excle数据内容

【基本介绍】

批量提取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

下载地址
软件说明
* 为了达到最快的下载速度,推荐使用迅雷下载
* 请一定升级到最新版WinRAR解压缩软件才能正常解压本站提供的软件!
* 站内提供的所有软件由网上搜集,若侵犯了你的版权利益,敬请来信通知我们!