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

[minhtruongpham]

Code e tham khảo ở một số bài khác:
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
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
khi e nhập vào compile không lỗi nhưng lúc mở file Excel thì dữ liệu chưa đc truyền vào excel, E không biết về code Vb nên có các cao thủ nào trong nhóm giúp e với.

[daocongdabl]

Code e tham khảo ở một số bài khác:
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
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
khi e nhập vào compile không lỗi nhưng lúc mở file Excel thì dữ liệu chưa đc truyền vào excel, E không biết về code Vb nên có các cao thủ nào trong nhóm giúp e với.

trên chỉ là code mẩu thôi chứ có xử lý dử liệu gì đâu mà ghi được
Muốn ghi được phải sửa lại nhe
đa phần code trong tài liệu của simens chỉ đoạn mẩu chung cho xử lý dử liệu.Muốn chạy được phải chỉnh sửa lại theo yêu cầu từng người nhe

[minhtruongpham]

trên chỉ là code mẩu thôi chứ có xử lý dử liệu gì đâu mà ghi được
Muốn ghi được phải sửa lại nhe
đa phần code trong tài liệu của simens chỉ đoạn mẩu chung cho xử lý dử liệu.Muốn chạy được phải chỉnh sửa lại theo yêu cầu từng người nhe

Code trên e sửa đường link dẫn, thay đổi i/o field, ngoài ra còn gì không anh, vì e không nắm dõ anh chỉ do hơn đc không

[daochidung.hn]

mình nghĩ ở đây bạn nên kiểm tra lại 2 chỗ :
1 . Tên tín hiệu cần xuất ra chuẩn nhất là bạn copy cái I/O Field từ wincc và paste vào code .
2 . Đường dẫn xem định dạng file excel là dạng gì nếu excel 2007 thì là đuôi .xlsx chứ không phải đuôi xls nhé .

[minhtruongpham]

Em cũng mới làm đc. Thanks anh #daochidung.hn. Cho e hỏi thêm tý nữa. Em xuất file này ra Excel nhưng làm sao có thể lưu trữ dữ liệu theo ngày đc ạ. ( Vì mỗi lần e lưu nó lại Replace, như vậy dữ liệu cũ bị mất). Có anh nào biết

[anhlv.ddt]

Em cũng mới làm đc. Thanks anh #daochidung.hn. Cho e hỏi thêm tý nữa. Em xuất file này ra Excel nhưng làm sao có thể lưu trữ dữ liệu theo ngày đc ạ. ( Vì mỗi lần e lưu nó lại Replace, như vậy dữ liệu cũ bị mất). Có anh nào biết

Muốn lưu trữ theo ngày thèo mình bạn chủ động tạo file có tên theo định dạng ngày tháng tạo , ví dụ: data_29_8_9_2016.xls

[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"

[anhlv.ddt]

[daocongdabl]

Ok Việt anh. Cần tài liệu loại nào mail cho mình mình hướng dẩn cho
mình cũng gửi Việt anh vài code mẩu qua mail tham khảo nhe

[anhlv.ddt]

Anh Đà ơi anh có tài liệu về cái này cho em xin vào email nhé: [email protected] em đang làm trên wincc flexible cũng tạm tạm rồi