机房收费总结之——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