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

[daocongdabl]

Mình mới tìm hiểu WinCC V7 được một thời gian. Bây giờ đang tìm cách xuất dữ liệu từ WinCC V7.0 SP2 sang MS Excel.
Mình có đọc được một đoạn code trong phần . Mọi người cùng thảo luận nha.

MS Excel
In this example, an output value from an input field is written in an Excel table

'VBS113
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'
'ExcelExample.xls is to create before executing this procedure.
'Replace <path> with the real path of the file ExcelExample.xls.
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


Tài liệu tham khảo: HD kết nối WinCC 7 - MsExcel 07: http://www.mediafire.com/view/?7ct6na9tjb6o6v5

mình góp ý các bác nếu muốn gọi luôn file exel ra xem thì đoạn code trên bỏ luôn 2 dòng objExcelApp.Workbooks.Close và
objExcelApp.Quit
dạng xuất này là dạng xuất theo phiếu định dạng trước
nếu muốn xuất 1 lần 1 phiếu thì trên đoạn code trên tại dòng
objExcelApp.ActiveWorkbook.Save sửa lại là objExcelApp.ActiveWorkbook.Saveas +số lần xuất từ 1 tag sẻ ra như ý muốn
và cũng từ đoạn code trên thêm 1 chút mắn ,muối vào nửa nó sẻ cho ra phiếu xuất theo ngày tháng báo cáo
ngoài ra cách xuất theo phiếu thì wincc còn 1 dạng xuất theo data
là cứ 1 lần xuất sẻ ghi xuống 1 dòng và 1 ngày hoặc 1 tháng cho ra 1 file báo cáo
lưu ý để cho file báo cáo có dung lượng nhỏ ngoài cách sử dụng dạng exel gốc kiểu file.xls hoặc xlsx thì có thể dùng kiểu file.csv cho file báo cáo dung lượng nhỏ để tiện lưu trử