关于wincc变量用vbs写入EXCEL，这个有没有错误，能详解一下吗

Option Explicit

Function action

Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible =False

Dim c8

Set c8 = HMIRuntime.Tags("文件保存")

c8.Read

Dim c9

Set c9 = HMIRuntime.Tags("数据存储")

c9.Read

If c8.Value=1 Then

objExcelApp.Workbooks.Open"D:\benti\报表.xls"

Dim countr

For countr=1 To 50

Next

Dim patch,filename

filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))

patch="E:\报表\"&filenaME&"-报表.xls"

objExcelApp.ActiveWorkbook.SaveAs patch

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set oApp = Nothing

Else

If c9.Value=1 Then

    Dim T1

Set T1 = HMIRuntime.Tags("NewTag1")

T1.Read

    Dim T2

Set T2 = HMIRuntime.Tags("NewTag2")

T2.Read

    Dim T3

Set T3 = HMIRuntime.Tags("NewTag")

T3.Read

    Dim T4

Set T4 = HMIRuntime.Tags("NewTag_1")

T4.Read

    Dim T5

Set T5 = HMIRuntime.Tags("NewTag_2")

T5.Read

    Dim T6

Set T6 = HMIRuntime.Tags("NewTag_6")

T6.Read

字数超出中间省略

Dim I

Set I = HMIRuntime.Tags("时间")

I.Read

objExcelApp.Workbooks.Open"D:\baobiao\报表.xls"       

        If I.Value=4 Then

objExcelApp.Cells(1,6).Value=Date   

objExcelApp.Cells(3,I.value).Value=T1.value

objExcelApp.Cells(4,I.value).Value=T2.value

objExcelApp.Cells(5,I.value).Value=T3.value

objExcelApp.Cells(6,I.value).Value=T4.value

objExcelApp.Cells(7,I.value).Value=T5.value

objExcelApp.Cells(8,I.value).Value=T6.value

Dim J

        For J=5 To 27

        objExcelApp.Cells(3,J).Value=Null

        objExcelApp.Cells(4,J).Value=Null

        objExcelApp.Cells(5,J).Value=Null

        objExcelApp.Cells(6,J).Value=Null

        Next

objExcelApp.DisplayAlerts = False

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set oApp = Nothing

Else

    objExcelApp.Cells(3,I.Value).Value=T1.value

    objExcelApp.Cells(4,I.Value).Value=T2.value     

    objExcelApp.Cells(5,I.Value).Value=T3.value     

    objExcelApp.Cells(6,I.Value).Value=T4.value         

objExcelApp.Cells(7,I.value).Value=T5.value

objExcelApp.Cells(8,I.value).Value=T6.value

objExcelApp.Cells(9,I.value).Value=T7.value

objExcelApp.DisplayAlerts = False

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set oApp = Nothing     

End If

End If

End If

End Function

把定义的变量都放在外面，没有测试过VBS的变量作用域限制不，有可能不对呢