标题:请问如何将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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-223917-1-1.html




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

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