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...
  • samrtian
  • samrtian
  • 2015年07月14日 13:51
  • 3845

PB读取EXCEL文件

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

powerbuilder操作excel命令大全

1.创建Excel对象    eole=CREATEOBJECT(′Excel.application′)   2.添加新工作簿   eole.Workbooks.add   3.设置第3个工...
  • lzp_lrp
  • lzp_lrp
  • 2015年04月28日 16:39
  • 2983

PB中操作Excel代码示例

1,与EXCEL连接方式: OLEObject ExcelServer  ExcelServer = CREATE OLEObject IF ExcelServer.ConnectToNewObje...
  • Luckeryin
  • Luckeryin
  • 2008年04月06日 07:35
  • 2336

Excel的数据导入到PB的DW中

Excel的数据导入到PB的DW中 //==================================================================== // Event...
  • happymagic
  • happymagic
  • 2016年04月08日 09:56
  • 2523

PB 导入和导出Excel

integer li_rtn,ii,li_asc string ls_name,ls_pathname boolean lb_exist if datawin.RowCount()  MessageB...
  • u012323351
  • u012323351
  • 2016年03月13日 11:16
  • 4304

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

//***************************************************************// // 函数名称: GF_EXCEL_TO_DATAWINDOW...
  • tlammon
  • tlammon
  • 2015年01月02日 00:44
  • 471

[pb]从excel导入数据到datawindow

因为本想帮猫猫做一个工资打印程序的,只是情况太多样了. 做了一半发现无法实现.留下一个excel导入函数,留待以后用. 应该是从哪里看来得.  string   str_savename,named,...
  • leniz
  • leniz
  • 2006年12月18日 13:45
  • 3161

PB读取excel

  • 2008年03月28日 11:16
  • 10KB
  • 下载

pb怎样导入excel

/**********************************************************/     //Function                         ...
  • xch513
  • xch513
  • 2007年09月24日 18:15
  • 3354
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:PB读取EXCEL数据
举报原因:
原因补充:

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