请教高手: 怎样将界面 DataGrid中显示的数据库报表查询结果,输出到excel中?

wya 2002-12-19 09:35:13

请教高手: 怎样将界面 DataGrid中显示的数据库报表查询结果,输出到excel中?


不胜感谢!
...全文
11 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
pcking 2003-03-05
答案在这里:

http://www.5ivb.net/club/dispbbs.asp?boardID=1&ID=11813
回复
pcking 2003-03-04

请问ybcaa,Gridrow是行数吗??
回复
maskzha 2003-02-10
up up 完全正确。

看看 MSDN 还可画出网格线。
回复
zyh9188 2002-12-20
up
回复
ybcaa 2002-12-20
这里有段代码,可参考一下

PrivateSubcommand3_Click()

DimiAsInteger

DimjAsInteger

DimxlAppAsExcel.Application

DimxlBookAsExcel.Workbook

DimxlSheetAsExcel.Worksheet


SetxlApp=CreateObject("Excel.Application")

xlApp.Visible=True

SetxlBook=xlApp.Workbooks.Add

OnErrorResumeNext

Set xlBook=xlApp.Workbooks.AddOpen("d:\text2.xls")

Set xlSheet=xlBook.Worksheets(1)

xlSheet.Cells(6,1)="i"

Fori=0Togridrow

grid1.Row=i

Forj=0To6

Grid1.Col=j


If IsNull(Grid1.Text)=FalseThen

xlSheet.Cells(i+5,j+1)=Grid1.Text

EndIf

Nextj

Nexti

ExitSub
回复
相关推荐
发帖
多媒体
创建于2007-09-28

807

社区成员

VB 多媒体
申请成为版主
帖子事件
创建了帖子
2002-12-19 09:35
社区公告
暂无公告