如何用excel打印报表?

xzjxu 2003-04-26 02:46:36
...全文
45 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
untitled12 2003-04-27
  • 打赏
  • 举报
回复
用ADO连接数据库

Dim i As Integer, j As Integer 'i为列,j为行
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

xlApp.Visible = True: xlApp.DisplayAlerts = False

Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlApp.Worksheets(1)

rst.MoveFirst

'----------------------设置列标题------------------------------------------
For i = 1 To rst.fields.Count
xlSheet.Cells(1, i) = rst.fields(i - 1).Name
Next
'-----------------------------------------------------------------------


'-----------------------把rst中内容显示到表中-----------------------
j = 2 'j为列,i为行
Do While Not rst.EOF
For i = 1 To rst.fields.Count
xlSheet.Cells(j, i) = rst.fields(i - 1).Value
Next
j = j + 1
rst.MoveNext
Loop
'-------------------------------------------------------------------------------

xlSheet.PrintOut '打印
xzjxu 2003-04-26
  • 打赏
  • 举报
回复
给出代码

808

社区成员

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

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