vb msflexgrid单元格合并导出excel问题,急急急!

abc_2004 2008-07-11 03:05:22
本人在开发报表时遇到一个问题.
VB6.0+SQL2000
----------------------------------------------
MSFLEXGRID显示如下:
----------------------------------------------
名称 |项目 | 数量 |
-----------------------------------------------
|123 | 50
-----------------------------------------
1 |1234 | 10
-----------------------------------------
|12345 | 70
-----------------------------------------------
|123 | 20
-----------------------------------------
2 |1234 | 30
-----------------------------------------
|12345 | 40
-----------------------------------------------
|123 | 50
-----------------------------------------
3 |1234 | 60
-----------------------------------------
|12345 | 70
-----------------------------------------------
现在我想实现的是导出excel时也能实现名称这列相同数据的合并,现在遇到的最大问题是数据是动态的.不过项目这一项是固定三行.请问各位大侠帮忙.谢谢!
...全文
233 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
abc_2004 2008-07-12
经自已努力问题解决了,谢谢各位大侠关注.
With excelApp
Dim nRow%, nCount%, nNum%
nRow = 7'从B列的第几行开始
Do
.DisplayAlerts = False'关闭提示
nCount = excelApp.WorksheetFunction.CountIf(.Range("b:b"), .Range("b" & nRow))
.Range("b" & nRow & ":b" & nRow + nCount - 1).Merge
nRow = nRow + nCount
Loop Until .Range("b" & nRow) = ""
End With
实现功能MSFLEXGRID导出excel,B列中所有相同的内容合并,并且不提示(选定区域包含多重数值.合并到一个单元格后只能保留最左上角的数据)的提示.
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2008-07-11 03:05
社区公告
暂无公告