http://www.ad.siemens.com.cn/download/OnlineReading.aspx?DocId=5907

https://support.industry.siemens.com/cs/document/71676391/wincc、excel、vba、脚本、连通性软件包?dti=0&lc=zh-CN

实例如链接所示，实例小样已经下载下来并修改为本地的wincc运行库名称和本地计算机名称，变量路径也修改了，但是无法读取到变量值。到如下所示的程序段时就会跳出。

Set oRs = oCom.Execute

    If (oRs.EOF) Then   ----------（1）

       oRs.Close        ----------（2）

    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            ----------（3）

调试过程直接从（2）跳到（3），中间部分没有执行。我认为应该是没有读到数。

联系到另一个实例中：

https://support.industry.siemens.com/cs/document/35840700/使用-wincc-ole-db-provider-导出-wincc-cas-归档数据?dti=0&lc=zh-CN

技术文档下载下来，实例也下载下来了，但是太复杂了，这个实例可以把wincc中所有归档变量名读到excel中，并选择变量名读取变量值，仿照这个实例用到第一个实例中也可以读到所有的变量名，说明数据库连接是正确的。

我现在的问题是：需要第一个实例能够实现，第二个实例可以作为它的参考资料。这个问题我断断续续看了半年了，也没解决，急求大神解惑呀。万分感激。