vb中将数据导出到excel表格中

概述     下面是将msflexgrid中的数据导出到excel的代码：       Dim XlApp As Excel.Application       Dim XlBook As Excel.Workbook       Dim XlSheet As Excel.Worksheet       Dim i As Integer       Dim j As Integer         

下面是将msflexgrID中的数据导出到excel的代码：

Dim XlApp As Excel.Application

Dim XlBook As Excel.Workbook
Dim XlSheet As Excel.Worksheet
Dim i As Integer
Dim j As Integer

Set XlApp = CreateObject("Excel.Application") '初始化
Set XlBook = XlApp.Workbooks.Add
Set XlSheet = XlBook.Worksheets(1)

For i = 0 To MSFlexGrID1.Rows - 2 '将msflexgrID1中的数据写入excel表格中
For j = 0 To 4
XlSheet.Cells(i + 1,j + 1) = MSFlexGrID1.TextMatrix(i,j)
Next j
Next i
XlApp.Visible = True '填写完毕后显示excel表格 总结

以上是内存溢出为你收集整理的vb中将数据导出到excel表格中全部内容，希望文章能够帮你解决vb中将数据导出到excel表格中所遇到的程序开发问题。

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