机房收费系统之导出Excel

          机房收费系统里有一个很有意思的功能——将查出的数据导出到Excel,开始自己想代码，但对Excel表的创建不是很清楚，所以去求助度娘，度娘很给力。 

在工程中引用MicrosoftExcel类型库： 

        在“工程”菜单中选择“引用”，选择“Microsoft Excel 14.0 Objects Library” ，点击确定。表示工程中要引用EXCEL类型库。

机房收费系统里有一个很有意思的功能——将查出的数据导出到Excel,开始自己想代码，但对Excel表的创建不是很清楚，所以去求助度娘，度娘很给力。我查到两种方法，一种是自己创建Excel表，在vb中打开表，然后根据表的路径保存信息；第二种是在vb中建立Excel表。具体代码展示如下：

第一种：

Private Sub cmdexcel_Click() '自己要建立excel表，然后我们再VB中找到我们要打开的excel表，要求寻找excel的路径。
    '定义循环变量
    Dim i As Integer
    Dim j As Integer
   
      '定义表，工作簿，工作表
      Dim Excelapp As Excel.Application
      Dim Excelbook As Excel.Workbook
      DimExcelsheet As Excel.Worksheet
      '显示表，工作簿，工作表
      Set Excelapp = NewExcel.Application       '建立一张表
      Set Excelbook = Excelapp.Workbooks.Add    '添加新工作薄
      Set Excelsheet = Excelbook.Worksheets(1)      '建立工作表
  
      DoEvents
  
       WithMSHFlexGrid1      '将MSHFlexGrid1中内容写到表格中
           For i = 0 To .Rows - 1 '行循环
               For j = 0 To .Cols - 1 '列循环
         
               DoEvents
                     Excelapp.ActiveSheet.Cells(i + 1, j + 1) = .TextMatrix(i, j) '逐行赋值
               Next j
          Next i
      End With
  
      Excelapp.ActiveWorkbook.SaveAs "E:\机房导出表" & "\充值.xls"    '表格保存路径
      Excelapp.ActiveWorkbook.Saved = True      '保存表格
      Excelapp.Quit '退出表
      MsgBox "导出完成！", vbInformation, "提示"
End Sub

第二种：

Private Sub cmdExportExcel_Click()  
    Dim i As Integer  
    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 myFlexGrid1.Rows - 1  
        For j = 0 To myFlexGrid1.Cols - 1  
            ' 循环  
            myFlexGrid1.Row = i  
            myFlexGrid1.Col = j  
            xlSheet.Cells(i + 1, j + 1) = Trim(myFlexGrid1.Text)  
            ' 把myflexgrid1里面的值赋给工作表  
        Next  
    Next  
End Sub  

这个问题让我对以后的问题探索更有信心，同时也告诉我自己踏实学习才是硬道理！希望对您有帮助！