当前位置: 首页 > 编程语言 > VB.NET > 正文

VB.NET版机房收费系统之导出Excel表格

时间:2015-07-02

datagridview,翻译成中文的意思是数据表格显示,使用DataGridView控件,可以显示和编辑来自不同类型的数据源的表格,将数据绑定到DataGridView控件非常简单和直观,大多数情况下,只需要设置DataSource属性即可,在绑定到包含多个列表或表的数据库源时,只需将DataMember属性设置为绑定的列表或表的字符串即可。机房收费系统多次用到数据表格的显示,并且导出为Excel表格,第一次机房收费系统是用VB版本的,她导出Excel的方法如下:

打开VB-工程-应用-勾选Microsoft  Excel 14.0 Objexts 2.6 Library

代码如下:

<span style="font-size:18px;">Private Sub CmdExport_Click()    
    Dim j As Integer  
    Dim xlApp As Excel.Application    
    Dim xlBook As Excel.Workbook    
    Dim xlSheet As Excel.Worksheet    
    Set xlApp = CreateObject("Excel.Application")   '实例化对象xlApp    
        xlApp.Visible = True  
    Set xlBook = xlApp.Workbooks.Add    
    Set xlSheet = xlBook.Worksheets(1)    
    For i = 0 To myflexgrid.Rows - 1    
        For j = 0 To myflexgrid.Cols - 1    
           myflexgrid.Row = i    
           myflexgrid.Col = j    
           xlSheet.Cells(i + 1, j + 1) = Trim(myflexgrid.Text)    
        Next  
    Next  
End Sub </span>

第二版机房收费系统VB.NET版本,她又怎么样导出Exce表格nie,跟VB版的导出Excel表格的方法有哪些异曲同工之妙,又有着VB不具备的妙处呢?下面一一介绍:

首先,我们需要引用