pb怎样导入excel

最新推荐文章于 2022-06-01 12:39:21 发布
最新推荐文章于 2022-06-01 12:39:21 发布
阅读量4.1k 收藏 1
点赞数 1
文章标签： string excel microsoft exchange date path
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xch513/article/details/1798905
版权

/**********************************************************/  
  //Function                                   :   转换数据到   excel    
  //parm                                           :  
  //                 1.   as_title             :     excel   的标题  
  //return                                       :   1   is   success   and   -1   is   fail  
  //Author                                       :   hzh  
  //date                                           :   2003.12.08  
  //Modifier                                   :  
  //                                             1.   2003.12.10   by   hzh  
  //Reason                                       :  
  //                                             1.   增加对计算列的处理  
  /**********************************************************/  
   
   
  IF   NOT   FileExists(as_excelfile)   THEN  
  MessageBox("数据读入","没有指定的文件")  
  RETURN   1  
  END   IF  
   
  OLEObject   xlapp  
   
  IF   NOT   IsValid(xlApp)   THEN  
  xlApp   =   CREATE   OLEObject  
  END   IF  
   
  IF   xlApp.ConnectToNewObject("Excel.Application"   )   <   0     THEN  
  MessageBox(ga_app.dwmessagetitle,"不能连接   EXCEL   服务器,请检查你的计算机中是   ~r~n   "   +&  
  "否安装了MS   EXCEL   ?   假如安装，请与程序供应商联系   !",QuesTion!)  
          RETURN   -1  
  END   IF  
   
  //增加空文档   (EXCEL   table)  
   
  xlApp.Workbooks.Open(as_excelfile)    
  //xlApp.Application.Visible   =   FALSE  
  xlApp.DisplayAlerts   =   false  
   
   
  //定位到第一格  
   
  Long   l_cnt,l_rows,l_cols  
  Long   l_row,l_i  
   
  Int   i_cnt  
  l_rows   =   30  
  l_cols   =   23  
  Long   l_cno  
   
  String   s_cno,s_temp  
   
  Long   l_newrow  
   
  //一次处理两行  
  DataStore   ds_todb  
  IF   NOT   IsValid(ds_todb)   THEN  
  ds_todb   =   CREATE   DataStore  
  END   IF  
  ds_todb.DataObject   =   "dw_getdatafromexcel"  
  ds_todb.SetTransObject(at_sqlca)  
  FOR   l_cnt   =   2   TO   l_rows   STEP   2  
  Yield()  
  l_row   =   l_cnt  
  s_cno   =   String(xlapp.activeworkbook.activesheet.cells[l_row   -   1,1].value)  
  IF   NOT   IsNumber(s_cno)   THEN   CONTINUE  
  FOR   l_row   =   l_cnt   -   1   TO   l_cnt  
  s_cno   =   xlapp.activeworkbook.activesheet.cells[l_row,1].FormulaR1C1  
  IF   IsNull(s_cno)   OR   s_cno   =   ""   THEN  
  //非新行  
  FOR   l_i   =   4   TO   l_cols   STEP   2  
  s_temp   =   String(Trim(xlapp.activeworkbook.activesheet.cells[l_row,l_i].FormulaR1C1))  
  IF   IsNull(s_temp)   OR   s_temp   =   ""   THEN   CONTINUE  
  i_cnt++  
  ds_todb.SetItem(l_newrow,i_cnt,s_temp)  
  NEXT  
  ELSE  
  //新行开始,清空数组  
  IF   NOT   IsNumber(s_cno)   THEN   CONTINUE  
  l_newrow   =   ds_todb.InsertRow(0)  
  ds_todb.SetItem(l_newrow,1,s_cno)  
   
  //ds_todb.SetItem(l_newrow,2,gnvo_db.uf_todate(Long(xlapp.activeworkbook.activesheet.cells[l_row,2].FormulaR1C1)))  
   
  ds_todb.SetItem(l_newrow,3,   Dec(xlapp.activeworkbook.activesheet.cells[l_row,3].FormulaR1C1))  
  i_cnt   =   3  
  FOR   l_i   =   4   TO   l_cols   STEP   2  
  s_temp   =   String(Trim(xlapp.activeworkbook.activesheet.cells[l_row,l_i].FormulaR1C1))  
  IF   IsNull(s_temp)   OR   s_temp   =   ""   THEN CONTINUE  
  i_cnt++  
  ds_todb.SetItem(l_newrow,i_cnt,s_temp)  
  NEXT  
  END   IF  
  NEXT  
  NEXT  
   
  xlApp.activeworkbook.close(false)  
  xlapp.Application.quit()    
  xlApp.DisConnectObject()  
   
  //xlApp.Application.Workbooks.quit()  
   
  IF   IsValid(xlApp)   THEN  
  DESTROY   xlapp  
  END   IF  
   
  //gnvo_db.uf_closewin("Microsoft   excel")  
   
  IF   ds_todb.Update()   =   1   THEN  
  COMMIT   USING   at_sqlca;  
  MessageBox("导入数据","保存成功")  
  ELSE  
  ROLLBACK   USING   at_sqlca;  
  MessageBox("导入数据","保存失败")  
  END   IF  
   
  IF   IsValid(ds_todb)   THEN  
  DESTROY   ds_todb  
  END   IF  
   
  //FileDelete(as_excelfile)  
   
  RETURN   1  
   
   
 


Is_syspath=space(255)  
  GetCurrentDirectoryA(255,Is_syspath)  
  value=GetFileopenname("请选择要导入BOM的EXECL类型文件!",ls_path,ls_filename,'xls','EXECL   文件(*.xls),*.xls')  
   
  is_filename   =   mid(ls_filename,1,len(ls_filename)   -   4)  
   
  if   value   <>   1   then   没取到、或者取消返回  
  Return   false  
  end   if
Top

7 楼workhand（我可憨了...）回复于 2004-04-16 08:21:24 得分 0 Is_syspath=space(255)  
  GetCurrentDirectoryA(255,Is_syspath)  
  value=GetFileopenname("请选择要导入BOM的EXECL类型文件!",ls_path,ls_filename,'xls','EXECL   文件(*.xls),*.xls')  
   
  is_filename   =   mid(ls_filename,1,len(ls_filename)   -   4)  
   
  if   value   <>   1   then   没取到、或者取消返回  
  Return   false  
  end   if

 

 


第一种方法

OLEObject ExcelServer
long excelok
string str_savename
ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" )
if excelok < 0 then
messagebox("连接excel失败,检查你的系统是否安装了office",string(excelok))
return false
else
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_acton.ImportFile(str_savename)
filedelete(str_savename)
   return true
end if


第二种方法

string ls_title, ls_str

OLEObject xl, xlApp, xlbook, xlsheet
xl = Create OLEObject
st_stat.text = '正在连接...'
int ret = 0
ret = xl.ConnectToObject(is_path, "Excel.Sheet" )  //打开一个已存在的工作表
if ret < 0 then
messagebox("提示","不能打开所选的文件，可能是已被别人打开！")
destroy xl
return
end if

xlApp = xl.Application
xlbook = xlapp.Workbooks[1]
xlsheet = xlbook.Worksheets[1]

//
//
以下是读数据部分, 首先判断有几行数据,前面几个都为空时则数据结束
long ll_i,ll_row,ll_ll
int li_start //从第几行开始是真正的数据

li_start = 4 //从第n行开始是真正的数据
//
do while ((ll_ll < 5) and (ll_i < 3000))
ll_i += 1
ls_str = xlsheet.cells[ ll_i,4 ].text //货物名称
ll_row = ll_i
if ls_str = "" then
ll_ll = 1
ls_str = xlsheet.cells[ ll_i,5 ].text
if ls_str = "" then
ll_ll += 1
ls_str = xlsheet.cells[ ll_i,6 ].text
if ls_str = "" then
ll_ll += 1
ls_str = xlsheet.cells[ ll_i+1,4 ].text
if ls_str = "" then
   ll_ll += 1
ls_str = xlsheet.cells[ ll_i+2, 4 ].text
if ls_str = "" then
ll_ll += 1
end if
end if
end if
end if
end if
loop
//
if ll_row > 2800 then
messagebox("错误","行数太多, 不能导入!")
goto l_exit
end if
//一共有ll_row - start 行

//ls_title = xlsheet.cells[1,1].text   //标题, 这里可能有比较

ls_str = xlsheet.cells[1,2].text //合同号
if ls_str <> is_contractcode then
messagebox( "导入出错","合同号不符,请检查[1,2]单元格" )
st_stat.text = "导入失败, 请退出重来!"
goto l_exit
end if

//ls_str = xlsheet.cells[2,2].text //合同名
//if ls_str <> is_contractname then
// messagebox( "导入出错","合同名不符,请检查[2,2]单元格" )
// st_stat.text = "导入失败, 请退出重来!"
// goto l_exit
//end if

开始导入真正的数据
string ls_temp,ls_find
long l_count,l_temp

if (ll_row - 1) = li_start then
messagebox( "提示","没有数据可导！请检查EXCEL表格后，重来！" )
return
end if

for ll_i = li_start to ll_row - 1
st_stat.text = "正在导入第 " + string( ll_i - li_start + 1 ) + " 行，" + '共有'+ string( ll_row - li_start) + '行'
hpb_1.position = (( ll_i - li_start + 1 ) * 100/(ll_row - li_start))
l_count = dw_2.insertrow( 0 )
dw_2.setrow( l_count )
dw_2.object.f_id[ l_count ] = gf_get_max( 't_goodslist' ) //ID
dw_2.object.f_contractid[ l_count ] = il_contractid //合同ID
//从文件导入部分
dw_2.object.f_period[ l_count ] =      xlsheet.cells[ ll_i, 1].text //期别
dw_2.object.f_mysys[ l_count ]     =   xlsheet.cells[ ll_i, 2].text //系统码
dw_2.object.f_goodscode[ l_count ] = xlsheet.cells[ ll_i, 3].text //货物编码
dw_2.object.f_goodsname[ l_count ] = xlsheet.cells[ ll_i, 4].text //货物名称
dw_2.object.f_specif[ l_count ]    = xlsheet.cells[ ll_i, 5].text //货物规格
dw_2.object.f_parameter[ l_count]  =   xlsheet.cells[ ll_i, 6].text //主要技术参数
dw_2.object.f_factory[ l_count ]   =   xlsheet.cells[ ll_i, 7].text //制造厂

dw_2.object.f_goodstype[ l_count ] = xlsheet.cells[ ll_i, 8].text //货物类别
dw_2.object.f_unit[ l_count ] = xlsheet.cells[ ll_i, 9].text //单位

//数量
ls_str = xlsheet.cells[ ll_i, 10].text
if not isnumber( ls_str ) and ls_str <> '' then
messagebox("错误","第["+ string( ll_i) + ',10]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_quant[ l_count ] = dec(ls_str ) //数量
//出厂价
ls_str = xlsheet.cells[ ll_i, 11].text
if not isnumber( ls_str ) and ls_str<>'' then
messagebox("错误","第["+ string( ll_i) + ',11]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_outprice[ l_count ] = dec(ls_str ) //出厂价
//运输价
ls_str = xlsheet.cells[ ll_i, 12].text
if not isnumber( ls_str )  and ls_str<>'' then
messagebox("错误","第["+ string( ll_i) + ',12]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_transprice[ l_count ] = dec(ls_str ) //运输价
//保险价
ls_str = xlsheet.cells[ ll_i, 13].text
if not isnumber( ls_str ) and ls_str<>'' then
messagebox("错误","第["+ string( ll_i) + ',13]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_guaranteep[ l_count ] = dec(ls_str ) //保险价
//其它价
ls_str = xlsheet.cells[ ll_i, 14].text
if not isnumber( ls_str )  and ls_str<>'' then
messagebox("错误","第["+ string( ll_i) + ',14]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_otherprice[ l_count ] = dec(ls_str ) //其它价
//综合单价
ls_str = xlsheet.cells[ ll_i, 15].text
if not isnumber( ls_str ) and ls_str <> '' then
messagebox("错误","第["+ string( ll_i) + ',15]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_unitprice[ l_count ] = dec(ls_str ) //综合单价
//外币总价
ls_str = xlsheet.cells[ ll_i, 16].text
if not isnumber( ls_str ) and ls_str <> '' then
messagebox("错误","第["+ string( ll_i) + ',16]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_totalprice[ l_count ] = dec(ls_str ) //外币总价
dw_2.object.f_currency[ l_count ] = xlsheet.cells[ ll_i, 17].text //币种
//汇率
ls_str = xlsheet.cells[ ll_i, 18].text
if not isnumber( ls_str ) and ls_str <> '' then
messagebox("错误","第["+ string( ll_i) + ',18]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_exchange[ l_count ] = dec(ls_str ) //汇率
//汇率日期
ls_str = xlsheet.cells[ ll_i, 19].text
if not isdate( ls_str ) and ls_str <> '' then
messagebox("错误","第["+ string( ll_i) + ',19]单元格必须是日期！')
goto l_exit
end if
dw_2.object.f_exchangedate[ l_count ] = datetime(date(ls_str )) //汇率日期
//人民币单价
ls_str = xlsheet.cells[ ll_i, 20].text
if not isnumber( ls_str ) and ls_str <> '' then
messagebox("错误","第["+ string( ll_i) + ',20]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_rmbunitprice[ l_count ] = dec(ls_str ) //人民币单价
//人民币总价
ls_str = xlsheet.cells[ ll_i, 21].text
if not isnumber( ls_str ) and ls_str <> '' then
messagebox("错误","第["+ string( ll_i) + ',21]单元格必须是数字！')
goto l_exit
end if
dw_2.object.f_rmbtotalprice[ l_count ] = dec(ls_str ) //人民币总价
//开始日期
ls_str = xlsheet.cells[ ll_i, 22].text
if not isdate( ls_str ) and ls_str <> '' then
messagebox("错误","第["+ string( ll_i) + ',22]单元格必须是日期！')
goto l_exit
end if
dw_2.object.f_startdate[ l_count ] = datetime(date(ls_str )) //开始日期
//结束日期
ls_str = xlsheet.cells[ ll_i, 23].text
if not isdate( ls_str ) and ls_str <> ''then
messagebox("错误","第["+ string( ll_i) + ',23]单元格必须是日期！')
goto l_exit
end if
dw_2.object.f_enddate[ l_count ] = datetime(date(ls_str )) //结束日期

dw_2.object.f_station[l_count] = xlsheet.cells[ ll_i,24].text //站点
dw_2.object.f_place[l_count] = xlsheet.cells[ ll_i,25].text //安装位置
dw_2.object.f_gaisuan[l_count]= xlsheet.cells[ ll_i,26].text //概算码
dw_2.object.f_memo[l_count]= xlsheet.cells[ ll_i,27].text //备注

//其它信息
dw_2.object.f_stat[l_count] = 0
dw_2.object.f_compquant1[l_count] = 0
dw_2.object.f_compquant2[l_count] = 0
dw_2.object.f_inquant1[l_count] = 0
dw_2.object.f_inquant2[l_count] = 0
dw_2.object.f_payquant[ l_count ] = 0
dw_2.object.f_changestat[ l_count ] = 0
dw_2.object.f_changecount[ l_count ] = 0


next

st_stat.text = '导入成功！请选择[保存]或[取消]。 保存--此次导入数据将提交到数据库中，取消--则不提交！'
cb_ok.of_setenabled( true )


//有错退出, 主要是要释放内存
l_exit:
xl.close()
xl.DisConnectObject()
Destroy xl
//
//return true

//以上的程序是导入某一合同的供货清单其中某一列不能为空，判断文件是否结束的写法有点烦。

 

 

随忆时刻
关注
  • 1
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
pb:导入EXCEL，提示“不能连接EXCEL”
悠闲饭团的博客
11-03 885
regedit中，节点的路径：Computer\HKEY_CLASSES_ROOT\WOW6432Node\CLSID\{00024500-0000-0000-C000-000000000046}\LocalServer32下。因Excel.Application这个组件在注册表中没有正确注册的话，在打开的时候会找不到具体的执行文件时。按LocalServer32的值找不找的到对应的EXCEL.EXE，如找不到，去修改正确的路径。messagebox("提示","不能连接EXCEL")
pb从EXCEL的数据导入数据窗口
悠闲饭团的博客
01-06 1090
pb从EXCEL的数据导入数据窗口
PB如何将数据文本文件中的数据导入数据窗口
08-11
　　　要用什么方法才能将以上数据导入到数据窗口（得动态创建）中，前提条件是以上数据的字段名已知，字段属性得自动生成，而不是指定！
PB EXCEL导入
zhou279818998的专栏
01-11 2659
1.建议Excel里第一行为列标题，第二行为数据，可以用我以前写的这个函数，直接导入到数据窗口中 //function integer gf_importfromexcel (datawindow adw_data) string ls_filename, ls_path integer li_value oleobject ole_excel ole_excel = create oleobje...
pb数据窗口输入问题
tlammon的专栏
02-04 1343
在pb数据窗口新增一行，在一个字段输入一个值之后，在另外一个字段根据条件自动显示一个值，而且用户无法修改，这个怎么实现   在editchange事件下写代码 string ll_barcode,ll_name,ll_price dw_1.AcceptText() for i=1 to dw_1.rowcount ll_barcode=getitemstring(i,"base_bar
PB中导入EXCEL数据.doc
03-14
PB中导入EXCEL数据
PB导入EXCEL文件
clice30145的专栏
12-28 2724
<br />global type gf_import_excel from function_object<br />end type<br />forward prototypes<br />global subroutine gf_import_excel (datawindow idw_dw)<br />end prototypes<br />global subroutine gf_import_excel (datawindow idw_dw);string path,filename<br /
pb怎样导入excel收藏.pdf
11-23
标题 "pb怎样导入excel收藏.pdf" 描述了一个在PowerBuilder (PB)环境中将数据从Excel文件导入的过程。这个过程涉及到创建OLE对象、打开Excel工作簿、处理数据并将其存储到数据存储(DataStore)中，以便进一步操作。...
pb9excel导入
08-17
标题与描述概述的知识点是关于使用PowerBuilder 9（PB9）进行Excel文件导入的过程及其...通过上述分析，我们不仅了解了PB9导入Excel文件的基本流程和关键技术点，也探讨了可能的优化方向，为实际开发提供了有益的指导。
PB中导入EXCEL数据
悠闲饭团的博客
06-01 2052
PB中导入EXCEL数据
excel数据导入到pb窗口
07-21
excel数据导入到pb窗口
一个替换文本文件的PB数据窗口导入例子
04-06
替换文本文件的分隔符，转换为TAB分隔符，导入数据窗口
pb与excel之间导入导出处理.zip
12-06
pb与excel之间导入导出处理.zip
PB导入EXCEL到数据窗口
Love is a symbol of etemity
03-14 1897
string str_savename,named,s_grxh  int excelok,li_net  long  li_count,i    oleobject   excelserver  excelserver=create oleobject excelok=excelserver.connecttonewobject("excel.application")
PB 数据窗口数据导入Excel， 如果存在则追加，不存在则创建。
tlammon的专栏
02-13 855
PB 数据窗口数据导入Excel， 如果存在则追加，不存在则创建。 ［转］ OLEOBJECT ExcelServer,Excelbooks long ll_count ,ll_loop,ll_i,ll_j,ll_cnt,ll_colcount,ll_column,ll_file Integer ExcelOK string ls_value,ls_datatype,
pb 对excel的操作
勤劳的懒猫
05-24 1449
1．创建Excel对象　　eole=CREATEOBJECT(′Excel.application′)　　2．添加新工作簿　　eole.Workbooks.add　　3．设置第3个工作表为激活工作表　　eole.Worksheets(″sheet3″).Activate　　4．打开指定工作簿　　eole.Workbooks.Open(″c://t
pb不通过ole方式读写excel文件,不需要安装office
otnto的专栏
05-07 1204
book.createxls( cxls.TYPE_XLS) // int logoid logoid = book.addpicture( "logo.png") // ////fonts n_tp_xlsfont textfont textfont = book.addfont( ) textfont.setsize( 8) textfont.setname( "微软雅黑") n_tp_...
PowerBuilder Excel文件导入数据窗口
weixin_37914760的博客
06-27 1574
OLEObject adoCn OLEObject adoRs OLEObject adoFld int adUseClient int i int nFieldCount string str adoCn = CREATE OLEObject adoCn.ConnectToNewObject("ADODB.Connection") adoRs = CREATE OLEObject adoF...
pb写入excel是没有效率的做法，变通做法是什么？
chengg0769 平淡无奇见真知
06-10 1759
 pb写入excel是没有效率的做法，变通做法是什么？ 如果pb用ole方法写入的数据量在几千条方可接受。但是写入的行数在万行以上时，特别是栏位特别多的情况下，没有任何效率。（大约一秒只写3-5行。）网上也有方法是说可以把数据先准备好然后paste到excel中。我觉得直接对excel操作非常繁琐，而且栏位定位等都必须很固定，程序写得死死的。没什么意思。 我今天改进了一个做法：
pb excel导入数据窗口
最新发布
11-08
PB( PowerBuilder) 是一款常用的集成开发环境，用于开发数据库应用程序。在PB中，有一个功能可以将Excel表格数据导入到数据窗口中。 首先，我们需要打开PB的开发环境并创建一个数据窗口对象。然后，在数据窗口对象中选择菜单栏的"导入数据"选项。在弹出的窗口中，我们可以选择要导入的Excel文件，并指定要导入的工作表。 接下来，我们可以选择是将整个工作表的数据导入，还是只选取部分数据导入。如果只需要导入部分数据，可以设置导入的起始行和列，以及导入的结束行和列。 在导入数据之前，需要确定数据窗口中已经定义了与Excel表格相匹配的数据结构。如果数据结构不匹配，需要在数据窗口中进行相应的调整，以确保成功导入数据。 导入数据窗口后，PB会自动将Excel中的数据导入到数据窗口中。我们可以在数据窗口中查看导入的数据，并进行相应的操作，如对数据进行增删改查等。 通过PB的Excel导入数据窗口功能，我们可以将Excel中的数据方便地导入到PB的数据窗口中，以便于进行后续的数据处理和应用程序开发。这为我们提供了一个便捷的方式来处理大量的Excel数据，并将其与PB的应用程序集成在一起。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值