├ XiaoHui.Net 笑汇程序员论坛首页
└→ Visual Basic 讨论区

[其他] vb中datagrid控件中的数据怎么导入到EXCEL

上一主题

下一主题

xulei201
小水手
Rank: 1

UID 24024
精华 0
积分 1
帖子 1
阅读权限 10
注册 2006-10-12
状态离线

vb中datagrid控件中的数据怎么导入到EXCEL

我把DATAGRID控件中的数据导入到EXCEL时。当数据在20条以内就可以正常的输出到EXCEL中。但是当数据在多点的话就会出现有的数据不导出而有的数据则导出多次。代码如下：

dim rs as adodb.recodeset

Dim i    As Integer
Dim j    As Integer
Dim xlApp    As New Excel.Application
Dim xlBook    As New Excel.Workbook
Dim xlSheet    As New Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

For j = 0 To dtg1.Columns.Count - 1
xlSheet.Cells(1, j + 1) = dtg1.Columns.Item(j).Caption
Next j
rs.MoveFirst

For i = 0 To rs.RecordCount - 1 Step 1
   dtg1.Row = i
For j = 0 To dtg1.Columns.Count - 1 Step 1
   dtg1.Col = j

   If IsNull(dtg1.Text) = False Then
      xlSheet.Cells(i + 2, j + 1) = dtg1.Text //dtg1是datagrid控件的名称
   End If

Next j
Next i

2006-10-12 10:31

farstaryao
小水手
Rank: 1

UID 24237
精华 0
积分 13
帖子 13
阅读权限 10
注册 2006-10-18
状态离线

原来我也碰到过这个问题,它只加入了显示出来的那部分,而没显示出来的那部分传不进EXCEL,我后来用了另一种方法,就是用Data或Adodc控件绑定到该表上,用Move方法一条一条把记录写进去,就行了.
不知道这种方法对你是否可行?

多多指教

2006-10-18 11:55

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

所有时间为 GMT+8, 现在时间是 2008-11-21 11:25 Powered by Discuz! 4.1.0	清除 Cookies - XiaoHui.Net 笑汇程序员论坛 - Archiver