原创力文档- 1、本文档共10页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
实用的 EXCELVBA编程大全总结
实用的 EXCEL VBA 编程小结 :
最近单位内部的项目里要用到些报表 EXCEL的生成 ,虽说 JAVA 的 POI 可以有这能力 ,但觉得还就是可能比较麻
烦 ,因此还就是转用、 net 来搞 ,用 Visual Studio2003 配合 office 2003, 用到了一些 VBA, 因此小结并归纳之 ,选了
些资料归纳在这里 ,以备今后查考
首先创建 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 := 第一行第四列 ;
实用的 EXCELVBA编程大全总结
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;
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;
实用的 EXCELVBA编程大全总结
14) 进行页面设置 :
a、页眉 :
ExcelID、ActiveSheet 、 PageSetup 、CenterHeader := 报表演示 ;
b 、页脚 :
ExcelID、ActiveSheet 、 PageSetup 、CenterFooter := 第P 页 ;
c、页
文档评论（0）