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控件等等，都是按照这个思路来的，所以我们在用其它控件的时候也可以按照这个步骤来操作