龙腾网络人事工资管理系统

morons

这个系统刚开始是用这个报表的“Anycell 报表”，但是他的DEBUG也实在是太多了，所以最后选择了

Excel作为报表，如那位仁兄想要学习一下Excel作报表的话，这可是一个很好的例子罗，附件上传不了，

如需要请加我QQ：17717203或是Q群：10237421

tmtony

可传到 ftp://access-cn:access-cn@www.office-cn.net 然后再在贴子中引用或告诉路径．　谢谢

中国人

想用EXCEL作ACCESS的报表用下面的代码就好了，

Private Sub 命令23_Click()

Dim rs As ADODB.Recordset

Dim I As Integer

Dim x As Integer

Dim xlApp As Excel.Application

Dim xlBook As Workbook, xlSheet As Worksheet

DoCmd.RunSQL "DELETE TBL_装车费日报表.* FROM TBL_装车费日报表"

DoCmd.OpenQuery "TBL_追加装车费日报表"

Set rs = New ADODB.Recordset

Set xlApp = CreateObject("Excel.Application")

Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\acc.XLS") '打开要输出的EXECL文件

Set xlSheet = xlBook.Worksheets(6)               '打开工作表,这里是第一个,可以设其他

xlApp.Visible = True                             '显示

rs.Open "TBL_装车费日报表", CurrentProject.Connection, 3, 3

If Not rs.EOF Then rs.MoveFirst

Do While Not rs.EOF

I = I + 1

For x = 0 To 1

xlSheet.Cells(I + 3, x + 1) = rs(x) 'CELLS(行,列)  单元格

Next x

   rs.MoveNext

Loop

rs.Close

'xlSheet.PrintPreview     '如果是要打印，只要把 PrintPreview 改为 PrintOut

'xlBook.Close SaveChanges:=False

'xlApp.Quit               '退出

End Sub

[此贴子已经被作者于2005-8-17 14:41:58编辑过]

amymo

谢谢分享

jxjacky

谢谢，只能说这么多了