《WinCC、Excel、VBA、脚本、连通性软件包》 文档中的脚本测试时为何不执行？

代码如下：

Sub get_wincc_data()

    '--Get Database DSN name-----------------------------------

    Set DSNName = CreateObject("CCHMIRuntime.HMIRuntime")

    sDsn = DSNName.Tags("@DatasourceNameRT").Read

    '--build connection string-----------------------------------

    sPro = "Provider=WinCCOLEDBProvider.1;"

    sDsn = "Catalog=" & sDsn & ";"

    sSer = "Data Source=WIN-3Q1JIVTE04V\WINCC"

    sCon = sPro & sDsn & sSer

    Set conn = CreateObject("ADODB.Connection")

    conn.ConnectionString = sCon

    conn.CursorLocation = 3

    conn.Open

    Set oRs = CreateObject("ADODB.Recordset")

    Set oCom = CreateObject("ADODB.Command")

    oCom.CommandType = 1

    Set oCom.ActiveConnection = conn

    '查询启止时间

    sStart = Year(DTPicker1.Value) & "-" & Month(DTPicker1.Value) & "-" & Day(DTPicker1.Value) & " 00:00:00"

    sStop = Year(DTPicker1.Value) & "-" & Month(DTPicker1.Value) & "-" & Day(DTPicker1.Value) & " 23:00:00"

    '转为UTC时间

     sStart = DateAdd("h", -8, CDate(sStart))

     sStop = DateAdd("h", -8, CDate(sStop))

    '读取Fan1_T1

     sSql = "Tag:R,('TT\TEST1'),'" & sStart & "','" & sStop & "' order by datetime"

     oCom.CommandText = sSql

    Set oRs = oCom.Execute

    If (oRs.EOF) Then

       oRs.Close

    Else

        oRs.MoveFirst

        i = 0

        Do While Not oRs.EOF

        Sheet1.Cells(i + 4, 2) = oRs.Fields("RealValue").Value

        oRs.MoveNext

        i = i + 1

        Loop

        oRs.Close

    End If

 '读取Fan1_T2

    sSql = "Tag:R,('TT\TEST2'),'" & sStart & "','" & sStop & "' order by datetime"

    oCom.CommandText = sSql

    Set oRs = oCom.Execute

    If (oRs.EOF) Then

       oRs.Close

    Else

        oRs.MoveFirst

        i = 0

        Do While Not oRs.EOF

        Sheet1.Cells(i + 4, 3) = oRs.Fields("RealValue").Value

        oRs.MoveNext

        i = i + 1

        Loop

        oRs.Close

    End If

 '读取Fan1_P1

    sSql = "Tag:R,('TT\TEST3'),'" & sStart & "','" & sStop & "' order by datetime"

    oCom.CommandText = sSql

    Set oRs = oCom.Execute

    If (oRs.EOF) Then

        oRs.Close

    Else

        oRs.MoveFirst

        i = 0

        Do While Not oRs.EOF

        Sheet1.Cells(i + 4, 4) = oRs.Fields("RealValue").Value

        oRs.MoveNext

        i = i + 1

        Loop

        oRs.Close

    End If

     '读取Fan1_P2

    sSql = "Tag:R,('TT\TEST4 '),'" & sStart & "','" & sStop & "' order by datetime"

    oCom.CommandText = sSql

    Set oRs = oCom.Execute

    If (oRs.EOF) Then

       oRs.Close

    Else

        oRs.MoveFirst

        i = 0

        Do While Not oRs.EOF

        Sheet1.Cells(i + 4, 5) = oRs.Fields("RealValue").Value

        oRs.MoveNext

        i = i + 1

        Loop

        oRs.Close

    End If

Set oRs = Nothing

Set conn = Nothing

End Sub

Private Sub DTPicker1_Change()

clear_cell '清除已经填充的数据

get_wincc_data '读取WinCC历史数据

End Sub

 Sub clear_cell()

 For i = 4 To 27

  For j = 2 To 5

  Cells(i, j) = ""

  Next j

Next i

 End Sub