通过EXCEL模板打印

引用excel9.0
Dim tempxlApp As New Excel.Application
Dim tempxlWorkbook As New Excel.Workbook
Dim tempxlSheet As New Excel.Worksheet

Dim tempRange As String
Dim strRangeValue As String
'打开自己作好的报表模板templet.xlt
Set tempxlWorkbook = tempxlApp.Workbooks.Open(App.Path & "\templet.xlt")
tempxlApp.Visible = True
tempxlApp.DisplayAlerts = False
tempxlWorkbook.SaveAs  "report.xls"


Set tempxlSheet = tempxlWorkbook.Worksheets("sheet1")
tempxlSheet.Select

'单个单元格写入数据
tempxlSheet.Range("A1").Value = "test"


'一次性写入tempRs数据记录集中的数据
tempxlSheet.Range("A1").CopyFromRecordset tempRS


'保存
tempxlApp.save    

'释放对象
Set tempxlSheet = Nothing