[pb]从excel导入数据到datawindow

因为本想帮猫猫做一个工资打印程序的,只是情况太多样了. 做了一半发现无法实现.留下一个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.settransobject(sqlca)  
  dw.reset()  
  excelserver.workbooks.open(str_savename)    
  excelserver.activesheet.cells.copy  
  li_count   =   dw.importclipboard(2)     //导入数据    
  clipboard("")   
 
  excelserver.quit()    
  excelserver.disconnectobject()    
  destroy   excelserver    
  return   1  
  else  
  messagebox('信息提示','没有指定导入文件!')  
  return   -1  
  end   if