VFP调用EXCEL并设置粗线表格线
出处:网络

RPTSHEET=GETOBJECT('','excel.sheet')
XLAPP=RPTSHEET.APPLICATION
XLAPP.WORKBOOKS.ADD()
XLSHEET=XLAPP.ACTIVESHEET
XLSHEET.CELLS(1,1).VALUE='安华工作室BJG 作者：边巨国'
XLSHEET.CELLS(1,1).FONT.SIZE=18
XLSHEET.CELLS(1,1).FONT.NAME='隶体'
XLSHEET.CELLS(1,1).FONT.BOLD='True'
XLSHEET.CELLS(3,1).VALUE=3
XLSHEET.CELLS(4,1).VALUE=4
XLSHEET.CELLS(5,1).VALUE=5
XLSHEET.CELLS(6,1).FormulaR1C1="=SUM(R[-3]C:R[-1]C)"
SRANGE='A1:'+CHR(ASC('A')+5)+'1'
XLSHEET.RANGE( SRANGE ).SELECT
XLAPP.SELECTION.HORIZONTALALIGNMENT=7
XLAPP.SELECTION.VERTICALALIGNMENT=-4107
XLSHEET.CELLS(2,1).VALUE='编报单位:'
XLSHEET.CELLS(2,6).VALUE='单位:人'
SRANGE=CHR(ASC('A'))+LTRIM(STR(3))+':'+CHR(ASC('A')+5)+LTRIM(STR(8))
XLSHEET.RANGE( SRANGE ).SELECT
XLAPP.SELECTION.BORDERS( -4160 ).LINESTYLE=1
XLAPP.SELECTION.BORDERS( -4107 ).LINESTYLE=1
XLAPP.SELECTION.BORDERS( -4131 ).LINESTYLE=1
XLAPP.SELECTION.BORDERS( -4152 ).LINESTYLE=1
XLAPP.SELECTION.BORDERAROUND( ,3,-4105)
XLAPP.VISIBLE=.T.

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明