没启动是什么原因，大佬帮忙看看

Dim FLAG,FLAG1

FLAG=SmartTags("Formula_data_R001_Formula_End")

If FLAG=True And FLAG1=False Then

FLAG1=True

Dim objExcelApp,objExcelBook,objExcelSheet,sheetname

sheetname="sheet2"

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = False

objExcelApp.Workbooks.Open "C:\Logs\data\report\R001.xlsx"

objExcelApp.Worksheets(sheetname).Activate

Dim MyStr1

MyStr1 = SmartTags("Formula_data_R001_功能码{1}")

objExcelApp.Worksheets(sheetname).cells(2,6)=CStr(MyStr1)

Dim MyStr2

MyStr2 = SmartTags("Formula_data_R001_功能码{2}")

objExcelApp.Worksheets(sheetname).cells(3,6)=CStr(MyStr2)

Dim patch,filename

filename="R001-"&CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&CStr(Hour(Now))&CStr(Minute(Now))&CStr(Second(Now))

patch = "C:\Logs\data\R001\"&filename&".xlsx"

objExcelApp.ActiveWorkbook.SaveAs patch

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp=Nothing

Else

FLAG1=FLAG

End If