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

[khoadang87]

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á!

[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

[ncrazy]

^_^ vb trong wincc ko phải là vb đâu, nó chỉ là vbs thôi, nó không có kiểu static như vb6

[Automation_plc]

^_^ vb trong wincc ko phải là vb đâu, nó chỉ là vbs thôi, nó không có kiểu static như vb6

Bác có tài liệu nào nói về vấn đề này ko cho em xin ngâm cứu với? Cám ơn!

[thiquocvinh]

^_^ vb trong wincc ko phải là vb đâu, nó chỉ là vbs thôi, nó không có kiểu static như vb6

Không có static thì mình khai báo 1 kiểu khác. Chẳng qua khai báo static trong vb cho phù hợp thôi, có thể dùng khai báo i = int

Không có gì có sẵn cả, phải chế biến, mầy mò mới ra được chứ

[daocongdabl]

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á!

Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
'ExcelExample.xls is to create before executing this procedure.
'Replace with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "D:\baocao.xls "
objExcelApp.Cells(2, 2).Value = SmartTags(" volt")
objExcelApp.Cells(2,3).Value = SmartTags(" ampe")
objExcelApp.Cells(2, 4).Value = SmartTags(" luu_luong")
objExcelApp.ActiveWorkbook.SaveAs "D:\ bao cao + hàm ngày +hàm giờ là ok"

objExcelApp.Workbooks.Close
objExcelApp.Quit


Set objExcelApp = Nothing


code trên test chạy ok với wincc flexible ,wincc chưa thử ,nhưng mình thấy phần trên code cũng giống hệt wincc thôi
bạn phải tạo 1 bít xung từ phần mềm hay từ wincc cũng ok
cứ 1 phút hoặc 1 giờ... thì gọi code một lần ,cứ 1 lần gọi thì thì wincc ghi giá trị xuống exel(kiểu này thích hợp xuất theo phiếu báo cáo)
còn muốn xuất kiểu data thì thêm chút mắm muối vào code trên cứ 1 lần bít xung on thì số liệu từ wincc sẻ ghi xuống 1 hàng ngang tương ứng
và cứ thế tạo xung 24 lần (1 lần là tương ứng 1 giờ )thì có số liệu trong bảng ghi xuống exel báo cáo đầy đủ cả 24 hàng tương ứng 1 giờ
còn bạn thấy dòng code "D:\ bao cao + hàm ngày +hàm giờ là ok"
nói lên là tên file lưu trử sẻ bằng ngày tháng năm .nếu qua ngày hôm sau sẻ tự động có 1 file khác tương ứng thôi

chúc bạn thành công

nói chung mấy kiến thức này tự mình sẻ ngâm lấy đi ,nó là kiến thức nâng cao của hệ thống scada
nên hầu như không ai chỉ cụ thể đâu ,chỉ đúng hướng cho mình ngâm cứu là quá ok rồi ,chẳng qua gì nồi cơm thôi các bác ạ

[kubotapro]

thanks ban nhieu.

[Automation_plc]

Các bác cho em hỏi thêm chút nữa là mình có thể xuất giá trị của Tag ra Excel đc ko ah? Nếu đc thì viết ntn ah? Cám ơn các bác trước.

[buihoannute]

Xin chào các bạn, tôi cũng đang làm một chương trình về việc kết nối điều khiển giữa VBA và PLC S7 -300 của siemens nhưng chưa có tài liệu gì cũng như hướng dẫn gì rất mong các bạn giúp đỡ cho.
Tôi xin cám ơn nhiều.

[anhnamhm]

Anh ơi em dùng office 2010 có xuất được không anh? Với em muốn xuất dữ liệu có ngày tháng thì phải làm sao hả anh?