机房收费总结之——Excel表格的导出

    在机房收费系统中，有好几处用到了VB与Excel表格的交互问题。记得去年寒假学习VB视频的时候学习过，当时没太弄明白，现在看来也就那么回事，这里总结一下。

    机房收费系统中有好几处用到了Excel与VB的交互。比如下面学生充值记录查询这个窗体：               

                    

                    

                    代码如下：

    首先声明变量：

      Dim xlApp As New Excel.Application             '声明excel对象      Dim xlBook As Excel.Workbook                      '声明工作簿对象      Dim xlSheet As Excel.Worksheet                    '声明工作表单

    然后,判断条件并将记录写入记录表中。

If myflexgrid.Text = "" Then                         '判断是否有记录可供导出            MsgBox "没有记录可导出!", vbOKOnly + vbExclamation, "警告"            Exit Sub      Else                Set xlBook = xlApp.Workbooks.Add(1)              '创建新的空白工作簿            Set xlSheet = Excel.ActiveWorkbook.ActiveSheet   '创建新的工作表单                  For i = 0 To myflexgrid.Rows - 1                 '填入数据                              For j = 0 To myflexgrid.Cols - 1               xlSheet.Cells(i + 1, j + 1) = myflexgrid.TextMatrix(i, j)               Next j                            Next i                      xlApp.Visible =True                              '显示Excel表格End If