Office中国论坛/Access中国论坛

标题: [求助]怎么将EXCEL中画的表格弄到报表中去呀~ [打印本页]

作者: jzp820927 时间: 2006-1-13 01:41
标题: [求助]怎么将EXCEL中画的表格弄到报表中去呀~
如题,请教高手~

作者: gaoqiwen 时间: 2006-1-13 16:13
在Access中只有依EXCEL报表重新设计;

另一方法,可将Access的数据输出到Excel中;

作者: gaoqiwen 时间: 2006-1-13 16:18
如下为调用Excel打印的一小段代码供参考:

Private Sub ExcelPreview_Click()
Dim xlApp As Excel.Application
Dim xlBook As Workbook, xlSheet As Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("c:\reprot\temp.xls") '"c:\reprot\temp.xls"为你做的表格
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 1) = "制表日期：" + "12" + " 月"
'以上只更改了一个单元格内的数据，可根据需要无限次加入
xlBook.Save
xlSheet.PrintPreview '如果是要打印，只要把 PrintPreview 改为 PrintOut
xlBook.close
xlApp.Quit
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)