作者:乔山办公网日期:
返回目录:excel表格制作
/*string null_str SetNull(null_str) dw_3.ImportFile(null_str)*//*OLEObject ExcelServer long excelok string str_savename ,str_filenameExcelServer = CREATE OLEObject string ls_name,ls_pathnameboolean lb_existinteger li_rtnif ExcelServer.connecttonewobject("Excel.application") < 0 thenmessagebox("系統e79fa5e98193e59b9ee7ad94330提示","沒有安裝Excel")destroy(ExcelServer)returnend if li_rtn= GetFileSaveName("打開文件",str_filename,ls_name,"xls","Excel文件(*.xls),*.xls")if li_rtn=1 thenExcelServer.Workbooks.Open(str_filename) str_savename= "c:\temp.txt" excelserver.activeworkbook.saveas(str_savename,3) excelserver.displayalerts=false ExcelServer.quit() ExcelServer.DisconnectObject() //DESTROY ExcelServer dw_3.ImportFile(str_savename) filedelete(str_savename) END IFDESTROY ExcelServer */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_3.settransobject(sqlca) dw_3.reset() excelserver.workbooks.open(str_savename) excelserver.activesheet.cells.copy li_count = dw_3.importclipboard(2) //导入数据 clipboard("") excelserver.quit() excelserver.disconnectobject() destroy excelserver return 1 else messagebox('信息提示','没有指定导入文件!') return -1 end if