VF生成EXCEL文件时,如何不显示生成过程
1、用以下语句生成EXCEL文件时将打开EXCEL后显示添加所有记录的过程,如果记录少还可以,如果多就要显示很长时间。
如何不显示向EXCEL添加过程,而是在屏幕上显示正在处理XX条记录,当EXCEL文件全部生成后,再显示这个EXCEL文件?
ef=CREATEOBJECT( 'Excel.application')
ef.Workbooks.add
ef.Worksheets( "sheet1").Activate
ef.ActiveWindow.WindowState=2
ef.visible=.t.
ef.Cells.Select
ef.Selection.Font.Name= "宋体" &&设置整张表所有的默认字体都为“宋体”
ef.Selection.Font.Size=9 &&设置整张表所有的默认字体大小为11
ef.Selection.RowHeight=20
2、在循环生成EXCEL语句中以下语句,并没有显示,是什么原因?
scan
wait wind '正在处理第: '+ ltrim(str(recno()))
endscan
谢谢各位老师。
[解决办法]
把 ef.visible=.t. 放到最后,至少在 scan ... endscan 之后