PB从EXCEL中导入数据到数据窗口的程序(1)

最新推荐文章于 2025-05-26 10:41:42 发布

秋高工作室

最新推荐文章于 2025-05-26 10:41:42 发布

阅读量2.6k

点赞数

文章标签： powerbuilder 报表

本文介绍了一个将EXCEL文件导入DATAWINDOW的函数，详细解释了如何通过OLE对象连接到Excel，打开文件并导入数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//***************************************************************//
// 函数名称： GF_EXCEL_TO_DATAWINDOW
// 函数功能： EXCEL文件导入DATAWINDOW
// 参数类型： DWTAWINDOW
// 参数名称： DW
// RETURN ： 1 SUCCEED   -1 ERROR
// DATE    ： 2004 3.1
//***************************************************************//

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.settransobject(sqlca)
dw.reset()
excelserver.workbooks.open(str_savename)
excelserver.activesheet.cells.copy
li_count = dw.importclipboard(2) //导入数据
clipboard("")

excelserver.quit()
excelserver.disconnectobject()
destroy excelserver
return 1
else
messagebox('信息提示','没有指定导入文件!')
return -1
end if