知识共享图文直播---（一）将数据库中的数据加载到MSFlexGrid空间中再导入Excel

熟话说万物皆有其存在的道理，为什么我突然想写《知识共享图文直播》这个系列呢？首先，我想的是记录自己学习的历程，在记录中加深自己对知识的理解，同时也希望自己的博文能帮助到其他数据库的初学者。其次，这也算借鉴了其他人的一个好的想法吧。

一、我们所处的环境

1、看窗体布局



2、了解目标表



二、数据导入MSFlexGrid控件中

[vb]
view plain
copy
print
?

Dim strSQL As String

Dim strMsg As String

Dim objRs As ADODB.Recordset

Dim n As Integer

'提取学生信息

strSQL = "select * from student_Info where cardno='" & txtCardNo.Text & "'"

Set objRs = ExecuteSQL(strSQL, strMsg)

'显示列名

With MSFlexGrid1

'.Row = 0

.TextMatrix(0, 0) = "卡号"

.TextMatrix(0, 1) = "学生姓名"

.TextMatrix(0, 2) = "充值金额"

.TextMatrix(0, 3) = "充值日期"

.TextMatrix(0, 4) = "充值时间"

.TextMatrix(0, 5) = "充值教师"

'有选择的显示记录，对比表中的列名可知

n = 0

While Not objRs.EOF

MSFlexGrid1.AddItem (objRs!cardno & vbTab & objRs!studentName & _

vbTab & objRs!cash & vbTab & objRs!Date & _

vbTab & objRs!Time & vbTab & objRs!UserID)

n = n + 1

objRs.MoveNext

Wend

End With

三、将控件中显示数据导入Excel表格

1、首先我们先在模块中建立执行此过程的方法，如下：

[vb]
view plain
copy
print
?

<pre name="code" class="vb">Public Sub OutDataToExcel(Flex As MSFlexGrid)

'***********************************************************

'作用：定义一个过程，实现将MSFlexGrid控件中的数据导入Excel表格

'输入参数：无

'返回值：

'创建日期：2013.8.23

'修改日期：

'作者：十期提高班 Senior_Lee

'****************************************

Dim s As String

Dim i, j, k As Integer

On Error GoTo Err

'Me.MousePointer = 11

Dim Excelapp As Excel.Application

Set Excelapp = New Excel.Application

On Error Resume Next

DoEvents

Excelapp.SheetsInNewWorkbook = 1

Excelapp.Workbooks.Add

'Excelapp.ActiveSheet.Cells(1, 1) = s

'Excelapp.Range("c1").Select '选中某一个单元格

'Excelapp.Selection.Font.Size = 16 '设置选中单元格的字体

With Flex

k = .Rows

For i = 0 To k - 1

For j = 0 To .Cols - 1

DoEvents

Excelapp.ActiveSheet.Cells(1 + i, j + 1) = "'" & .TextMatrix(i, j)

Next j

Next i

End With

'Me.MousePointer = 0

Excelapp.Visible = True

'Excelapp.Sheets.PrintPreview '默认显示，打印预览窗体，注释之后直接显示Excel表格

'错误处理

Err:

If Not (Excelapp Is Nothing) Then

Excelapp.Quit

End If

End Sub

2、在窗体中调用

Private Sub cmdOutPut_Click()
'***************************************
'作用：将学生充值记录导入Excel表格
'输入参数：
'返回值：
'创建日期：
'修改日期：
'作者：
'*************************************
OutDataToExcel MSFlexGrid1
End Sub

写完之后总觉得少点东西，文章页仅仅是记录；在接下来的文章中会慢慢的加入自己的思考的。同时也希望该文对数据库的初学者有帮助。