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

[daocongdabl]

Sub OnClick(Byval Item)
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "E:\WINCC\ExcelExample.xls"
objExcelApp.Cells(4, 3).Value = ScreenItems("I/OField1").OutputValue
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
Code này viết cho 1 nut BUTON và Tạo trước file và bỏ vào đường dẩn "E:\WINCC\ExcelExample.xls"