c选项公共使用initutilsub initialize案例.pdfVIP

1、新，

a)修改表单名称，

b)修改成自己需要的title及对应title的字段名

c)建方法，调用方法

//

OptionPublic

UseinitUtil

SubInitialize

MsgBox导出开始

OnErrorGoToErrHandle

设定输出格式为Excel

Print|Content-Type:application/vnd.mcel|

Print|Content-Disposition:Attachment;filename=ExcelOut.xls|

输出头信息及样式表

Print|head

metahttp-equiv=Content-Typecontent=text/html;charset=UTF-8

metaname=ProgIdcontent=Excel.Sheet

metaname=Generatorcontent=Excel11

styleid=Book1_7614_Styles

!--table

{mso-displayed-decimal-separator:\.;

mso-displayed-thousand-separator:\,;}

.font57614

{color:windowtext;

font-size:9.0pt;

font-weight:400;

font-style:normal;

text-decoration:none;

font-family:宋体;

mso-generic-font-family:auto;

mso-font-charset:134;}

.xl157614

{padding-top:1px;

padding-right:1px;

padding-left:1px;

mso-ignore:padding;

color:windowtext;

font-size:12.0pt;

font-weight:400;

font-style:normal;

text-decoration:none;

font-family:宋体;

mso-generic-font-family:auto;

mso-font-charset:134;

mso-number-format:General;

text-align:general;

vertical-align:middle;

mso-background-source:auto;

mso-pattern:auto;

white-space:nowrap;}

.xl227614

{padding-top:1px;

padding-right:1px;

padding-left:1px;

mso-ignore:padding;

color:windowtext;

font-size:10.0pt;

font-weight:700;