在WINCC组态软件里如何实现报表功能？

给你个简单的例子，去研究一下吧！
 FYI

 Dim objXLS                'As Excel.Application
 Dim objWSheet             'As Excel.Worksheet
 Dim objWBook              'As Excel.Workbook
 Dim h                     'System Time Hour
 Dim row
     row=0

 Dim tag1
  h=CInt(HMIRuntime.Tags("Hour").read)
 Set tag1=HMIRuntime.Tags("Pressure")

 
 Set objXLS= CreateObject ("Excel.application")
 Set objWBook= objXLS.workbooks.open ("F:\Brizal Program\FGD A DailyReport.xls")
 Set objWSheet = objWBook.Worksheets("Sheet1")

  'objWSheet.Range("D3:O3").Value =FormatDateTime(Date, 1) 

 
  objWSheet.Cells(3, 5).Clear
  objWSheet.Cells(3, 5).Value=tag1.Read  

  objWSheet.Cells(3, 6).Clear
  objWSheet.Cells(3, 6).Value=tag1.Read  

  objWSheet.Cells(3, 7).Clear
  objWSheet.Cells(3, 7).Value=tag1.Read  

 
 '--------------Format Excel Print Area----------------------------------
 Dim mSelection
 Set mSelection= objWSheet.Cells
     mSelection.select
      
     With mSelection.Borders(7)'xlEdgeLeft
        .LineStyle = 2'xlContinuous
         .Weight = 2'xlThin
         .ColorIndex =&HFFFFEFF7' xlAutomatic
     End With
     With mSelection.Borders(8)'xlEdgeTop
         .LineStyle = 2'xlContinuous
         .Weight = 2'xlThin
         .ColorIndex = &HFFFFEFF7'xlAutomatic
     End With
     With mSelection.Borders(9)'xlEdgeBottom
         .LineStyle =2' xlContinuous
         .Weight = 2'xlThin
         .ColorIndex = &HFFFFEFF7'xlAutomatic
     End With
     With mSelection.Borders(10)'xlEdgeRight
         .LineStyle =2' xlContinuous
         .Weight = 2'xlThin
         .ColorIndex = &HFFFFEFF7'xlAutomatic
     End With   
     
     With mSelection.Borders(11)'xlInsideVertical
         .LineStyle =1' xlContinuous
         .Weight = 2'xlThin
         .ColorIndex =&HFFFFEFF7' xlAutomatic
     End With
     With mSelection.Borders(12)'xlInsideHorizontal
         .LineStyle =1' xlContinuous
         .Weight = 2'xlThin
         .ColorIndex = &HFFFFEFF7'xlAutomatic
     End With

 '--------------Farmat Excel End --------------------------------------

 
 objWBook.SaveAs

 objWSheet.PrintOut

 '--------------Close Excel WorkBook, Exit Application ----------------

  objWBook.Close
 Set objWSheet = Nothing
 Set objWBook = Nothing
  objXLS.Quit
 Set objXLS = Nothing