1187
社区成员
- 全部
vb msflexgrid单元格合并导出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时也能实现名称这列相同数据的合并,现在遇到的最大问题是数据是动态的.不过项目这一项是固定三行.请问各位大侠帮忙.谢谢!
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时也能实现名称这列相同数据的合并,现在遇到的最大问题是数据是动态的.不过项目这一项是固定三行.请问各位大侠帮忙.谢谢!
...全文
当前发帖距今超过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列中所有相同的内容合并,并且不提示(选定区域包含多重数值.合并到一个单元格后只能保留最左上角的数据)的提示.
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列中所有相同的内容合并,并且不提示(选定区域包含多重数值.合并到一个单元格后只能保留最左上角的数据)的提示.
如何将MSFlexGrid表格数据导出为Excel Public Function ExportToExcel(msflexgrid As msflexgrid) Dim xlapp As Excel.Application '定义excel类 Dim xlbook As Excel.Workbook '定义工作簿类 Dim xlsheet As Excel.Worksheet '定义工...
VB中如何将msflexgrid控件中的数据导成Excel 在机房收费系统中,其中有一个功能是:将Msflexgrid控件中的数据导入到excel中,经过几天的奋战,连查带改,现在提供一种方法,仅供参考: 实现这个功能,首先需先在工程中”引用”MrcrosoftExcel xx Object Library”,然后...
VB MSFlexGrid 单元格合并问题，求解！！！！！ msFlexGrid1.TextMatrix(0, 2) = "kk" msFlexGrid1.TextMatrix(0, 3) = "kk" msFlexGrid1.MergeCells= flexMergeRestrictColumns msFlexGrid1.MergeCol(3) = True 因为2，3列相同，固想合并单元格,在网上查资料很多...
求VB大神协助！将VB界面的MSFlexGrid中的数据导出到Excel指定的单元格 执行结果都是数据导出失败，有没有大神帮忙看看应该怎么改动呢？ Public Function ExporttoExcel(flex As MSFlexGrid) On Error GoTo ErrHandler Dim xlApp As Object Dim xlBook As Object Dim Rows As Integer, ...
vb msflexgrid MSFlexGrid控件显示和操作表格数据。其对包含字符串和图片的表格提供了灵活的排序、插入数据和格式编排功能。当与Data控件绑定时，MSFlexGrid控件只显示只读数据
vb用数组方式快速导出MSFlexGrid表格数据到Excel表格中 本来从MSFlexGrid或MSHFlexGrid导出数据到Excel中，是一个非常简单的问题，但论坛里还是经常有人问如何导出，有的虽然知道用单元格赋值方式循环导出，但速度太慢，因此写了一个通用的数据导出函数，由于以数组方式一...
VB MSFlexGrid网格控件数据绑定方法 代码实例.rar VB MSFlexGrid网格控件绑定Combox,Check,ListBox等窗体常用元素的实例,利用MSFlexGrid做的单元格输入示例,演示如何在MSFlexGrid单元格中绑定下拉列表、复先框、单选框（Combox,Check,ListBox）等，以方便用户输入和...
VB Excel导入 MSFlexGrid 批量导入SQL2000 然后MSFlexGrid 数据生成Excel VB Excel导入 MSFlexGrid 批量导入SQL2000 然后MSFlexGrid 数据生成Excel
VB60_导出excel_方法源代码 VB60_导出excel_方法源代码 方法一： 用Msflexgrid的Textmatrix属性取Msflexgrid中每一个单元格的内容，然后填到Excel表中，或者写成CSV格式 方法二： 直接把查询结果导出成Excel工作表
求教MSFlexGrid单元格问题，谢谢！！！ 求教MSFlexGrid单元格问题，谢谢！！！ 如MSFlexGrid1有两列，1行 我在第一个单元格内写入以下“Soft and Smooth Business Software you must set“ 我在第二个单元格内写入以下“every column” 1：问题是：我想把...
一个增强型的VB MSFlexGrid控件.rar 一个增强型的VB MSFlexGrid控件，cFlexGridBinder类的示例，是基于 MSFlexGrid 控件进行扩展增强网格编辑功能.这些功能的控制在代码里需要三个简单方法进行控制，你可以选种某个网格按回车进行编辑内容.可以使用 ...
请教MSFlexGrid的单元格编辑的问题,多谢!! 大家好,我现用的是VB+SQL数据库,遇到一些问题,大家能否帮我看一下,多谢啦. 修改MSFlexGrid1单元格内容，用下面语句老提示=号附近有语法错误，但我用access数据库时是没有问题的。 ---------------------------------...
将MsFlexGrid中的数据导出到Excel中 1.先引用Microsoft Excel 11.0 Object Library 对象2.在程序中声明对此对象的引用 Dim objExlApp As New Excel.Application Dim objExlBook As New Excel.WorkBook Dim objExlSheet As New Excel.WorkSheet ...
MsFlexGrid导出Excel 首先在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。 ...
VB导出完EXCEL并另存为,保存后不能释放EXCEL,急急!!!!!! 语言VB6.0,引用EXCEL 10 我想要导出完EXCEL报表并另存为,保存后释放EXCEL >>>>>现在问题是另存为保存都可以,但不能释放EXCEL,请各位大侠帮忙,谢谢!..... On Error Resume Next If MSFlexGrid1.TextMatrix(1, 2) = "...
vb 6.0 msflexgrid 用法详解 问题一 msflexgrid 根据行数或列数的大小，滚动条的滚动块长度怎么改变，发现滚动条很不好用，很小 转载于:https://www.cnblogs.com/zanglaowei/p/4824306.html
VB中从MSFlexGrid记录导出为Excel 机房收费系统中多个窗体用到从MSFlexGrid记录导出为Excel，在VB要导出数据到Excel中，首先要在引用中添加Microsoft Excel 14.0 Object Library 引用，我的代码中用到了对话框，所以我添加了对话框CommonDialog...
求高手帮助，解决vb+access查询问题！急急急！ 大家好，我对vb略懂一点，这次这个问题应经弄了一星期了，实在没辙了！故上传vb程序源码请高手给看看。谢谢了！可以加我qq联系：532520209 程序错误提示：‘30006’，不能为 MSFlexGrid分配内存。 ...
