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

我想用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)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐