心愿游戏:符合你心愿的游戏!

手机版

批量提取Excel数据内容 1.0 绿色版

批量提取Excel数据内容
大小:310 KB 平台:WinXP/Win7/Winall 时间:2013-08-09 16:54:00 官网:Home Page 类型:办公软件 语言:简体中文版
  • 安全认证
  • 绿色无毒
  • 无广告
  • 无插件

心愿口碑

当前4451人在玩

热门合集

更多

批量提取Excel数据内容

版本大全

软件

介绍

批量提取Excel数据内容1.0 绿色版_wishdown.com

批量提取Excle数据内容,针对大量Excel表格文件数据内容提取,如对100个多个同样格式的Excel的同一位置数据进行提取数据汇总

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

热门

专题

好玩的3d手游大全 10款软件
好玩的3d手游大全
【好玩的3d手游大全】为玩家们提供最好玩的热门3d变态手游下载推荐。每一款都是超级好玩火爆的3D动作变态游戏,上线送VIP海量钻石元宝,秒变变态手游土豪,喜欢的朋友们快来心愿游戏下载体验吧!...

关于我们  下载声明  加入我们  意见反馈  网站地图

本站为非营利性个人网站,本站所有游戏来自于互联网,版权属原著所有。如有侵犯你的版权,请发邮件给wishdown2023@163.com

湘ICP备2021017279号-3 公安部备案号:13092602000101

Copyright©2006-2019 www.wishdown.com All rights reserved