| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1251 人关注过本帖
标题:请问如何将datagrid里查询到的内容导出到excel里呢
只看楼主 加入收藏
qjj1221
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-10-6
结帖率:100%
收藏
 问题点数:0 回复次数:3 
请问如何将datagrid里查询到的内容导出到excel里呢
大家好,如题,请问如何将datagrid里查询到的内容导出到excel里呢?谢谢了
搜索更多相关主题的帖子: excel datagrid 查询 
2008-07-15 10:04
coolvirus
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-10-12
收藏
得分:0 
在VB中操作Excel文件
首先在VB中引用microsoft excel object library
假设c盘根目录下有个1.xls的文件
Private Sub Form_Load()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\1.xls")
Set xlSheet = xlBook.Worksheets(1)'引用第1张工作表
Debug.Print xlSheet.Range("A1")'在立即窗口中显示第1张工作表中A1的内容,如果你想赋值给某个变量就在这里赋值,=xlSheet.Range("A1")就是你想要的东西

xlApp.Application.Quit

Set xlApp = Nothing

Unload Me
'表忘释放引用

End Sub

至于用变量给单元格赋值也很容易

声明一个变量

打个比方,给单元格A1赋值

xlSheet.Range("A1")=你声明的变量即可

记得把这条语句放在

Debug.Print xlSheet.Range("A1")这条语句的位置。
2008-07-15 18:29
qjj1221
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-10-6
收藏
得分:0 
谢谢你
2008-07-25 08:19
shenweibing
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-5-28
收藏
得分:0 
后面的把datagrid的数据导入到excel没有,我还是不懂,有没有更详细的,谢谢!
2011-05-28 10:53
快速回复:请问如何将datagrid里查询到的内容导出到excel里呢
数据加载中...
 
   



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

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