请问这样写错在那呢??
integerli_rtn,ii,li_asc
stringls_name,ls_pathname
booleanlb_exist
longnumcols,c,r,j
OLEObjectxlapp,xlsub
intret
ifdw_1.RowCount()<1then
MessageBox("提示信息","请先检索数据再导出至Excel!")
return-1//error
endif
li_rtn=GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")
ifli_rtn=1then
lb_exist=FileExists(ls_pathname)
IFlb_existTHEN
li_rtn=MessageBox("保存",ls_pathname+"已经存在,是否覆盖?",Exclamation!,YesNo!)
endif
ifli_rtn=1then
li_rtn=dw_1.SaveAs(ls_pathname,excel!,true)
ifli_rtn=1then
MessageBox("提示信息","导出数据成功--------!")
else
MessageBox("错误信息","导出数据失败--------!")
return-1//error
endif
else
return-1//error
endif
else
return-1
endif
//......................................................................
numcols=long(dw_1.Object.DataWindow.Column.Count)
xlApp=CreateOLEObject//产生oleobject的实例
ret=xlApp.ConnectToNewObject("Excel.Sheet")//连接ole对象
ifret<0then
MessageBox("连接失败!","连接到EXCEL失败,请确认您的系统是否已经安装EXCEL!~r~n"+"错误代码:"+string(ret))
return-1
endif
xlApp.Application.Workbooks.Open(ls_pathname)//打开EXCEL文件
xlApp.Application.Visible=true////使文件可见
xlsub=xlapp.Application.ActiveWorkbook.Worksheets[1]//得到活动工作表的引用,改善程序性能
stringls_colname,ls_text,ls_modistr,ls_col
forc=1todw_1.rowcount()
j=c+1//考虑标题行
xlsub.cells[j,1]=dw_1.object.si[c]//给cell赋值
MessageBox("错误信息",j)
next
xlApp.DisConnectObject()
Destroyxlapp
MessageBox("提示信息","导出数据成功!")
return1//success
|