Private Sub Group180_Click ()
The Set Excelfile=New Excel. Application

Excelfile. Visible=True
On the Error Resume Next
'open the report file name
Excelfile. Workbooks. The Open System. FixPath (App_Path) + ", the Report and daily Report of water supply. XLT "
End Sub