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

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ích dẫn:

---

Gửi bởi 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.

---

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

Trích dẫn:

---

Gửi bởi daocongdabl

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

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"

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

https://www.youtube.com/watch?v=dkqDWQF0V-I

Trích dẫn:

---

Gửi bởi anhlv.ddt

https://www.youtube.com/watch?v=dkqDWQF0V-I

---

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

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é .

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 giúp em với

Trích dẫn:

---

Gửi bởi 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 giúp em với

---

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

Anh #anhlv.ddt, e chưa hiểu ý anh nói, giải thích dõ hơn đi anh

Có anh nào theo dõi bài biết thì chỉ em với

vấn đề xuất dử liệu wincc sang exel hoặc database access hoặc SQL không khó khăn lắm tài liệu help simens có chỉ hết vấn đề quan trọng là linh động áp dụng code mẩu và thêm kiến thức VB6 chút nửa là giải quyết được hết.Nói chung không riêng gì scada simens mà hình như đa số scada hảng khác cũng vậy muốn linh động cho hệ thống chỉ có viết code thôi chứ các chức năng có sẳn như report thì chuối lắm
Hiện nay mình sử dụng scada+ nhúng vb.net kết hợp crytal report thì vần đề gì làm ra hết
ai quan tâm thì cùng trao đổi nhe [email protected]