excel通过DDE读取WINCC变量数据后，可以读到数据，并编写VB宏程序实现5秒自动保存变量数据，但excel一运行宏命令，保存的数据就不能自动更新了，保存的数据不变。不知道是什么原因？excel的VB宏命令如下：
Sub autosave()
Dim wincc As Worksheet
Set wincc = Worksheets("F2")
Dim i As Integer
i = 1
For i = 1 To 3
Application.Wait (Now + TimeValue("0:00:05"))
nextrow = wincc.Range("A65536").End(xlUp).Row + 1
wincc.Range("A3:D3").Copy wincc.Cells(nextrow, 1)
wincc.Cells(nextrow, 1).Value = wincc.Cells(nextrow, 1).Value
wincc.Cells(nextrow, 2).Value = wincc.Cells(nextrow, 2).Value
wincc.Cells(nextrow, 3).Value = wincc.Cells(nextrow, 3).Value
wincc.Cells(nextrow, 4).Value = wincc.Cells(nextrow, 4).Value
Next i
End Sub
问题补充：
我是想问宏命令一运行，保存的数据都是一样的，怎么才能正确保存历史数据。请高手指点一二，试了好久都不行。。好苦恼
最佳答案
1、《如何导出和重新导入WinCC 运行时数据》：
http://www2.ad.siemens.com.cn/download/Upload/AS/faq/850338.pdf
《如何在Excel中访问WinCC变量归档数据》：
http://www2.ad.siemens.com.cn/download/Upload/AS/application/A0567.rar
《WINCC数据报表实现方法》：
http://www2.ad.siemens.com.cn/download/Upload/AS/application/A0300.pdf
《WinCC与Excel,VB的本地DDE通讯（更新版）》：
http://www2.ad.siemens.com.cn/Download/Upload/AS/application/A0106.pdf
使用OLE将WinCC归档数据导出到Excel ：
http://wenku.baidu.com/view/ecb8bdc10c22590102029dbf.html
WinCC和EXCEL数据传递：
http://wenku.baidu.com/view/355146e69b89680203d825cc.htm
2、可以参考同类问题的解答：
http://www.ad.siemens.com.cn/service/answer/solution.asp?Q_id=65992&cid=1032
http://210.51.187.41/Service/answer/solution.asp?Q_id=47914&cid=1032
提问者对于答案的评价：
问题还是没解决。。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc264660.html
微信扫一扫 
支付宝扫一扫 