vb如何将查询到的记录导出为Excel

首先你需要点工程菜单，然后选用引用，找到MicrosoftExcel 12.0 Object Library，然后选中引用即可。中间的12.0是版本号，可能由于你的电脑装的Excel版本不一样而不一样。

然后输入一下代码：

'导出为Excel表格
Private Sub ExcelCmd_Click()
  
  Dim Introws As Integer              '用做循环，表示MSHFlexGrid的总行数
  Dim Intcols As Integer              '用做循环，表示MSHFlexGrid的总列数
  Dim XlsApp As Excel.Application          '定义Excel对象
  Dim XlsSheet As Excel.Worksheet          '定义Excel的表
  Dim XlsBook As Excel.Workbook           '定义Excel的工作簿
 
  Set XlsApp = CreateObject("Excel.Application")  '实例化Excel对象
  Set XlsBook = XlsApp.Workbooks.Add        '加载工作簿
  Set XlsSheet = XlsBook.Worksheets(1)       '创建工作表
 
  '循环，导出MSHFlex1中的所有记录到Excel
  For Introws = 0 To MSHFlex1.Rows - 1
    For Intcols = 0 To MSHFlex1.Cols - 1
      If Intcols = 0 Then            '第一列为学号，将其转换成字符串格式，否则首位的0无法显示
        XlsSheet.Cells(Introws + 1,Intcols + 1) = "'" & MSHFlex1.TextMatrix(Introws,Intcols)
      Else
        XlsSheet.Cells(Introws + 1,Intcols + 1) = MSHFlex1.TextMatrix(Introws,Intcols)
      End If
    Next Intcols
  Next Introws
 
    '释放对象
    XlsApp.Visible = True
    Set XlsApp = Nothing

总结一下我们在用到一个对象的时候：

首先都是找到这类东西，即声明，引用或者添加某一对象

然后是将这个东西实拿出来，就是让它能行使一定的功能，即类的实例话

最后用完了，放回去，即释放该对象

例如：Excel，报表，API，Active控件等等，都是按照这个思路来的，所以我们在用其它控件的时候也可以按照这个步骤来操作

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!