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时也能实现名称这列相同数据的合并,现在遇到的最大问题是数据是动态的.不过项目这一项是固定三行.请问各位大侠帮忙.谢谢!
...全文
347 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
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列中所有相同的内容合并,并且不提示(选定区域包含多重数值.合并到一个单元格后只能保留最左上角的数据)的提示.

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧