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

 

分类： PB技巧 datawindow技巧 ole/com相关 2011-11-07 10:03  347人阅读  评论(1)  收藏  举报

        下面的函数f_excel_hb，可以实现“将工作簿filename_s中的工作表sheetname_s以新的工作表名称sheetname_t，复制到工作簿filename_t的最后”

[cpp]  view plain copy

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  
102.   
103.   
104. end function  

    其中用到的一个路径分割函数of_splitpath如下：

[cpp]  view plain copy

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. //==========================================================  
7.   
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  

    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

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

    而上述函数复制工作表的方法为： 

[cpp]  view plain copy

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个工作表后面  

    这边需要对copy方法进行说明，在VBA中，工作表复制的写法为：

[cpp]  view plain copy

1. Sheets("工作表名称").Copy Before := Sheets(1) //将工作表“工作表名称”复制到第1个工作表前面  
2. Sheets("工作表名称").Copy After := Sheets(1)  //将工作表“工作表名称”复制到第1个工作表后面  

    而在pb中对应的写法为： 

[cpp]  view plain copy

1. int li setnull(li)  
2. Sheets("工作表名称").Copy(Sheets(1), li) //将工作表“工作表名称”复制到第1个工作表前面  
3. Sheets("工作表名称").Copy(li, Sheets(1)) //将工作表“工作表名称”复制到第1个工作表后面  

[cpp]  view plain copy

1. <div style="TOP: 1694px"><pre class="cpp" style="MARGIN: 4px 0px; BACKGROUND-COLOR: rgb(240,240,240)" 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>  
14.   
15. </pre></div>  
16. <div class="share_buttons" id="sharePanel"><span>分享到：</span> <a name="sina" class="share_sina" title="分享到新浪微博"></a><a name="qq" class="share_qq" title="分享到腾讯微博"></a></div>  
17. <!--192.168.1.236-->  
18. <div class="article_next_prev">  
19.     <li class="prev_article"><span>上一篇：</span><a href="/yyoinge/article/details/6936598">与MSSQL的dateadd函数功能一致的pb加强版时间函数：f_dateadd</a></li>  
20.     <li class="next_article"><span>下一篇：</span><a href="/yyoinge/article/details/7267592">PB9写的一个拆解SQL语句的通用函数</a></li>  
21. </div>  
22.   
23.   
24.             <div id="digg" articleid="6942254">  
25.             <dl id="btnDigg" class="digg digg_enable">  
26.                 <dt>顶</dt>  
27.                 <dd>3</dd>  
28.             </dl>  
29.             <dl id="btnBury" class="digg digg_enable">  
30.                 <dt>踩</dt>  
31.                 <dd>0</dd>  
32.             </dl>  
33.         </div>