在敲“充值记录查询“窗体的时候,要求可以将数据导出到excel中。在这个环节上,遇到了那个我一直不是很熟悉的循环语句。
不过还好,终于在不断的尝试中基本掌握了。现在就以”充值记录查询“窗体为例,来纪念一下我的这次成长。
Private Sub cmdExcel_Click()
Dim newxls As excel.Application, newbook As excel.Workbook, newsheet As excel.Worksheet
Dim i As Integer, j As Integer
strSQL = "select * from Recharge_Info where CardNo='" & Trim(txtCardNo.Text) & "'"
Set ObjRs = ExecuteSQL(strSQL, MsgText)
If ObjRs.RecordCount = 0 Then
MsgBox "没有数据可供导出!", , "提示"
Exit Sub
End If
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel
Set newbook = newxls.Workbooks.Add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
With newxls
.Rows(1).Font.Bold = True
End With
On Error Resume Next '如果有错误继续执行下一条
For i = 0 To MSHFlexGrid1.Rows
For j = 0 To MSHFlexGrid1.Cols
newsheet.Cells(i + 1, j + 1) = "'" & MSHFlexGrid1.TextMatrix(i, j)
Next j
Next i
newxls.Visible = True
Set newxls = Nothing
End Sub
在newsheet.Cells(i + 1, j + 1) = " ' " & MSHFlexGrid1.TextMatrix(i, j)中,之所以要加一个分号(')是因为有时候学号是以0开头的,如果不加的话导出excel后就会被自动去掉,加了以后是以字符串形式导出的,不会造成数据导出的残缺。
作者信息+原文
分享到:
相关推荐
Set wNewTable = wDoc.Tables.Add(wDoc.Range, MSHFlexGrid1.Rows, MSHFlexGrid1.Cols) For i = 0 To MSHFlexGrid1.Rows - 1 For j = 0 To MSHFlexGrid1.Cols - 1 wNewTable.Cell(i + 1, j + 1).Range.Text =...
vb实现一个登陆界面,登陆之后,访问数据库并将数据显示在MSHFlexGrid控件中。MSHFlexGrid控件可以响应双击事件;可以导入导出excel文件格式。
vb实现一个登陆界面,登陆之后,访问数据库并将数据显示在MSHFlexGrid控件中。MSHFlexGrid控件可以响应双击事件;可以导入导出excel文件。
vb MSHFlexGrid带数据库版本的MSHFlexGrid用法例子,若你对此数据加控件用法不熟悉,本源码非常适合你。
VB6.0中编辑MSHFlexGrid复选行和列
VB中MSHFlexGrid的使用详细说明
VB数据库编程中MSHFlexGrid控件用法详解
用VB6编的数据管理软件,在查询时要用Mshflexgrid控件显示查询内容,但如何将查询内容打印出来很复杂,有些控件可以实现对Mshflexgrid等控件的直接预览打印,但如果表格里有如签名等图片,第三方控件也无能为力了,...
包含VB6中MSHFlexGrid的几个常用方法,如标题行的自动列宽、隔行显示不同背景色、支持鼠标滚动等
要使用该示例,在窗体中放置一个 MSHFlexGrid 控件和一个 ComboBox 控件。把下面的代码粘贴到 Declarations 节,然后按 F5 键。 注意 如果正在使用 MSFlexGrid,用“MSFlexGrid1”代替“MSHFlexGrid1”。
MSHFlexGrid 与access 使用的例子
这个代码详细示例了MSHFlexGrid的各种属性方法,并在原有功能上进行扩展,增加了BMP图片插入,单元格背景色自定义,打印预览等功能,对于使用MSHFlexGrid的网友可能是一个不错的代码.
与MSHFLEXGRID绑定,实现网络的输入,网格保存,加载,查找,模拟EXCEL输入. http://blog.csdn.net/MSTOP
VB中,可编辑列数据的MSHFlexGrid控件
VB6.0统计MSHFLexGrid控件中的各种数据
vb中mshflexgrid和datagrid的区别.doc
如果程序里面有多个窗体,每个窗体包含多个MSFlexGrid控件,使用这种办法比单独为每个网格控件编写代码方便一些 用文本替换把“MSFlexGrid”替换为“MSHFlexGrid”就可以支持MSHFlexGrid控件了
MSHFlexGrid的表格本身不具备编辑功能,但可以利用TXT文本框实现其可编辑功能。本例是MSHFlexGrid的VB实例,代码有详细的注释,在VB上已经编译成功,基本上可以拿来就用。
自己写的。关于ACCESS与MSHFLEXGRID的典型应用,包含插入,修改,删除数据,当前行,颜色选中时变化,数据库保存。插入。MSHFLEX控件的数据批量写入。等等。初学者的好资源
用MSHFlexGrid连接Access数据库的例子