机房收费系统—Excel表

  曾记得寒假学习的时候曾涉略过有关VB与excel交互的内容，当时感觉挺蒙的，如今当再次看到时，却是如此简单。

  在VB中要把所需要的内容导入到excel表中，做法如下：

   首先需要在vb里面引用我们所需要的对象：Microsoft excel 14.0 object library

  

 

 

 

    接着代码如下：

Dim excelrecord As New Excel.Application  '定义excel对象    Dim introwsno As Integer                  '定义表格行数            If m_ok = False Then'        MessageBox "没有记录，请先查询", "提示", vbOKOnly         MsgBox "没有记录，请先查询", vbOKOnly, "提示"         Exit Sub    Else        excelrecord.Visible = True          '显示表        excelrecord.Workbooks.Add              '添加工作薄    End If            txtsql = "select * from online where idcard='" & Trim(txtidcard.Text) & "'"    Set mrc = executesql(txtsql, msgtext)        With excelrecord                             '添加每行的标题        .Cells(1, 1) = "卡号"        .Cells(1, 2) = "姓名"        .Cells(1, 3) = "上机日期"        .Cells(1, 4) = "上机时间"        .Cells(1, 5) = "下机日期"        .Cells(1, 6) = "下机时间"        .Cells(1, 7) = "消费金额"        .Cells(1, 8) = "余额"        .Cells(1, 9) = "备注"                For introwsno = 2 To mrc.RecordCount + 1             '依次为每行赋值               .Cells(introwsno, 3) = mrc.Fields(2)        .Cells(introwsno, 4) = mrc.Fields(3)        .Cells(introwsno, 5) = mrc.Fields(4)        .Cells(introwsno, 6) = mrc.Fields(5)        .Cells(introwsno, 7) = mrc.Fields(0)        .Cells(introwsno, 8) = mrc.Fields(6)        .Cells(introwsno, 9) = mrc.Fields(7)        .Cells(introwsno, 1) = CStr(mrc.Fields(1))        .Cells(introwsno, 9) = CStr(mrc.Fields(9))        mrc.MoveNext    Next        End With        mrc.Close         '关闭对象

    其中用到EXCEL对象属性没有多少。

    cells:代表行，就是表格的行数

    workbooks：excel的工作薄，一个excel可以有多个工作薄。

    当然excel要实现的功能还有很多，比如设置excel的标题、页眉、底边等。有兴趣的

话，可以查一下excel对象的属性，然后根据自己要实现的功能做相应的变换。