808
社区成员
发帖
与我相关
我的任务
分享请教高手: 怎样将界面 DataGrid中显示的数据库报表查询结果,输出到excel中?
请教高手: 怎样将界面 DataGrid中显示的数据库报表查询结果,输出到excel中?
不胜感谢!
...全文
请发表友善的回复…
发表回复
pcking 2003-03-05
- 打赏
- 举报
答案在这里：
http://www.5ivb.net/club/dispbbs.asp?boardID=1&ID=11813
http://www.5ivb.net/club/dispbbs.asp?boardID=1&ID=11813
pcking 2003-03-04
- 打赏
- 举报
请问ybcaa，Gridrow是行数吗？？
maskzha 2003-02-10
- 打赏
- 举报
up up 完全正确。
看看 MSDN 还可画出网格线。
看看 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
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
