EXCEL打印报表请教


 Set exceltable = CreateObject("Excel.Application")
 exceltable.Workbooks.Open FileName:=CommonDialog1.FileName
 Set ActiveWorkbook1 = exceltable.ActiveWorkbook
 For m = 1 To c Step 1
ActiveWorkbook1.Worksheets.Add
Set excelsheet = exceltable.ActiveSheet
  While Not Data2.Recordset.EOF
 excelsheet.Cells(erow, 4) = Data2.Recordset("材料名称")
   excelsheet.Cells(erow, 10) = Data2.Recordset("型号")
   excelsheet.Cells(erow, 12) = Data2.Recordset("销售单价")
   excelsheet.Cells(erow, 21) = Data2.Recordset("供货单位")
   excelsheet.Cells(erow, 28) = Data2.Recordset("实购数量")
   s = s + Data2.Recordset("销售单价") * Data2.Recordset("实购数量")
   Data2.Recordset.MoveNext
   erow = erow + 1
 Wend
我现在是已经将格式做成摸版，让用户每次打印时候选择该摸版，
之后每一张单据就占用EXCEL的一个SHEET。问题是现在出来的结果
是，运行后，摸版的格式中只有表格没数据，其他创建的SHEET
只有数据，没表格。