将数据库数据显示到WINCC中的微软的spreedsheet表格控件

 Dim objCommand

 Dim objRecordset

 Dim strConnectionString

 Dim strSQL

 Dim lngValue

 Dim lngCount

 Dim xlapp

 Dim xlsheet

 Dim xlbook

 strConnectionString = "Provider=MSDASQL;DSN=test;DATABASE=linhe;UID=sa;PWD=linhe;" 

 strSQL = "select PF01AITATT0101 from lh where dt ='2009-06-26 8:53:00'" 

 Set objConnection = CreateObject("ADODB.Connection")

 objConnection.ConnectionString = strConnectionString

 objConnection.Open

 Set objRecordset = CreateObject("ADODB.Recordset")

 Set objCommand = CreateObject("ADODB.Command")

 objCommand.ActiveConnection = objConnection

 objCommand.CommandText = strSQL

 Set objRecordset = objCommand.Execute

 lngCount = objRecordset.Fields.Count

 If (lngCount>0) Then

 Dim xlspreadsheet

 Set xlspreadsheet=ScreenItems("control")

 xlspreadsheet.Range("a1:af65536").ClearContents

 xlspreadsheet.Range("a65536").End(xlUp).Offset(1).CopyFromRecordset objCommand.Execute
 'A列的最后一个有数据单元格向下偏移量为1行的单元格
 '运行到这个地方时,脚本就运行不下去了
 Else

 HMIRuntime.Trace "Selection returned no fields" & vbNewLine 

 End If

 Set objCommand = Nothing

 objConnection.Close

 Set objRecordset = Nothing

 Set objConnection = Nothing

 End Sub

 我想问问论坛里的高手,不运行的那句脚本有点什么语法问题。
 涉及到EXCEL的知识，我自己不熟悉，所以我想可能问题就出在这里。