当前位置：工控论坛 > > 产品 > PLC > 西门子(Siemens)PLC

WinCC与Excel的互连(VBS原创) 点击：1110 | 回复：8



清朝

    
  • 精华：0帖
  • 求助：0帖
  • 帖子：37帖 | 1359回
  • 年度积分：0
  • 历史总积分：2281
  • 注册：2004年10月16日
发表于：2007-08-09 12:33:00
楼主
看了论坛中其他WinCC与Excel的互连的文章，我也把另一种途径与大家分享，虽然复杂一点，但是运行还算稳定，读写方便。
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'
Dim NO
Set NO = HMIRuntime.Tags("NO")
Dim TrackNO
Set TrackNO = HMIRuntime.Tags("TrackNO")
Dim Company
Set Company = HMIRuntime.Tags("Company")
Dim SheetNO
Set SheetNO = HMIRuntime.Tags("SheetNO")
Dim Product
Set Product = HMIRuntime.Tags("Product")
Dim SetPoint
Set SetPoint = HMIRuntime.Tags("SetPoint")

objExcelApp.Workbooks.Open"D:\UCC\data\Book1.xls"
NO.Value = objExcelApp.Cells(2,1).Value
TrackNO.Value = objExcelApp.Cells(2,2).Value
Company.Value = objExcelApp.Cells(2,3).Value
SheetNO.Value = objExcelApp.Cells(2,4).Value
Product.Value = objExcelApp.Cells(2,5).Value
SetPoint.Value = objExcelApp.Cells(2,6).Value

objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing

NO.Write 
TrackNO.Write 
Company.Write 
SheetNO.Write
Product.Write
SetPoint.Write 

分享到：
收藏 邀请回答 回复楼主 举报



清朝

  • 精华：0帖
  • 求助：0帖
  • 帖子：37帖 | 1359回
  • 年度积分：0
  • 历史总积分：2281
  • 注册：2004年10月16日
发表于：2007-08-09 12:37:00
1楼
如果各位想做数据归档，也可通过VBS将变量存到Server2000或者Access数据库中，一条一条存储，Excel是很难做到的，如果大家有需要的话，我会把代码发上来和大家共同学习。在我以前的论文中有提到，欢迎大家阅读。
回复 引用 举报

小龙俺

  • 精华：0帖
  • 求助：0帖
  • 帖子：36帖 | 228回
  • 年度积分：0
  • 历史总积分：339
  • 注册：2005年6月16日
发表于：2007-09-13 22:28:00
2楼
我需要，能不能麻烦你通过邮箱发给我！hacklongping@yahoo.com.cn
先谢谢了！
回复 引用 举报

维护PLC

  • 精华：0帖
  • 求助：0帖
  • 帖子：22帖 | 43回
  • 年度积分：0
  • 历史总积分：0
  • 注册：1900年1月01日
发表于：2007-09-21 21:16:00
3楼
我也急需要此代码，能不能通过邮箱发过来一份，谢谢！
jxw134@163.com
回复 引用 举报

木影

  • 精华：0帖
  • 求助：0帖
  • 帖子：4帖 | 11回
  • 年度积分：0
  • 历史总积分：23
  • 注册：2007年7月15日
发表于：2007-09-24 09:26:00
4楼
也给我一份吧,我现在正在做这方面的.
我的邮箱是:forestlier@qq.com
回复 引用 举报

奇才异人

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 9回
  • 年度积分：0
  • 历史总积分：9
  • 注册：2005年8月04日
发表于：2007-09-28 16:42:00
5楼
也发给我一份吧？
sun_changdong@sina.com.cn
谢谢！
回复 引用 举报

小小生

  • 精华：0帖
  • 求助：0帖
  • 帖子：5帖 | 223回
  • 年度积分：0
  • 历史总积分：342
  • 注册：2003年12月02日
发表于：2007-10-08 13:41:00
6楼
对VBA不熟悉，能有个详细例子说明就好了
回复 引用 举报

浊酒醉

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 9回
  • 年度积分：0
  • 历史总积分：19
  • 注册：2005年8月04日
发表于：2007-10-10 09:41:00
7楼
你这个是最基本的啊!我想问问大侠怎么解决时间的记录问题的!谢谢!
回复 引用 举报

407715278qq

  • 精华：0帖
  • 求助：0帖
  • 帖子：5帖 | 26回
  • 年度积分：0
  • 历史总积分：21
  • 注册：2011年11月28日
发表于：2011-12-02 16:51:29
8楼
有个疑问，如果我想把一个变量里的值填写到两个表格该怎么填写呢
回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师