第1个回答 2013-04-16
给你个简单的,VB的Referrence里要引用OPCAUTO.dllDim Server As OPCServerDim WithEvents Group As OPCGroupDim Item As OPCItemPrivate Sub Form_Load()Set Server = New OPCServerServer.Connect "OPCServer.WinCC"Set Group= Server.OPCGroups.Add("cc")Debug.Print Group.NameSet Item= Group.OPCItems.AddItem("变量名", 1)Item.Read 1Debug.Print Item.ValueEnd Sub