PowerBuilder导入EXCEL中的数据方法新解_一生一念间_百度空间 相册 广场游戏 登录注册 关注此空间 一生一念间 2008-05-20 15:07 PowerBuilder导入EXCEL中的数据方法新解 string path_name,file_name,path,ls_empty,ls_saveasnameany ls_valuelonglong i,ll_row,i_return,ll_newrow,jlonglong ll_test string ls_data[7],ls_title[7]path=GetCurrentDirectory()if right(path,1) <> '\' then path=path+'\'path_name=path + '联系方式.xls'st_2.text='正在检查' + path_name + '，请稍候...'if not fileexists(path_name) then messagebox("提示信息","文件不存在!请检查文件")halt closereturn end if oleobject xlapp //申明excel对象xlapp = CREATE OLEObject //创建excel对象st_2.text='正在打开' + path_name + '，请稍候...'i_return = xlapp.ConnectToNewObject("Excel.Application") if i_return <> 0 then MessageBox("错误！","无法启动excel程序！")halt closereturn end if xlapp.workbooks.open(path_name)ls_saveasname = path + "temp.txt " xlapp.activeworkbook.SaveAs(ls_saveasname,3) //先将EXCEL文件中的数据导入到一个临时的文本文档st_2.text='数据已保存，正在导入...'xlapp.DisplayAlerts = False xlapp.Workbooks.close xlapp.DisplayAlerts = true xlapp.quit()xlapp.DisconnectObject()Destroy xlapp //导出到文本文档完成，关闭EXCEL对象i_return=dw_1.ImportFile(TEXT!,ls_saveasname)//用数据窗口控件自带的函数把数据从文本文档导入到数据窗口FileDelete(ls_saveasname) //文本文档已经没用，删除if i_return <= 0 thenst_2.text='数据导入失败，错误码：' + string(i_return)elsest_2.text='数据已成功导入'end if #PowerBuilder 分享到： 举报 浏览(360) 评论(2) 转载 你可能也喜欢 Teodoru Badiu 3D 插画设计 兔子小姐 [原创]少女的背影 ? Lohmuller Gyuri超现实主义插画。? 山村散记之八 人体与动物 asp中rs.open参数的含义 本文最近访客 wlaren 评论 帮助中心 | 空间客服 | 投诉中心 | 空间协议©2014 Baidu