Problems in create connection Excel to WinCC (using Configuration Tool)

Hello People.
I have a problem. I don't can creat a connection in Excel 2007 and WinCC V6.0.
When I create a connection, appears threemessages in attach.
Anyone help me? How can I solve my problem?
Thanks a lot. Regards.

If you want to import tags and alarms only, you can use the WinCC Tool Tag Export/Import and function Import Alarms in Alarms Logging.

Jaromir

Dear Jaromir,

Your solution is absolutely correct. But in most of the cases we need to Log the Tags in real time.
Moreover in using the tool TAG EXPORT IMPORT, WinCC exports all the tags which may include unnecessary ones also.

So there will be a huge compilation of information.

Depending on requirement we can select specific tags and only export them.

I am giving the code which is Tag specific:


Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objExcelApp
Dim objWorkSheet
Dim objTag
Dim objTag1
Dim objTag2
'---------------------
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True 'Set False if you do not want to see Excel opening
'ExcelExample.xls is to create before executing this procedure.
'Replace <path> with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "C:\New Folder\ExcelExample.xls"
Set objWorkSheet = objExcelApp.Activeworkbook.Worksheets(1)
'-------------------

'Read data from WinCC tag and write to excel
Set objTag = HMIRuntime.Tags("MT/SETP_HMI_HELPDB.COIL_ID") //name of tags
objTag.Read
objWorkSheet.Cells(4,3).Value = objTag.Value
Set objTag1 = HMIRuntime.Tags("MT/SETP_HMI_HELPDB.THICKNESS")
objTag1.Read
objWorkSheet.Cells(4,4).Value = objTag1.Value
Set objTag2 = HMIRuntime.Tags("MT/SETP_HMI_HELPDB.WIDTH")
objTag2.Read

objWorkSheet.Cells(4,5).Value = objTag2.Value
'-------------------

'Close Excel and reset all objects
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objTag = Nothing
Set objTag1 = Nothing
Set objTag2 = Nothing
Set objWorkSheet= Nothing
Set objExcelApp = Nothing
End Sub