Lỗi code Vb xuất dữ liệu từ WinCC V13 xuống Excel

[daocongdabl]

Code e tham khảo ở một số bài khác:
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "<path>\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
khi e nhập vào compile không lỗi nhưng lúc mở file Excel thì dữ liệu chưa đc truyền vào excel, E không biết về code Vb nên có các cao thủ nào trong nhóm giúp e với.

trên chỉ là code mẩu thôi chứ có xử lý dử liệu gì đâu mà ghi được
Muốn ghi được phải sửa lại nhe
đa phần code trong tài liệu của simens chỉ đoạn mẩu chung cho xử lý dử liệu.Muốn chạy được phải chỉnh sửa lại theo yêu cầu từng người nhe