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

wya 2002-12-19 09:35:13

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


不胜感谢!
...全文
30 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

808

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧