excel表的导入

string    str_savename,named,s_grxh     
int        excelok,li_net     
long    li_count,i     
  
  
oleobject    excelserver     
excelserver=create    oleobject         
excelok=excelserver.connecttonewobject("excel.application")         
  
//检查返回值，以确保已成功地连接到了Excel     
if    excelok    <>    0    then         
                     messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!")         
                     return    -1     
end    if         
li_net    =    GetFileOpenName("选择文件",    str_savename,named,"xls","Excel文件(*.xls),*.xls")         
if    li_net    >    0    then     
                     if    str_savename    =    ""    then        return    -1     
                     dw_1.settransobject(sqlca)     
                     dw_1.reset()     
                     excelserver.workbooks.open(str_savename)         
                     excelserver.activesheet.cells.copy     
                     li_count    =    dw_1.importclipboard(2)        //导入数据         
                     clipboard("")
       //更新信息至数据库
       if messagebox("提示信息","这将有可能会覆盖原有数据，请备份后进行此操作。确实要导入EXCEL中的数据吗？",question!,okcancel!,2) = 2 then
                   return
      else    

//判断导入信息是否与dw窗口中信息重复  
       int n
        FOR  n = 1 TO dw_1.RowCount( )
       
       string ls_llk
       int ls_count
                     ls_llk=dw_1.getitemstring(n,1)
       select count(*) into :ls_count from cliendservice where cs_edit=:ls_llk;
       if ls_count > 0 then
                     delete from cliendservice where cs_edit=:ls_llk;
      else
       return
      end if

                   NEXT

                    end if

                    dw_1.update()
                     excelserver.quit()         
                     excelserver.disconnectobject()         
                     destroy    excelserver         
                     return    1  
    

else     
                     messagebox('信息提示','没有指定导入文件!')     
                     return    -1     
end    if