dim i as integer ,j as integer
set x1app=createobject("excel.application")
x1app.visible=true
set x1book=x1app.workbooks.add
set x1book=x1book.worksheets(1)
adodata1.recordset.movefirst
adodata1.recordset.movelast
zs1=adodata1.recordset.recordcount
adodata1.recordset.movefirst
i=0
do while adodata1.recordset.eof=false
for j=0 to 8
if isnull(datagrid1.text)=false then
x1sheet.cells(i+1,j+1)=adodata1.recordset(j)
end if
next j
adodata1.recordset.movenext
i=i+1
loop