PB从EXCEL中导入数据窗口的函数.doc

《PB从EXCEL中导入数据窗口的函数.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、PB从EXCEL中导入数据窗口的函数//***************************************************************////函数名称：GF_EXCEL_TO_DATAWINDOW                                                             //函数功能：EXCEL文件导入DATAWINDOW                                                            //参数类型：DWTAWINDOW              

2、                                               //参数名称：DW                                                             //RETURN ：1SUCCEED  -1ERROR                                                             //DATE   ：20043.1                                                                      

3、     //***************************************************************//stringstr_savename,named,s_grxhint excelok,li_netlongli_count,ioleobjectexcelserverexcelserver=createoleobjectexcelok=excelserver.connecttonewobject("excel.application")//检查返回值，以确保已成功地连接到了Excelifexcelok<>0then messagebox

4、("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!") return-1endifli_net=GetFileOpenName("选择文件",str_savename,named,"xls","Excel文件(*.xls),*.xls")ifli_net>0then ifstr_savename=""then return-1 dw.settransobject(sqlca) dw.reset() excelserver.workbooks.open(str_savename) excelserver.activesheet.cells.copy //复

5、制到剪贴板 li_count=dw.importclipboard(2) //导入数据//dw.importfile(str_savename)//直接导入 clipboard("") excelserver.quit() excelserver.disconnectobject() destroyexcelserver return1else messagebox('信息提示','没有指定导入文件!') return-1endif