我想在报表打印中打印出EXCEL表格。怎么做呢。看了不少这个方便的书，我没有做出一个来。感觉编辑器很难用呀。请大家帮忙。
我就是想做一个固定样式的表格，直接把数据采集到里面，到时候直接打印就可以了。当然，如果可以在里面处理数据就更好了。
最佳答案
1、读取WinCC画面中"IOField1"控件的Tag数值写入"D:\ExcelExample.xls"目录的Excel文件中。示例如下：
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "D:\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
2、如果是读取"D:\ExcelExample.xls"目录的Excel文件中的数据写入WinCC画面中，"IOField1"控件连接的Tag变量显示，则需替换“objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue”代码即可。示例如下：
Dim objTag1
Set objTag1 = HMIRuntime.Tags("Tag1") //Tag1是“IOField1”控件连接的标签（即Tag）名称
objTag1.Value ＝objExcelApp.Cells(4, 3).Value
objTag1.Write--------引用剑忠回答.在这里感谢他.
<<WinCC与Excel,VB的本地DDE通讯（更新版）>>
<<如何将 Excel 表格中的 STEP 7 变量导入到 DB 块中？>>
http://www.ad.siemens.com.cn/service/search/
提问者对于答案的评价：
我会仔细研究一下
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc270252.html
微信扫一扫 
支付宝扫一扫