WinCCºÍEXCEL´óÊý¾Ý´«µÝ

ʵÓÃÎĵµ

1¡¢DDE¼ò½é

¶¯Ì¬Êý¾Ý½»»»£¨DDE£©ÊÇ»ùÓÚWindowsµÄÏûÏ¢»úÖÆ£¬Á½¸öWindowsÓ¦ÓóÌÐòͨ¹ýÏ໥֮¼ä´«µÝÏûÏ¢½øÐС°¶Ô»°¡±£¬ÕâÁ½¸ö³ÌÐò±»·Ö±ð³ÆÎª¡°·þÎñÆ÷¡±ºÍ¡°¿Í»§¡±¡£DDE·þÎñÆ÷ÊÇÒ»¸öά»¤×ÅÆäËûWindows³ÌÐò¿ÉÄÜʹÓõÄÊý¾Ý³ÌÐò£¬¶øDDE

¿Í»§ÔòÊÇ´Ó·þÎñÆ÷»ñµÃÕâЩÊý¾ÝµÄ³ÌÐò¡£

DDE¶Ô»°ÊÇÓɿͻ§³ÌÐò·¢¶¯µÄ¡£¿Í»§³ÌÐò½«Ò»Ìõ³ÆÎªWM_DDE_INTITIATEµÄÏûÏ¢·¢¸øµ±Ç°ÔËÐеÄËùÓÐWindows³Ì

Ðò£¬ÕâÌõÏûÏ¢Ö¸Ã÷Á˿ͻ§³ÌÐòËùÐèÒªµÄÊý¾ÝÀà±ð£¬ÓµÓÐÕâЩÊý¾ÝµÄDDE·þÎñÆ÷¿ÉÒÔÏìÓ¦ÕâÌõÏûÏ¢£¬ÕâÑùÒ»¸ö¶Ô»°¾Í¿ªÊ¼

ÁË¡£

DDEµÄ¶Ô»°·½Ê½ÓÐ3ÖÖ: ¢Ù·þÎñÆ÷Êý¾Ý±ä»¯Ê±£¬Ö±½Ó°ÑÊý¾ÝË͸ø¿Í»§£¬Óɿͻ§¶ÔÕâЩÊý¾Ý½øÐд¦Àí£¬ÕâÀà¶Ô»°·½Ê½³ÆÎªÈÈÁ´£»¢Ú·þÎñÆ÷µÄÊý¾Ý±ä»¯Ê±£¬·þÎñÆ÷֪ͨ¿Í»§£¬ÔÙÓɿͻ§È¡Êý¾Ý£¬ÕâÖÖ·½Ê½³ÆÎªÎÂÁ´£» ¢ÛÓɿͻ§ÉêÇëÊý¾Ý¡¢

·þÎñÆ÷·¢ËÍÊý¾ÝµÄ·½Ê½³ÆÎªÀäÁ´¡£

Ò»¡¢Wincc×÷ΪDDEµÄ¿Í»§¶Ë£¬Excel×÷ΪDDE·þÎñÆ÷£¨±¾µØ£©

1¡¢ÔÚ±äÁ¿¹ÜÀíÉϰ´Êó±êÓÒ¼ü£­£­Ìí¼ÓеÄÇý¶¯³ÌÐò£­£­Ñ¡¡°windows dde.chn¡±

ͼ1

2¡¢ÔÚDDEÉϰ´Êó±êÓÒ¼ü£­£­ÐÂÇý¶¯³ÌÐòÁ¬½Ó£­£­µãÊôÐÔ£¬ÔÚÆäÁ¬½ÓÊôÐÔÖУº

¡°¼ÆËã»úÃû³Æ¡±Îª¿Õ£»¡°Ó¦ÓóÌÐò¡±Îªexcel£»¡°Ö÷Ì⡱Ϊ[]¹¤×÷±íÃû£¬±ÈÈç[DDE.xls]sheet1¡£

ʵÓÃÎĵµ

ͼ2

3¡¢ÔÚDDE\\excelϽ¨±äÁ¿£¬ÔÚ±äÁ¿ÊôÐÔÖÐÑ¡ÔñµØÖ·£¬ÌõÄ¿Ãû³ÆÌrÐÐÊýcÁÐÊý£¬±ÈÈçr1c1£¨±íʾµÚÒ»ÐÐ

µÚÒ»Áеĵ¥Ôª¸ñ£©£¬Öظ´²½Öè3¿ÉÒÔ¼ÓÈë¸ü¶àµÄDDE±äÁ¿

ͼ3

4¡¢Excel³ÌÐò

ͼ4 Wincc³ÌÐò

ͼ5 £µ Íê³É

ʵÓÃÎĵµ

ÓÃOPC×ö±È½Ïʡʡ£

WinCC×öOPC Server£¬Excel×öOPC Client¡£

ÕâÖÖÇé¿öÏ£¬WinCC¶Ë²»ÐèÒª×öÈκÎÉèÖã¬Ö»ÒªÔÚExcel ÀïÓÃÉÙÁ¿µÄ´úÂë¾ÍÄÜʵÏÖË«·½µÄͨѶ¡£

¶ÔÓÚWINCCÓëS7-300µÄͨѶ£¬Ê×ÏÈҪȷ¶¨PLCµÄͨѶ¿ÚÀàÐÍ£¬PLCÒ»°ã¶¼¼¯³ÉÁËMPI/DP¿Ú£¬»¹¿ÉÒÔ°²×°Í¨Ñ¶Ä£¿é¡£¼ÆËã»ú£¨PC£©Éϰ²×°Êʵ±µÄͨѶ¿¨£¨²»Í¬µÄͨѶ¿¨Ö§³ÖµÄͨѶЭÒ鲻ͬ£©¡£¿´ÄãÐèÒªÀ²£¡

Æä´ÎÊÇWINCCÈí¼þÀïµÄͨѶЭÒéÒªÓëPC»ú¶ÔÓ¦¡£WINCCÌṩÁËSIMATIC S7 PROTOCOL SUITE ͨѶÇý¶¯³ÌÐò£¬°üº¬Á˶àÖÖͨѶЭÒ飡

×îÖÕ»¹ÓÐ×Ô¼ºÇ××Ôʵ¼Ê²Ù×÷Á˲ÅÓÐÉî¿ÌµÄÁ˽âµÄ£¡£¡

Sub X6309X94AE9X0000X6539_OnClick(Byval Item)

Dim fso,myfile

Set fso = CreateObject(\

Set MyFile = fso.GetFile(\

Dim ObjExcelApp

Set objExcelApp = CreateObject(\

'objExcelApp.Visible = True objExcelApp.Workbooks.Open MyFile

'ÉÏÃæµÄ³ÌÐò¶ÎÊÇΪÁË´ò¿ªdÅÌϽÐExcelcode.xlsÃû×ÖµÄexcelÎļþ

objExcelApp.worksheets (\

objExcelApp.ActiveWorkbook.Save

'ÉÏÃæÁ½ÐеÄ×÷ÓÃÊǽ«wincc±äÁ¿\µÄֵдµ½Excel±íÖеÄA1¸ñ×ÓÀïÃæ£¬²¢ÇÒ±£³ÖÒ»ÏÂ

Dim coldold

Set coldold=HMIRuntime.Tags(\

coldold.Value = objExcelApp.worksheets (\

'ÉÏÃæÕâÁ½¾äµÄ×÷ÓÃÊǽ«¸Õ²Å±£³Öµ½Excel±í¸ñÖеÄÊý¾ÝÖØÐ¶Á»Øwincc£¬´æµ½\±äÁ¿ÖУ¬µ±È»ÏÖÔÚÆäʵ²¢

ûÓдæÈë\±äÁ¿£¬Ö»ÊÇ´æÔÚÁ˽ÐcoldoldµÄÁÙʱ±äÁ¿ÀïÃæ

objExcelApp.Workbooks.Close

objExcelApp.Quit Set ObjEXceLapp = Nothing

'µ½ÕâÀïΪֹ£¬ÎÒÃÇ¿ÉÒÔͨ¹ýÉÏÃæµÄÓï¾ä¹Ø±Õ¸Õ²Å´ò¿ªµÄexcel³ÌÐòÁË

coldold.Write

'×îºóÊǰѶÁµ½µÄexcelÖµ´ÓÁÙʱ±äÁ¿coldoldÖÐдÈëËü¶ÔÓ¦µÄ\±äÁ¿ÖÐ

End Sub

ÁªÏµ¿Í·þ£º779662525#qq.com(#Ìæ»»Îª@) ËÕICP±¸20003344ºÅ-4