Trao đổi dữ liệu giữa WinCC V7 và MS Excel

[phuc_automation]

Hiện tại em đang học Wincc, phần xuất file excel chưa làm được. Lúc xuất ra, cửa sổ excel vừa hiện ra là tự tắt mất tiêu, trong thư mục đích để lưu file thì cũng không có file nào được tạo ra. Mò hai buổi tối rồi mà chưa ra

Đây là code VB xuất excel:

Sub OnClick(ByVal Item)
Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = True

objExcelApp.Workbooks.Open "G:\AUTOMATION\LAP TRINH\SCADA\tets excel.xlsx"

objExcelApp.Cells(10, 6).Value = ScreenItems("value1").OutputValue
objExcelApp.Cells(10, 7).Value = ScreenItems("value2").OutputValue
objExcelApp.Cells(10, 8).Value = ScreenItems("value3").OutputValue
objExcelApp.Cells(10, 9).Value = ScreenItems("value4").OutputValue

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp = Nothing

End Sub

Mong nhờ các sư huynh chỉ giáo với. Em gửi link bản project test. Huynh nào down về mở ra kiểm tra hộ em với. Rút cuộc là lỗi do đâu? Cách khác phục
Bản test: http://www.mediafire.com/download/fo...ukwgr/test.rar

Nhân tiện gửi luôn link bản demo của một bạn bên dientuvietnam.net ( quên mất luồng nào, tìm mãi không thấy ). Sao bản test của em không nhập được giá trị vào, mà bản demo của bạn "ấy" lại nhập được?
Bản demo: http://www.mediafire.com/download/is...c1zs/demo2.rar

Mong các huynh chỉ ra cái sai của em