powerbuilder当前数据窗口数据从excel文档导入

有个数据窗口,我想通过从外界资源中导入数据,在数据窗口中显示,请问改如何进行代码的编写。写个函数出来最好了。感谢。。... 有个数据窗口,我想通过从外界资源中导入数据,在数据窗口中显示,请问改如何进行代码的编写。写个函数出来最好了。感谢。。 展开
 我来答
hit_lubin
推荐于2016-09-15 · TA获得超过7889个赞
知道大有可为答主
回答量:1554
采纳率:100%
帮助的人:2015万
展开全部
我帮你传一个,这个是直接导入的。还有一种方法,就是逐行逐列读取excel表格,这个方法效率不高,但是有个好处就是excel的数据文件和数据窗口不要求对应,就相当于excel是一个数据窗口,从这里取值,赋值到目标数据窗口一样的操作。如果你需要我也可以帮你写一个例子。
先传一个直接导入的:这种导入要求excel和数据窗口的字段对应。
OLEObject ExcelServer
long excelok
string str_savename
string str_filename

string named
integer value
value = GetFileOpenName("打开文件",str_filename, named, "DOC", &
"文本文件 (*.TXT),*.TXT," &
+ "EXCEL 文件 (*.XLS),*.XLS,"+"EXCEL 文件 (*.XLSX),*.XLSX")
if value = 1 then

ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" )
if excelok < 0 then
messagebox("连接excel失败,检查你的系统是否安装了office",string(excelok))
return
else
dw_1.reset()
ExcelServer.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_1.ImportFile(str_savename)
filedelete(str_savename)
end if
end if
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式