Chào anh hpecom,
Theo form mẫu Excel em để đầu bài thì lúc trước có tham khảo được một số ví dụ và viết được một đoạn nhỏ - do kiến thức còn yếu nên viết chưa được hay lắm nhưng cũng chạy tạm được.
Em tạo 1 CommandButton và viết code trên đó. Em thấy trong MsVB này có rất nhiều thư viên chuyên dụng của WinCC, nhưng cũng không thể tìm được hết - vì nhiều lý do.

Private Sub CommandButton1_Click()

thongbao = MsgBox("Do you want to create tags?", vbYesNo)
'co muon tao tag hay khong?

If thongbao = vbYes Then

'excel
Dim objExcelApp
Dim TagName
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "D:\Nghien cuu\VB_1\11.xlsx"
'Lay TagName tu excel
TagName = objExcelApp.Cells(2, 2).value
'Lay TagType tu excel
TagType = objExcelApp.Cells(2, 3).value
objExcelApp.ActiveWorkbook.Save

Set objExcelApp = Nothing
'tag
Dim objHMIGO As HMIGO
Set objHMIGO = New HMIGO

'lay tagtype tu excel
If TagType = "TAG_BINARY_TAG" Then TagType = TAG_BINARY_TAG
If TagType = "TAG_SIGNED_8BIT_VALUE" Then TagType = TAG_SIGNED_8BIT_VALUE
If TagType = "TAG_UNSIGNED_8BIT_VALUE" Then TagType = TAG_UNSIGNED_8BIT_VALUE
If TagType = "TAG_SIGNED_16BIT_VALUE" Then TagType = TAG_SIGNED_16BIT_VALUE
If TagType = "TAG_UNSIGNED_16BIT_VALUE" Then TagType = TAG_UNSIGNED_16BIT_VALUE
If TagType = "TAG_SIGNED_32BIT_VALUE" Then TagType = TAG_SIGNED_32BIT_VALUE
If TagType = "TAG_UNSIGNED_32BIT_VALUE" Then TagType = TAG_UNSIGNED_32BIT_VALUE
If TagType = "TAG_FLOATINGPOINT_NUMBER_32BIT_IEEE_754" Then TagType = TAG_FLOATINGPOINT_NUMBER_32BIT_IEEE_754
If TagType = "TAG_FLOATINGPOINT_NUMBER_64BIT_IEEE_754" Then TagType = TAG_FLOATINGPOINT_NUMBER_64BIT_IEEE_754
If TagType = "TAG_TEXT_TAG_8BIT_CHARACTER_SET" Then TagType = TAG_TEXT_TAG_8BIT_CHARACTER_SET
If TagType = "TAG_TEXT_TAG_16BIT_CHARACTER_SET" Then TagType = TAG_TEXT_TAG_16BIT_CHARACTER_SET
If TagType = "TAG_RAW_DATA_TYPE" Then TagType = TAG_TEXT_REFERENCE


' cau truc tao tag
objHMIGO.CreateTag TagName, TagType

' thong bao da tao tag
MsgBox "Tag " & TagName & " is created "

Set objHMIGO = Nothing

Else: MsgBox "OK, Noproblem !!!"
End If
End Sub


Đoạn code trên mới chỉ tạo được từng tag một, và sẽ báo lỗi khi tên Tag bị trùng, Tóm lại đoạn code chưa hoàn thiện.