-
Thành viên cấp 1
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.
-
-
Thành viên cấp 9
![Trích dẫn](images/styles/lifeSpace/misc/quote_icon.png)
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
-
Bài viết của "daocongdabl" đã được cám ơn bởi các thành viên:
-
Thành viên cấp 1
![Trích dẫn](images/styles/lifeSpace/misc/quote_icon.png)
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
-
-
Thành viên cấp 9
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"
-
-
Thành viên Đồng
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
-
-
Thành viên Đồng
-
-
Thành viên cấp 9
![Trích dẫn](images/styles/lifeSpace/misc/quote_icon.png)
Gửi bởi
anhlv.ddt
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
Lần sửa cuối bởi daocongdabl, ngày 09-26-2016 lúc 01:09 PM.
-
-
Thành viên cấp 1
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é .
-
Bài viết của "daochidung.hn" đã được cám ơn bởi các thành viên:
-
Thành viên cấp 1
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
-
-
Thành viên Đồng
![Trích dẫn](images/styles/lifeSpace/misc/quote_icon.png)
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
![đừng bỏ em](images/smilies/babysoldier/dungboem.gif)
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
-
Bài viết của "anhlv.ddt" đã được cám ơn bởi các thành viên:
Quyền viết bài
- Bạn Không thể gửi Chủ đề mới
- Bạn Không thể Gửi trả lời
- Bạn Không thể Gửi file đính kèm
- Bạn Không thể Sửa bài viết của mình
-
Nội quy - Quy định
Back to Top
Múi giờ GMT +7. Bây giờ là 09:01 AM.
Phiên bản 4.2.5
Phát triển bởi thành viên PLCVietNam®.
Đánh dấu