使用PB合并Excel中重复单元格

最新推荐文章于 2020-11-22 12:15:14 发布

原创

最新推荐文章于 2020-11-22 12:15:14 发布 · 2.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #string #数据库 #文档 #工作 #c

这篇博客介绍如何利用PowerBuilder（PB）编写代码，将Excel中上下行相同的数据进行合并单元格处理。作者提供了详细的代码示例，涉及 OleObject 对象用于连接和操作 Excel，通过遍历指定列并判断值是否相同来实现合并。代码中包含关键参数如需合并的列、行数和起始行，并提到可扩展性，如添加进度条显示合并进度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

从数据库或PB中到处的数据到Excel中后，为了便于阅读，通常希望把某些列的上下行相同的数据合并单元格，查看Excel中好像没有此功能，于是通过PB来完成了该需求。
如下代码：

String docname,named
String current_dir
Integer i,j
String ls_colums[] = {"A","B","C"}    //待合并的列
String ls_values[]
String ls_value,ls_range
Long ll_row_prior[]
Long ll_row
Long ll_rowcount = 986    //Excel中的有效行数
Long ll_start_row = 1    //开始行数，2可表示为由标题行
//================================================================================
//选择文件
current_dir = GetCurrentDirectory()
j = GetFileOpenName("文件选择",docname,named,"xls","Excel文档 (*.xls), *.xls")
ChangeDirectory(current_dir)
If j <> 1 Then Return -1

pointer oldpointer
oldpointer = SetPointer(HourGlass!)

//初始化2个数组
For i = 1 To UpperBound(ls_colums)
    ls_values[i] = ""
    ll_row_prior[i] = 0
Next

//使用ole向excel中倒入数据
OleOb