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

[thiquocvinh]

Bác nào có project xuất dữ liệu dạng thống kê theo ngày tháng thì up lên cho em xin với, đang cần gấp quá!

code của WinCC thì chưa làm, nhưng dùng trong VB6.0 cũng tựa tựa vậy thôi.
Bạn tham khảo, chỉ cần đổi lại đường link dẫn file excel.

hinh 11.png
Code trong Xuat Du Lieu 1
Dim objExcelApp
Static i
i = i + 1
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "C:\Users\thiquocvinh\Desktop\VB_1\Vinh_Vb1.xl sx"
'lay ngay thang nam
objExcelApp.cells(i + 1, 1).Value = Date
'lay gio phut giay
objExcelApp.cells(i + 1, 2).Value = Time
'lay du lieu tu man hinh 1
objExcelApp.cells(i + 1, 3).Value = mh
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing