利用粘贴板导入数据

使用OLE连接Excel并导入数据

最新推荐文章于 2017-03-03 19:23:00 发布

原创最新推荐文章于 2017-03-03 19:23:00 发布 · 942 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #string

本文介绍了一种使用OLE对象连接Excel应用的方法，并详细展示了如何通过编程打开指定的Excel文件，将数据复制到剪贴板，再导入到现有应用程序中。此过程包括错误处理，如未安装Excel或未选择文件时的提示。

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()