Set DSNName = CreateObject("CCHMIRuntime.HMIRuntime")
     sDsn = DSNName.Tags("@DatasourceNameRT").Read'读取当前使用数据库，一定要加两句脚本，官方文档就没有

官方的代码是在WINCC的脚本编辑器中编写的，自己识别该对象，你是在EXCEL VBA中编写的代码。

这行代码也不是必须的，只要因引用了 WinCC  HMIRuntime 1.0 Type Library 就可象在WinCC 的VBS脚本编辑器中一样使用该对象 HMIRuntime。第一行代码可以省去，第二行代码做下面需改：

sDsn =HMIRuntime.Tags("@DatasourceNameRT").Read   也可以。

加第一行代码是你的文档如果拷贝给别人，别人不需要再引用该对象库，实际上就是你加了这行代码，别人的电脑中没有该对象库也是没办法用的。