EXCEL文件導入DATAWINDOW

//***************************************************************//   //   函數名稱：   GF_EXCEL_TO_DATAWINDOW                                                                                                                               //   函數功能：   EXCEL文件導入DATAWINDOW                                                                                                                             //   參數類型：   DWTAWINDOW                                                                                                                               //   參數名稱：   DW                                                                                                                               //   RETURN     ：   1   SUCCEED       -1   ERROR                                                                                                                               //   DATE         ：   2004   3.1                                                                                                                                                           //***************************************************************//       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