Đăng Ký
Trang 1 của 2 12 CuốiCuối
Kết quả 1 đến 10 của 13

Hybrid View

  1. #1
    Thành viên cấp 1
    Ngày tham gia
    Mar 2016
    Bài viết
    10
    Thanks
    3
    Thanked 1 Time in 1 Post

    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.

  2. #2
    Thành viên cấp 9
    Ngày tham gia
    Apr 2011
    Bài viết
    954
    Thanks
    22
    124 lượt trong 97 bài viết
    Trích dẫn Gửi bởi minhtruongpham Xem bài viết
    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

  3. Bài viết của "daocongdabl" đã được cám ơn bởi các thành viên:


  4. #3
    Thành viên cấp 1
    Ngày tham gia
    Mar 2016
    Bài viết
    10
    Thanks
    3
    Thanked 1 Time in 1 Post
    Trích dẫn Gửi bởi daocongdabl Xem bài viết
    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

  5. #4
    Thành viên cấp 1
    Ngày tham gia
    Nov 2014
    Bài viết
    36
    Thanks
    8
    5 lượt trong 5 bài viết
    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é .

  6. Bài viết của "daochidung.hn" đã được cám ơn bởi các thành viên:


  7. #5
    Thành viên cấp 1
    Ngày tham gia
    Mar 2016
    Bài viết
    10
    Thanks
    3
    Thanked 1 Time in 1 Post
    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

  8. #6
    Thành viên Đồng
    Ngày tham gia
    Mar 2011
    Đang ở
    Nếu có vấn đề gì hỏi thì làm ơn đưa lên diễn đàn nhé
    Bài viết
    1,879
    Thanks
    159
    231 lượt trong 198 bài viết
    Trích dẫn Gửi bởi minhtruongpham Xem bài viết
    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
    Cung cấp Hidden Content ,Hidden Content ,vật tư tự động hóa cũ và mới
    Liên hệ: Hidden Content
    website: Hidden Content
    __________________________________________________ ___________________
    Phone: 0912888729 - 0985888729
    Y.M: codientuhd

  9. Bài viết của "anhlv.ddt" đã được cám ơn bởi các thành viên:


  10. #7
    Thành viên cấp 9
    Ngày tham gia
    Apr 2011
    Bài viết
    954
    Thanks
    22
    124 lượt trong 97 bài viết
    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"

  11. #8
    Thành viên Đồng
    Ngày tham gia
    Mar 2011
    Đang ở
    Nếu có vấn đề gì hỏi thì làm ơn đưa lên diễn đàn nhé
    Bài viết
    1,879
    Thanks
    159
    231 lượt trong 198 bài viết
    Cung cấp Hidden Content ,Hidden Content ,vật tư tự động hóa cũ và mới
    Liên hệ: Hidden Content
    website: Hidden Content
    __________________________________________________ ___________________
    Phone: 0912888729 - 0985888729
    Y.M: codientuhd

  12. #9
    Thành viên cấp 9
    Ngày tham gia
    Apr 2011
    Bài viết
    954
    Thanks
    22
    124 lượt trong 97 bài viết
    Trích dẫn Gửi bởi anhlv.ddt Xem bài viết
    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.

  13. #10
    Thành viên Đồng
    Ngày tham gia
    Mar 2011
    Đang ở
    Nếu có vấn đề gì hỏi thì làm ơn đưa lên diễn đàn nhé
    Bài viết
    1,879
    Thanks
    159
    231 lượt trong 198 bài viết
    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
    Cung cấp Hidden Content ,Hidden Content ,vật tư tự động hóa cũ và mới
    Liên hệ: Hidden Content
    website: Hidden Content
    __________________________________________________ ___________________
    Phone: 0912888729 - 0985888729
    Y.M: codientuhd

Trang 1 của 2 12 CuốiCuối

Đánh dấu

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
  •  
Back to Top