| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 827 人关注过本帖
标题:datagrid导出excel问题!!
只看楼主 加入收藏
whp413
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-26
收藏
 问题点数:0 回复次数:1 
datagrid导出excel问题!!

Private Sub cmdsave_Click()

MsgBox "文件保存为: E:\毕业设计\销售报表.xls", vbOKOnly + vbExclamation, ""
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim q As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object

Set ex = CreateObject("Excel.Application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")

'在excel里表格的表头,这是根据我的需要添加的标头
ex.Range("c3").Value = "交易日期"
ex.Range("d3").Value = "员工姓名"
ex.Range("e3").Value = "货品名称"
ex.Range("f3").Value = "货品来源"
ex.Range("g3").Value = "成交数量"
ex.Range("h3").Value = "成交价格"
ex.Range("i3").Value = "成本价格"
ex.Range("j3").Value = "成交利润"

'i为记录个数使用循环将数据全部添加
For i = 1 To rs_reader.RecordCount
j = 3 + i
'k为数据列数
For k = 0 To 11
'通过使用变量k和j变换单元格位置
q = Chr(99 + k) & j
'将datagrid1的数据放到单元格内
ex.Range(q).Value = DataGrid1.Columns(k)
Next k
'指针下移
If rs_reader.EOF = False Then
rs_reader.MoveNext
End If
Next i

'保存输入到销售报表.xls
exwbook.SaveAs "E:\毕业设计\销售报表.xls"
'退出excel
ex.Quit
End Sub


请问这段导出代码正确吗?我在导出的时候它说数据类型不匹配,然后指向"q=chr(99+k)&j"这句代码!!
这段代码是我网上找来的,可根据自己的情况我不知道怎么来改,以上的几个表头是我datagrid中的表头,大家帮我看看怎么改!!谢谢

搜索更多相关主题的帖子: excel datagrid 
2006-04-28 16:39
moshen62
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-1-12
收藏
得分:0 
请注意这个
Dim q As Integer

Chr(99 + k)的返回值是字符

2006-04-28 18:45
快速回复:datagrid导出excel问题!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.088269 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved