Set VBExcel = CreateObject("excel.application")'根据操作人员是否需要见到Excel此处可设为TRUE 或FALSE
VBExcel.Visible = True
Set xlsheet = Nothing
Set VBExcel = Nothing