投稿
  1. 找知识-找PLC首页
  2. 自动化系统
  3. SIMATIC WinCC

请教Wincc怎样读写Excle，做报表用

• SIMATIC WinCC

我想用wincc对Excle读写，看到别人的代码我拷过去但是不能使用，我用的是这段代码（Dim objExcelApp,oWorkBook
  Set objExcelApp = CreateObject("Excel.Application")
  objExcelApp.Visible = False 'True
  Set oWorkBook = objExcelApp.Workbooks.Open("d:\AA.xls")
  Dim iBlankLine 
  iBlankLine = oWorkBook.ActiveSheet.Columns(1).Find("").Row '查找第一列的空行
  'MsgBox iBlankLine
   objExcelApp.Cells(iBlankLine, 1).Value = ScreenItems("tag1").OutputValue
   objExcelApp.Cells(iBlankLine, 2).Value = ScreenItems("tag2").OutputValue
      objExcelApp.Cells(iBlankLine, 3).Value = ScreenItems("tag3").OutputValue
  oWorkBook.Save
  objExcelApp.Workbooks.Close
  objExcelApp.Quit
  Set objExcelApp = nothing

 Set oWorkBook =objExcelApp.Workbooks.Add
 oWorkBook.SaveAs "D:\ExcelExample.xls"

 ）不知道为什么？是不是需要添加什么控件请指教

问题补充：
哪位高手有这个例子能给我一份吗？谢谢
 wzw2008_80@126.com

最佳答案

需要建立DDE连接。
 我可以给你发个例子。

提问者对于答案的评价：
谢谢学长

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276652.html

赞 (0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
0 0
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐