Question

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

有个数据窗口，我想通过从外界资源中导入数据，在数据窗口中显示，请问改如何进行代码的编写。写个函数出来最好了。感谢。。

Answer 1

我帮你传一个，这个是直接导入的。还有一种方法，就是逐行逐列读取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