本人在开发报表时遇到一个问题.
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时也能实现名称这列相同数据的合并,现在遇到的最大问题是数据是动态的.不过项目这一项是固定三行.请问各位大侠帮忙.谢谢!
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时也能实现名称这列相同数据的合并,现在遇到的最大问题是数据是动态的.不过项目这一项是固定三行.请问各位大侠帮忙.谢谢!
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列中所有相同的内容合并,并且不提示(选定区域包含多重数值.合并到一个单元格后只能保留最左上角的数据)的提示.