PB读取EXCEL数据

转载 2006年06月19日 11:38:00

//***************************************************************//
// 函数名称: 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

相关文章推荐

PB 操作EXCEL表的方法

PB中操作Excel的技巧集一 创建Excel对象  eole=CREATEOBJECT("Excel.application")  2.添加新工作簿   eole.Workbooks.add...

PB读取EXCEL文件

string path_name,file_name if GetFileOpenName( "选择导入的文件... ", path_name, file_name, "XLS ", "Excel ...
  • javaxi
  • javaxi
  • 2011年02月09日 17:03
  • 3345

[PB]转载excel操作大全

转载excel操作大全: powerbuilder操作excel命令大全(例子的有些地方不对!) 2006-12-04 16:43 1.创建Excel对象   eole=CREATEOBJE...
  • tlammon
  • tlammon
  • 2015年01月16日 10:07
  • 1235

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

PB中操作Excel代码示例

1,与EXCEL连接方式: OLEObject ExcelServer  ExcelServer = CREATE OLEObject IF ExcelServer.ConnectToNewObje...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

PB导入Excel

long ll_excelok,ll_rtn,ll_rowcount,ll_row string ls_emp_no,ls_emp_name,ls_emp_sex,ls_emp_age,ls_emp...
  • sunfor
  • sunfor
  • 2012年03月17日 15:24
  • 3946

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

pb连接EXCEL

oleobject loo_excel,loo_sheet   loo_excel = create oleobject if loo_excel.ConnectToNewObjec...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:PB读取EXCEL数据
举报原因:
原因补充:

(最多只允许输入30个字)