今晚继续学习Wincc下面使用VBA创建变量分组，分组下创建多个变量。新浪审核有点慢，我在这里先发表了。

在变量管理中新建一个S7 连接，配置好连接参数，这个不能通过VBA创建。

打开wincc页面，在VBA编辑器下写下面的脚本：

Sub addtags()
Dim hmigo As hmigo
Dim strTagGroup As String
Dim strTagName As String
Dim strAddress As String
Dim i As Integer
Set hmigo = New hmigo
'创建10个浮点数变量
For i = 1 To 10
strTagName = "Real" & CStr(i) '变量名字
strAddress = "DB1.DD" & CStr((i - 1) * 4)
hmigo.CreateTag strTagName, TAG_FLOATINGPOINT_NUMBER_32BIT_IEEE_754, "NewConnection_1", strAddress, "TagGroup"
Next
Set hmigo = Nothing

End Sub

保存，运行，就会在NewConnection_1连接下自动创建Taggroup变量组（这个组也可以手动创建），在这个变量组下面创建10个real变量，并且分配连接的PLC地址。

CreateTag 语法参数有变量名，变量数据类型，所属的连接，所属的变量组。

变量类型表达方法如下：

后面的学习笔记会继续变量其他属性设置。