我想用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
微信扫一扫 
支付宝扫一扫 