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

概述首先你需要点工程菜单，然后选用引用，找到MicrosoftExcel 12.0 Object Library，然后选中引用即可。中间的12.0是版本号，可能由于你的电脑装的Excel版本不一样而不一样。 然后输入一下代码： '导出为Excel表格Private Sub ExcelCmd_Click()         Dim Introws As Integer              

首先你需要点工程菜单，然后选用引用，找到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 = @R_301_4910@

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

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

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

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

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

总结

以上是内存溢出为你收集整理的vb如何将查询到的记录导出为Excel全部内容，希望文章能够帮你解决vb如何将查询到的记录导出为Excel所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。