想用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编辑过]
|