admin 管理员组文章数量: 1086019
2024年3月19日发(作者：format factory免费下载)
!-
VFP控制EXCEL的常用方法
oExl=CREATEOBJECT('ation')
e=.T.
tSaveFormat=39
InNewWorkbook=1
(cXLS)
State=-4140 &&窗口最小化
State=-4143 &&窗口正常化
State=-4147 &&窗口最大化
*------------------------------------------------------*
&&页面设置
itleRows="$1:$3" &&打印标题
ation=2 &&页面方向:1纵向/2横向
*ize=11 &&纸张尺寸:9-A4/11-A5
gin=0.8/0.035 &&顶边距
Margin=0.8/0.035 &&底边距
rgin=0 &&左边距
argin=0 &&右边距
Horizontally=.T. &&页面居中
Margin=0.5/0.035
Margin=0.5/0.035
ader="&9表格"”9是字号”
Header=""
eader="&9"
oter=""
Footer="&9第&P页,共&N页"
ooter="&9制表人:'+代码+' 制表时间:"+TTOC(DATETIME())
*------------------------------------------------------*
&&整体格式设置
=9
='宋体'
ght=0.5/0.035
FormatLocal="0.00_ ;[红色]-0.00"
alAlignment=2 &&单元格内容垂直居中
*------------------------------------------------------*
&&获取最大行号和最大列号
Local nMaxRow,nMaxCol
nMaxRow=
nMaxCol=
&&表头格式设置
(1).=16
!-
(1).=.T.
(1).RowHeight=1/0.035
(1).HorizontalAlignment=3
(2).HorizontalAlignment=3
(3).HorizontalAlignment=3
(3).=.T.
('A1:'+CHR(96+nMaxCol)+'1').Merge
('A2:'+CHR(96+nMaxCol)+'2').Merge
*------------------------------------------------------*
&&条件格式隐藏0值
(1,3,'0')
Conditions(1).ndex=2&&文字白色
*------------------------------------------------------*
('A1:B1').ndex=6
*------------------------------------------------------*
&&单元格底纹黄色
t &&自动列宽
("A3:"+CHR(96+nMaxCol)+ALLTRIM(STR(nMaxRow))).=2
&&边框线
*------------------------------------------------------*
&&自动筛选
IF !lterMode &&判断是否存在自动筛选
(3).Autofilter &&如果不存在自动筛选,则添加自动筛选
ENDIF
*------------------------------------------------------*
&&冻结窗格
('D4').Select
Panes = .T.
*------------------------------------------------------*
*------------------------------------------------------*
&&分类汇总
Local Arry(1),nMaxRow,nMaxCol
Arry(1)=5
nMaxRow=
nMaxCol=
('A3:'+chr(96+nMaxCol)+alltrim(str(nMaxRow))).Subtotal(2,-4157,@Arry,.T
.,.F.,.T.) &&按第2列分类汇总数组Arry保存的列
*------------------------------------------------------*
1、对象的创建与关闭
*******************************
oExl=CREATEOBJECT('ation') &&创建Excel对象
InNewWorkbook=1 &&新建工作簿默认包含工作表个数
版权声明：本文标题：VFP控制EXCEL的方法(终于找到了) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1710794774a573482.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论