pb9实现在两个工作簿之间进行工作表复制

最新推荐文章于 2021-09-01 15:31:07 发布
最新推荐文章于 2021-09-01 15:31:07 发布
阅读量1.4k 收藏 1
点赞数
文章标签： powerbuilder 报表
 下面的函数f_excel_hb，可以实现“ 将工作簿filename_s中的工作表sheetname_s以新的工作表名称sheetname_t，复制到工作簿filename_t的最后”
[cpp] view plain copy print ?
  1. public function boolean f_excel_hb (string filename_s, string filename_t, string sheetname_s, string sheetname_t);
  2. //==========================================================
  3. // 合并两个工作簿中的某个工作表
  4. //==========================================================
  5. // 作者：yyoinge 2011-10-12 18:00
  6. //==========================================================
  7. // 将工作簿filename_s中的工作表sheetname_s以新的
  8. // 工作表名称sheetname_t，复制到工作簿filename_t的最后
  9. //==========================================================
  10. if not fileexists(filename_s) then
  11. messagebox('','工作簿【' + filename_s + '】（源）不存在')
  12. return false
  13. end if
  14. if not fileexists(filename_t) then
  15. messagebox('','工作簿【' + filename_t + '】（目标）不存在')
  16. return false
  17. end if
  18. long ll_val
  19. //声明ole对象
  20. oleobject ole_object_s
  21. //创建ole对象
  22. ole_object_s=create oleobject
  23. //连接到excel
  24. ll_val = ole_object_s.connecttonewobject("excel.application")
  25. if ll_val <> 0 then
  26. messagebox('','ole无法连接Excel!')
  27. goto error
  28. end if
  29. //打开源和目标工作簿
  30. ole_object_s.workbooks.open(filename_s)
  31. ole_object_s.workbooks.open(filename_t)
  32. string ls_t
  33. ls_t = filename_t
  34. filename_s = of_splitpath(filename_s, 2)
  35. filename_t = of_splitpath(filename_t, 2)
  36. //隐藏excel
  37. ole_object_s.visible = false
  38. ole_object_s.displayalerts = false
  39. int n,t
  40. int li
  41. boolean isexists=false
  42. oleobject lworksheet
  43. //判断源工作簿中的工作表是否存在
  44. try
  45. lworksheet = ole_object_s.Workbooks(filename_s).sheets(sheetname_s)
  46. isexists = true
  47. catch( oleruntimeerror er)
  48. isexists = false
  49. end try
  50. if isexists=false then
  51. messagebox('','工作簿【' + filename_s + '】中工作表不存在工作表[' + sheetname_s + ']')
  52. goto error
  53. end if
  54. //当目标工作簿中存在sheet名为sheetname_t的工作表时，为sheetname_t增加后缀(1)，然后再重复进行判断，直到表名不存在
  55. isexists = true
  56. do while isexists
  57. try
  58. lworksheet = ole_object_s.Workbooks(filename_t).sheets(sheetname_t)
  59. isexists = true
  60. sheetname_t += '(1)'
  61. catch( oleruntimeerror er1)
  62. isexists = false
  63. end try
  64. loop
  65. //进行工作表合并（移到目标工作簿的最后）
  66. //int li
  67. setnull(li)
  68. ole_object_s.workbooks(filename_s).Sheets(sheetname_s).copy(li, ole_object_s.workbooks(filename_t).Sheets(long(ole_object_s.workbooks(filename_t).Sheets.count)))
  69. //重命名工作表
  70. ole_object_s.workbooks(filename_t).sheets(long(ole_object_s.workbooks(filename_t).Sheets.count)).name = sheetname_t
  71. //保存目标工作簿
  72. isexists = true
  73. //ole_object_s.visible = true
  74. //ole_object_s.displayalerts = true
  75. //messagebox('', '')
  76. try
  77. ole_object_s.workbooks(filename_t).save()
  78. catch( oleruntimeerror er2)
  79. messagebox('提示', '无法保存工作簿【' + filename_t + '】')
  80. isexists = false
  81. end try
  82. if not isexists then goto error
  83. //关闭工作簿
  84. ole_object_s.workbooks(filename_s).close
  85. ole_object_s.workbooks(filename_t).close
  86. //退出excel
  87. ole_object_s.workbooks.close
  88. ole_object_s.Application.quit();
  89. //断开连接
  90. ole_object_s.disconnectobject();
  91. //注销ole对象
  92. destroy ole_object_s;
  93. return true
  94. error:
  95. ole_object_s.workbooks(filename_s).close
  96. ole_object_s.workbooks(filename_t).close
  97. ole_object_s.workbooks.close
  98. ole_object_s.Application.quit();
  99. ole_object_s.disconnectobject();
  100. destroy ole_object_s;
  101. return false
  104. end function 
public function boolean f_excel_hb (string filename_s, string filename_t, string sheetname_s, string sheetname_t);
//==========================================================
//	合并两个工作簿中的某个工作表 
//==========================================================
//	作者：yyoinge 2011-10-12 18:00
//==========================================================
//	将工作簿filename_s中的工作表sheetname_s以新的
//	工作表名称sheetname_t，复制到工作簿filename_t的最后
//==========================================================
if not fileexists(filename_s) then
    messagebox('','工作簿【' + filename_s + '】（源）不存在')
    return false
end if
if not fileexists(filename_t) then
    messagebox('','工作簿【' + filename_t + '】（目标）不存在')
    return false
end if
long ll_val
//声明ole对象
oleobject ole_object_s
//创建ole对象
ole_object_s=create oleobject
//连接到excel
ll_val = ole_object_s.connecttonewobject("excel.application")
if ll_val <> 0 then
    messagebox('','ole无法连接Excel!')
    goto error
end if
//打开源和目标工作簿
ole_object_s.workbooks.open(filename_s)
ole_object_s.workbooks.open(filename_t)
string ls_t
ls_t = filename_t
filename_s = of_splitpath(filename_s, 2)
filename_t = of_splitpath(filename_t, 2)
//隐藏excel
ole_object_s.visible = false
ole_object_s.displayalerts = false
int n,t
int li
boolean isexists=false
oleobject lworksheet
//判断源工作簿中的工作表是否存在
try   
	lworksheet =  ole_object_s.Workbooks(filename_s).sheets(sheetname_s)
	isexists = true
catch( oleruntimeerror   er) 
	isexists = false
end try 
if isexists=false then
    messagebox('','工作簿【' + filename_s + '】中工作表不存在工作表[' + sheetname_s + ']')
    goto error
end if
//当目标工作簿中存在sheet名为sheetname_t的工作表时，为sheetname_t增加后缀(1)，然后再重复进行判断，直到表名不存在
isexists = true
do while isexists
	try   
		lworksheet =  ole_object_s.Workbooks(filename_t).sheets(sheetname_t)
		isexists = true
		sheetname_t += '(1)'
	catch( oleruntimeerror   er1) 
		isexists = false
	end try 
loop
//进行工作表合并（移到目标工作簿的最后）
//int li
setnull(li)
ole_object_s.workbooks(filename_s).Sheets(sheetname_s).copy(li, ole_object_s.workbooks(filename_t).Sheets(long(ole_object_s.workbooks(filename_t).Sheets.count)))
//重命名工作表
ole_object_s.workbooks(filename_t).sheets(long(ole_object_s.workbooks(filename_t).Sheets.count)).name = sheetname_t
//保存目标工作簿
isexists = true
//ole_object_s.visible = true
//ole_object_s.displayalerts = true
//messagebox('', '')
try
	ole_object_s.workbooks(filename_t).save()
catch( oleruntimeerror   er2)
	messagebox('提示', '无法保存工作簿【' + filename_t + '】')
	isexists = false
end try
if not isexists then goto error
//关闭工作簿
ole_object_s.workbooks(filename_s).close
ole_object_s.workbooks(filename_t).close
//退出excel
ole_object_s.workbooks.close
ole_object_s.Application.quit();
//断开连接
ole_object_s.disconnectobject();
//注销ole对象
destroy ole_object_s;
return true
error:
ole_object_s.workbooks(filename_s).close
ole_object_s.workbooks(filename_t).close
ole_object_s.workbooks.close
ole_object_s.Application.quit();
ole_object_s.disconnectobject();
destroy ole_object_s;
return false


end function

其中用到的一个路径分割函数of_splitpath如下：
[cpp] view plain copy print ?
  1. public function string of_splitpath (string as, integer ai);//==========================================================
  2. // 分割文件名
  3. // ai: 1返回路径，2返回文件名(带后缀名)，32返回文件名(不带后缀名)
  4. //==========================================================
  5. // 作者：yyoinge 2011-10-12 18:00
  6. //==========================================================
  8. choose case ai
  9. case 1
  10. if posw(as, '.') = 0 then return as
  11. return leftw(as,lenw(as) - posw(reverse(as), '\') + 1)
  12. case 2
  13. if posw(as, '\') = 0 then return as
  14. return rightw(as,posw(reverse(as), '\') - 1)
  15. case 3
  16. if posw(as, '\') > 0 then as = rightw(as,posw(reverse(as), '\') - 1)
  17. return leftw(as, lastpos(as, '.') - 1)
  18. case else
  19. return as
  20. end choose
  21. end function 
public function string of_splitpath (string as, integer ai);//==========================================================
//	分割文件名
// ai:	1返回路径，2返回文件名(带后缀名)，32返回文件名(不带后缀名)
//==========================================================
//	作者：yyoinge 2011-10-12 18:00
//==========================================================

choose case ai
	case 1 
		if posw(as, '.') = 0 then return as
		return leftw(as,lenw(as) - posw(reverse(as), '\') + 1)
	case 2 
		if posw(as, '\') = 0 then return as
		return rightw(as,posw(reverse(as), '\') - 1)
	case 3 
		if posw(as, '\') > 0 then as = rightw(as,posw(reverse(as), '\') - 1)
		return leftw(as, lastpos(as, '.') - 1)
	case else
		return as
end choose
end function

pb复制excel工作表的功能，可以帮助我们实现：将1个数据窗口导出到1个excel工作簿的多个工作表sheet中。实现的步骤大致如下：
（1）将datawindow的数据，按照平均行数（每个sheet中需要保存的行数），依次复制到临时的datastore中。如：将1个有10行数据的datawindow，导出为每个sheet包含3行数据的多sheet工作簿，则需要依次将1-3行、4-6行、7-9行、10至10行分别复制到临时的datastore中。
（2）然后将datastore中的数据saveas导出为单个单sheet的excel文件。
（3）将第2次开始导出的excel文件（也就是上述例子中的4-6行开始的excel文件），依次合并到第1次导出的excel文件（1-3行）中，并删除导出的excel文件（1-3行对应的文件暂时不删除）。
（4）待所有数据都导出，并复制到第1次导出的excel文件后，将第1次导出的excel文件改名并复制目标导出路径上，然后删除第1次导出的excel文件。

具体源码可以参照 PB9将数据窗口导出到一个EXCEL文件的多个工作表中 。

该源码使用的是从后到前的导出方法，也就是先导出10-10行，然后导出7-9行。。。最后导出1-3行，因为在该源码中，复制工作表时使用的方法是：

[cpp] view plain copy print ?
  1. ole_object_s.workbooks(filename_s).Sheets(sheetname_s).copy(ole_object_s.workbooks(filename_t).Sheets(1) //将源工作表复制到目标工作簿的第1个工作表前面 
ole_object_s.workbooks(filename_s).Sheets(sheetname_s).copy(ole_object_s.workbooks(filename_t).Sheets(1) //将源工作表复制到目标工作簿的第1个工作表前面

而上述函数复制工作表的方法为：
[cpp] view plain copy print ?
  1. int li
  2. setnull(li)
  3. ole_object_s.workbooks(filename_s).Sheets(sheetname_s).copy(li, ole_object_s.workbooks(filename_t).Sheets(long(ole_object_s.workbooks(filename_t).Sheets.count))) //将源工作表复制到目标工作簿的最后1个工作表后面 
int li
setnull(li)
ole_object_s.workbooks(filename_s).Sheets(sheetname_s).copy(li, ole_object_s.workbooks(filename_t).Sheets(long(ole_object_s.workbooks(filename_t).Sheets.count)))	//将源工作表复制到目标工作簿的最后1个工作表后面

这边需要对copy方法进行说明，在VBA中，工作表复制的写法为：
[cpp] view plain copy print ?
  1. Sheets("工作表名称").Copy Before := Sheets(1) //将工作表“工作表名称”复制到第1个工作表前面
  2. Sheets("工作表名称").Copy After := Sheets(1) //将工作表“工作表名称”复制到第1个工作表后面 
Sheets("工作表名称").Copy Before := Sheets(1) //将工作表“工作表名称”复制到第1个工作表前面
Sheets("工作表名称").Copy After := Sheets(1)  //将工作表“工作表名称”复制到第1个工作表后面


而在pb中对应的写法为：
[cpp] view plain copy print ?
  1. int li setnull(li)
  2. Sheets("工作表名称").Copy(Sheets(1), li) //将工作表“工作表名称”复制到第1个工作表前面
  3. Sheets("工作表名称").Copy(li, Sheets(1)) //将工作表“工作表名称”复制到第1个工作表后面 
int li setnull(li)
Sheets("工作表名称").Copy(Sheets(1), li) //将工作表“工作表名称”复制到第1个工作表前面
Sheets("工作表名称").Copy(li, Sheets(1)) //将工作表“工作表名称”复制到第1个工作表后面




[cpp] view plain copy print ?
  1. <div style="top: 1694px;"><pre style="margin: 4px 0px; background-color: rgb(240, 240, 240);" class="cpp" name="code"><pre></pre>
  2. <pre></pre>
  3. <div></div>
  4. <pre></pre>
  5. <pre></pre>
  6. <div></div>
  7. <pre></pre>
  8. <pre></pre>
  9. <div></div>
  10. <pre></pre>
  11. <pre></pre>
  12. <div></div>
  13. <pre></pre>
  15. </pre></div>
  20. <!-- Baidu Button BEGIN -->
  22. <div style="float: right;" class="bdsharebuttonbox bdshare-button-style0-16" data-bd-bind="1422070586745">
  23. <a style='background-image: url("http://bdimg.share.baidu.com/static/api/img/share/icons_0_16.png?v=d754dcc0.png") !important;' class="bds_more" href="#" data-cmd="more"></a>
  24. <a style="background-position: 0px -52px !important;" class="bds_qzone" title="分享到QQ空间" href="#" data-cmd="qzone"></a>
  25. <a style="background-position: 0px -104px !important;" class="bds_tsina" title="分享到新浪微博" href="#" data-cmd="tsina"></a>
  26. <a style="background-position: 0px -260px !important;" class="bds_tqq" title="分享到腾讯微博" href="#" data-cmd="tqq"></a>
  27. <a style="background-position: 0px -208px !important;" class="bds_renren" title="分享到人人网" href="#" data-cmd="renren"></a>
  28. <a style="background-position: 0px -1612px !important;" class="bds_weixin" title="分享到微信" href="#" data-cmd="weixin"></a>
  29. </div>
  30. <script>window._bd_share_config = { "common": { "bdSnsKey": {}, "bdText": "", "bdMini": "1", "bdMiniList": false, "bdPic": "", "bdStyle": "0", "bdSize": "16" }, "share": {} }; with (document) 0[(getElementsByTagName('head')[0] || body).appendChild(createElement('script')).src = 'http://bdimg.share.baidu.com/static/api/js/share.js?v=89860593.js?cdnversion=' + ~(-new Date() / 36e5)];</script>
  31. <!-- Baidu Button END -->
  33. <!--192.168.100.35-->
  34. <ul class="article_next_prev">
  35. <li class="prev_article"><span οnclick="_gaq.push(['_trackEvent','function', 'onclick', 'blog_articles_shangyipian']);location.href='/yyoinge/article/details/6936598';">上一篇</span><a οnclick="_gaq.push(['_trackEvent','function', 'onclick', 'blog_articles_shangyipian'])" href="/yyoinge/article/details/6936598">与MSSQL的dateadd函数功能一致的pb加强版时间函数：f_dateadd</a></li>
  36. <li class="next_article"><span οnclick="_gaq.push(['_trackEvent','function', 'onclick', 'blog_articles_xiayipian']);location.href='/yyoinge/article/details/7267592';">下一篇</span><a οnclick="_gaq.push(['_trackEvent','function', 'onclick', 'blog_articles_xiayipian'])" href="/yyoinge/article/details/7267592">PB9写的一个拆解SQL语句的通用函数</a></li>
  37. </ul>
  39. <!-- Baidu Button BEGIN -->
  40. <script id="bdshare_js" type="text/javascript" src="http://bdimg.share.baidu.com/static/js/bds_s_v2.js?cdnversion=395020" data="type=tools&uid=1536434"></script>
  42. <script type="text/javascript">
  43. document.getElementById("bdshell_js").src = "http://bdimg.share.baidu.com/static/js/shell_v2.js?cdnversion=" + Math.ceil(new Date()/3600000)
  44. </script>
  45. <!-- Baidu Button END -->
  48. <div id="digg" ArticleId="6942254">
  49. <dl id="btnDigg" class="digg digg_enable">
  50. <dt οnclick="_gaq.push(['_trackEvent','function', 'onclick', 'blog_articles_ding'])">顶</dt>
  51. <dd>3</dd>
  52. </dl>
  53. <dl id="btnBury" class="digg digg_enable">
  54. <dt οnclick="_gaq.push(['_trackEvent','function', 'onclick', 'blog_articles_cai'])">踩</dt>
  55. <dd>0</dd>
  56. </dl>
  57. </div>
秋高工作室
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
PB9.0 窗体复制
赵崇
03-03 4857
自学考试毕业设计，使用PB9.0做一个管理信息系统。     在做毕业设计之前，需要去实现书上的一个简单的学生管理系统。     之前从没有接触过PB，使用的一段时间。     除了感觉语法类似外，就是开发环境的问题了。用惯了VS之后，感觉非常不智能。   现在说一下，pb程序的构成，     *.pbw是pb的可执行文件。     *.pbl是pb文件内结构文件的库。
PB9操作Excel和Word源代码
12-13
在本主题中，我们将深入探讨如何使用PB9来操作Microsoft Office中的Excel和Word，以便进行数据处理和文档编辑。 首先，让我们关注Excel的操作。在PB9中，可以使用ADO（ActiveX Data Objects）或OLE自动化技术来与...
PB9将数据窗口导出到一个EXCEL文件的多个工作表中
10-12
PB9将数据窗口导出到一个EXCEL文件的多个工作表中
PB datastore复制数据
tlammon的专栏
10-17 563
$PBExportHeader$gf_ds_rowscopy.srf global type gf_ds_rowscopy from function_object end type forward prototypes global function integer gf_ds_rowscopy (datastore adw_sur, datastore adw_tar, ref string as_ret) end prototypes global function integer gf_d.
pb操作Excel文件多个sheet（留存备查）
tlammon的专栏
02-16 2309
oleobject lole_export lole_export = create oleobject lole_export.ConnectToNewObject('excel.application') lole_export.Workbooks.add() ll_count = lole_export.workbooks(1).worksheets.count lds_ar
pb 双击排序，电子文档导出代码
10-18
在PB（PowerBuilder）开发环境中，"pb 双击排序，电子文档导出代码"涉及到的是用户界面交互和数据管理的两个关键功能：表格控件的双击排序以及数据的导出操作。以下是对这两个知识点的详细解释： 1. **双击排序**：...
pb学习文档
12-31
在上述内容中，我们看到了两个关键的知识点：1) 定义Excel中的名称区域，以及2) 使用PB进行Excel文件的导入操作。 首先，关于在Excel中定义名称区域，这是一个方便管理和引用工作表中特定数据块的方法。在描述中...
pb与excel间通讯技术研究
06-28
- **创建工作簿**：在Excel中创建一个新的工作簿，并设置为可见状态。 - **数据导入**：将PowerBuilder数据窗口中检索到的数据发送到Excel的工作表中。 - **处理完毕后断开连接**：数据处理完成后，断开与Excel的...
PB数据窗口导出Excel
09-04
PB数据窗口导出Excel的PBL,PB9版本,所见即所得,非常好用,只需要调用一个函数即可!
pb datawidow如何选中某个窗口并复制_如何在Mac上复制和粘贴
weixin_39743603的博客
01-18 566
mac金币小编教您如何在Mac计算机上复制和粘贴文本或文件。尽管Mac的内置菜单栏是复制和粘贴信息的首选方式，但是您也可以使用Mac的触控板或键盘进行复制和粘贴。方法1使用菜单栏1.转到要复制的文本或项目。您可以复制文本以将其粘贴到另一文档或文本字段中，也可以复制一个或多个文件以将其粘贴到计算机上的另一位置。2.选择文本或项目。要选择文本，请在其上单击并拖动鼠标以使其突出显示。您可以通过单击一次来...
PB 各种小技巧(五)
duanwenzhi00的专栏
05-31 1883
1.pb9应用xp风格 将PB9升级到7119后,编译时有一个 New Visual Style Controls 选项,选中后,编译出来的文件在XP下就可以应用XP风格了 2.Yield()函数的作用 Yield()是一个不常用到的PowerBuilder函数。可是，在一个大的循环过程中，如果用户想在执行到一半时通过单击按钮或菜单来退出的话，就一定要用到Yield()函数了，否则程序只会在
PB 数据窗口数据导出EXCEL
nzdwancgb的博客
09-01 1854
string ls_filename,ls_name,ls_docname long ll_value //打开另存为输入框 ll_value = GetFileSaveName("文件另存为",ls_docname,ls_name, "XLS","Excel Files (*.XLS),*.XLS") IF ll_value = 1 THEN ls_filename = trim(ls_name) END IF if ls_filename='' then return //dw_1数据窗口的.
PB 操作EXCEL表的方法
热门推荐
学无止境! 无休无止!
07-14 1万+
PB中操作Excel的技巧集一 创建Excel对象 　eole=CREATEOBJECT("Excel.application")  2．添加新工作簿  　eole.Workbooks.add  3．设置第3个工作表为激活工作表  　eole.Worksheets("sheet3").Activate 4．打开指定工作簿       eole.Workbooks.Open("c:\
pb9 数据窗口转电子表格_如何在Excel 2019中创建数据列表
weixin_39892311的博客
12-06 262
1、设定清单在Excel中创建下拉列表之前，需要使用数据列表。由于您可以在一个Excel工作簿中制作多个工作表，因此大多数人使用单独的工作表来填充数据列表。然后，您可以在Excel表单中配置任何特定的单元格以指向此数据列表。然后，将单元格设置为列表，Excel会为您完成其余的工作。您不必使用单独的工作表即可填充数据列表。您可以使用相同的工作表，甚至可以使用单独的工作簿。您可以使用单独的工作簿，但是...
PB 批量复制列
PB瓦工
10-09 381
datawindow 批量复制列 long i dw_2.setredraw(false) for i=1 to dw_1.rowcount() dw_2.insertrow(0) next dwobject dwo_a,dwo_b dwo_a=dw_1.Object.__get_attribute('a25',False) dwo_b=dw_2.Object.__get_attrib...
控制多个datawindow数据合并成一个excel导出【PB】
wsyangzuda的专栏
02-14 3104
最近项目需要，需要把多个datawindow的数据合并成一个excel导出。本地项目没有其他代码借鉴，自己接触PB顶多3个月时间，而网上关于PB的消息少之又少。前些日子在powerbuilder论坛发个帖子求组，幸运得到powerbuilder版主和一位热心网友提示，通过自己不断地coding and debug， 我想要的效果终于得到了，:-) 现在我把源码贡献出来，大家一起学习，欢迎
AVR单片机实现的电容表设计与工作原理
"该资源是关于使用AVR单片机制作电容表的教程，主要介绍了如何利用AVR单片机AT90S2313构建一个能够测量微小到大容量电容的数显直读式电容表。这份文档详细阐述了硬件电路设计、工作原理以及程序实现，适合电子爱好者...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值