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

最新推荐文章于 2020-05-09 17:02:19 发布

爱吃鱼的猫^_^

最新推荐文章于 2020-05-09 17:02:19 发布

阅读量2k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VB

本文链接：https://blog.youkuaiyun.com/zjx86320/article/details/13258979

VB 专栏收录该内容

6 篇文章

订阅专栏

本文详细介绍了机房收费系统中使用Excel与VB进行交互的具体实现，包括创建新工作簿、填写数据以及显示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