Đang tải... (xem toàn văn)
Hướng dẫn chi tiết xuất báo cáo ra excel theo form ra excel, đồng thời lưu trữ theo ngày, người dùng có thể thêm tag, và thay đổi theo form báo cáo chi tiết cho một file nào đó, hệ thống này thực hiện trên tia portal V15 và PLC S71200
XUẤT BÁO CÁO RA EXCEL TRONG TIA PORTAL PROFESSIONAL - SIEMENS Tài liệu thực bởi: Ngọc Automation (youtube) Website: https://ngocautomation.com https://hoctudonghoa.com Hotline zalo hỗ trợ: 0904 701 605 STEP 1: Tạo giao diện điều khiển cho hệ thống hình sau: Ngun lý làm việc hệ thống: Nhấn nút auto, sau chọn đủ điều kiện vận hành như: Bồn cạn, đặt trọng lượng thời gian tiến hành cân liệu vào bồn, sau đạt trọng lượng bắt đầu trộn theo thời gian đặt, trộn xong xả liệu ra, sau cảm biến bồn cạn tác động xuất báo cáo, nhấn nút xác nhận vận hành hệ thống lại trộn lại STEP 2: Tạo khối database bao gồm thành phần tags sau (*) Bảng thống kê tag TT 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Tên tag Setting_Weight_1 Setting_Weight_2 Setting_Time_Tron Act_Weight_1 Act_Weight_2 Act_Time_Tron btt_Auto btt_Manu btt_Confirm CB_Can Q_Van_1 Q_Van_2 Q_Van_3 Q_DC_Tron act_Step_1 act_Step_2 act_Step_3 act_Step_4 act_Step_5 act_done_valve_1 act_done_valve_2 Định dạng Real Real Int Real Real Int Bool Bool Bool Bool Bool Bool Bool Bool Bool Bool Bool Bool Bool Bool Bool report_act_Weight_1 report_act_Weight_2 Real Real Giải thích Cài đặt trọng lượng liệu Cài đặt trọng lượng liệu Cài đặt thời gian trộn Giá trị thực tế trọng lượng liệu Giá trị thực tế trọng lượng liệu Giá trị thực tế thời gian trộn Nút nhấn Auto Nút nhấn Manu Nút nhấn xác nhận Cảm biến cạn Đầu van Đầu van Đầu van Đầu động trộn Giá trị thực tế bước Giá trị thực tế bước Giá trị thực tế bước Giá trị thực tế bước Giá trị thực tế bước Bit báo xả xong nguyên liệu Bit báo xả xong nguyên liệu Báo cáo giá trị thực tế trọng lượng nguyên liệu Báo cáo giá trị thực tế trọng lượng nguyên TT 24 25 26 27 28 29 Tên tag report_act_Time report_Setting_Weight_1 report_Setting_Weight_2 report_Setting_Time report_Trigger_Creat_File report_Trigger_Data_Export Định dạng Int Real Real Int Bool Bool STEP 3: Trong phần cứng PLC bật chức hệ thống Giải thích liệu Báo cáo giá trị thực tế thời gian Báo cáo giá trị cài đặt trọng lượng Báo cáo giá trị cài đặt trọng lượng Báo cáo giá trị cài đặt thời gian Báo cáo trigger tạo file Báo cáo trigger xuất liệu excel STEP 4: Lập trình chương trình cho PLC STEP 5: Tạo tag nội tag liệu báo cáo cho Scada TT 10 11 12 Tên tag report_act_Weight_1 report_act_Weight_2 report_act_Time report_Setting_Weight_1 report_Setting_Weight_2 report_Setting_Time report_Trigger_Creat_File report_Trigger_Data_Export tag_Current_Date tag_Current_Date_Time tag_Current_Time tag_Report_Save_Link Định dạng Real Real Int Real Real Int Bool Bool String String String String Giải thích Báo cáo giá trị thực tế trọng lượng nguyên liệu Báo cáo giá trị thực tế trọng lượng nguyên liệu Báo cáo giá trị thực tế thời gian Báo cáo giá trị cài đặt trọng lượng Báo cáo giá trị cài đặt trọng lượng Báo cáo giá trị cài đặt thời gian Báo cáo trigger tạo file Báo cáo trigger xuất liệu excel Hiển thị ngày Hiển thị ngày Hiển thị Lưu file cần xuất báo cáo STEP 6: Tạo VBScript cho Scada (Wincc Professional) TT Script Creat_File Creat_Folder Current_Date_Time Data_Export Nội dung Tạo file xuất báo cáo Tạo thư mục 0h ngày Lấy liệu ngày tháng thực tế Xuất liệu 6.1 Script tạo file (Creat_File) ' Dim dtmDate, objExcel, objWorkbook, path Dim a Dim objExcelApp,objExcelApp2 Dim DT,CDT,VBDT,CWT,VBWT,CpHORP,VBpHORP,CQT,VBQT,CFLDREX,VBFLDREX,CFLDRPDF,VBFLDRPDF,CWeb,VBWeb Dim DY,MNTH,YR,MNTHNM Dim HR,MNT,SCND Dim i,j Dim fso, msg,fldr,ReportFolderStatus Dim fso1, f,fName DY=Day(Date()) MNTH=Month(Date()) YR=Year(Date()) HR=Hour(Time()) MNT=Minute(Time()) SCND=Second(Time()) MNTHNM=Month(Now) MNTHNM=MonthName (MNTHNM,True) ' DEFINE MONTH TYPE Dim MNTH1, DY1 If MNTH < 10 Then MNTH1 = "0" & MNTH Else MNTH1 = MNTH End If ' DEFINE DATE TYPE If DY < 10 Then DY1 = "0" & DY Else DY1 = DY End If ' DEFINE HOUR & MINUTE Dim HR1, MNT1 'HOUR If HR < 10 Then HR1 = "0" & HR Else HR1 = HR End If 'MINUTE If MNT < 10 Then MNT1 = "0" & MNT Else MNT1 = MNT End If 'Save link VBDT= VBFLDREX & "\" & "Report_" & YR & "_" & MNTH1 & "_" & DY1 & "_" & HR1 & "_" & MNT1 & ".xls" ' SAVE THE TARGET FILE TAG Dim TagLink Set TagLink = HMIRuntime.Tags("tag_Report_Save_Link") TagLink.Write (VBDT) '================ CREAT NEW FILE FOR EACH SEQUENCE =============================== Dim objFSO Dim RefFile Dim TarFile Set objFSO = CreateObject("Scripting.FileSystemObject") ' RefFile = "D:\Report\Reference\Report_Reference.xls" 'Reference file TarFile = VBDT '"D:\scripts\temp\Testghdf.xls" objFSO.CopyFile RefFile, TarFile '================ CREAT NEW FILE FOR EACH SEQUENCE =============================== 6.2 Script tạo thư mục mới (Creat_Folder) ' Dim dtmDate, objExcel, objWorkbook, path Dim a Dim objExcelApp,objExcelApp2 Dim DT,CDT,VBDT,CWT,VBWT,CpHORP,VBpHORP,CQT,VBQT,CFLDREX,VBFLDREX,CFLDRPDF,VBFLDRPDF,CWeb,VBWeb Dim DY,MNTH,YR,MNTHNM Dim HR,MNT,SCND Dim i,j Dim fso, msg,fldr,ReportFolderStatus Dim fso1, f,fName DY=Day(Date()) MNTH=Month(Date()) YR=Year(Date()) HR=Hour(Time()) MNT=Minute(Time()) SCND=Second(Time()) MNTHNM=Month(Now) MNTHNM=MonthName (MNTHNM,True) ' DEFINE MONTH TYPE Dim MNTH1, DY1 If MNTH < 10 Then MNTH1 = "0" & MNTH Else MNTH1 = MNTH End If ' DEFINE DATE TYPE If DY < 10 Then DY1 = "0" & DY Else DY1 = DY End If ' DEFINE HOUR & MINUTE Dim HR1, MNT1 'HOUR If HR < 10 Then HR1 = "0" & HR Else HR1 = HR End If 'MINUTE If MNT < 10 Then MNT1 = "0" & MNT Else MNT1 = MNT End If 'Save link VBFLDREX = "D:\Report\" & YR & MNTH1 & DY1 '======================= CREAT FOLDER ============================================ Set fso1 = CreateObject("Scripting.FileSystemObject") fso1.CreateFolder(VBFLDREX) 6.3 Script lấy liệu thời gian (Current_Date_Time) '++++++++++++++++LẤY THỜI GIAN THỰC TẾ++++++++++++++++++++++++++++ Dim DateValue1 Dim TimeValue1 ' DOC NGAY THANG THUC TE DateValue1 = CStr(Date) 'makes characters of date Dim Date_Tag '(Text tag bit character set) Set Date_Tag = HMIRuntime.Tags("tag_Current_Date") Date_Tag.Write (DateValue1) 'write the characters to Tag ' DOC THOI GIAN THUC TimeValue1 = CStr(Time) 'makes characters of date Dim Time_Tag '(Text tag bit character set) Set Time_Tag = HMIRuntime.Tags("tag_Current_Time") Time_Tag.Write (TimeValue1) 'write the characters to Tag Dim DateTime1 Dim DateAdnTime DateTime1 = DateValue1 & " " & TimeValue1 Set DateAdnTime = HMIRuntime.Tags("tag_Current_Date_Time") DateAdnTime.Write (DateTime1) 'write the characters to Tag '++++++++++++++++LẤY THỜI GIAN THỰC TẾ++++++++++++++++++++++++++++ 6.4 Script xuất báo cáo (Data_Export) Dim wsh, XLSrunning, TargetBookrunning, objExcelApp, objWorkbook, TheTargetBook, TheTargetBookName Dim TheCount Dim objFSO Const OverwriteExisting = Set wsh = CreateObject("WScript.Shell") '======================================TAG FOR SAVE LINK======================================== TheTargetBookName = HMIRuntime.Tags("tag_Report_Save_Link").Read ' '=============================================================================================== TheTargetBook = TheTargetBookName TheCount = GetObject("winmgmts:root\CIMV2").ExecQuery("SELECT * FROM Win32_Process WHERE Name='EXCEL.EXE'").Count If TheCount > Then Set objExcelApp = GetObject(,"Excel.Application") TargetBookrunning = For Each XLSrunning In objExcelApp.Workbooks If XLSrunning.name = TheTargetBookName Then TargetBookrunning = End If Next If TargetBookrunning = Then Set objWorkbook = GetObject(TheTargetBook) Else Set objWorkbook = objExcelApp.Workbooks.Open(TheTargetBook) End If Else Set objExcelApp = CreateObject("Excel.Application") Set objWorkbook = objExcelApp.Workbooks.Open(TheTargetBook) End If objExcelApp.Visible = False objExcelApp.ScreenUpdating = True objExcelApp.DisplayAlerts = True Dim P100ATheTargetRow,P100BTheTargetRow With objWorkbook.activesheet '=======================================EXPORT DATA START======================================================== cells(10, 6) = HMIRuntime.Tags("tag_Current_Date_Time").Read cells(14, 3) = HMIRuntime.Tags("report_Setting_Weight_1").Read cells(15, 3) = HMIRuntime.Tags("report_Setting_Weight_2").Read cells(16, 3) = HMIRuntime.Tags("report_Setting_Time").Read cells(14, 4) = HMIRuntime.Tags("report_act_Weight_1").Read .cells(15, 4) = HMIRuntime.Tags("report_act_Weight_2").Read cells(16, 4) = HMIRuntime.Tags("report_act_Time").Read '=======================================EXPORT DATA END======================================================== End With objWorkbook.Save objWorkbook.Close Set objWorkbook = Nothing objExcelApp.Quit Set objExcelApp = Nothing 'msgbox "Done" Set wsh = Nothing STEP 7: Tạo trigger xuất báo cáo cho Scada Ở mục schedule tag tạo trigger sau: 7.1 Trigger tạo folder (Creat_Folder) Lựa chọn Daily, vào lúc 12:00:00 AM tức 0H sáng (*) Ở mục event chọn script có tên Creat_Folder 7.2 Trigger Tạo file (Creat_File) (*) Chọn tag trigger tag tag tạo bên PLC với tên tag “report_Trigger_Creat_File”, lựa chọn thuộc tính Uponchange (*) Ở mục event chọn script có tên Creat_File 7.3 Trigger xuất báo cáo (Data_Export) (*) Chọn tag trigger tag tag tạo bên PLC với tên tag “report_Trigger_Data_Export”, lựa chọn thuộc tính Uponchange (*) Ở mục event chọn script có tên Data_Export 7.4 Trigger lấy liệu thời gian thực tế (Current_Date_Time) (*) Lựa chọn Trigger minute tức phút cập nhật giá trị lần, bạn chọn second để 1s trigger thay đổi giá trị lần (*) Ở mục event chọn script có tên Current_Date_Time STEP 8: Tạo folder file excel chuẩn 8.1 Tạo folder có tên Report ổ D máy tính 8.2 Trong thư mục report tạo folder có tên Reference 8.3 Tạo file excel chuẩn dạng Excel 2003 (đuôi xls) với tên “Report_Reference.xls” coppy vào thư mục Reference (*) Nội dung file excel STEP 9: Thực chạy chương trình ta có kết sau ... liệu Báo cáo giá trị thực tế thời gian Báo cáo giá trị cài đặt trọng lượng Báo cáo giá trị cài đặt trọng lượng Báo cáo giá trị cài đặt thời gian Báo cáo trigger tạo file Báo cáo trigger xuất. .. liệu Báo cáo giá trị thực tế trọng lượng nguyên liệu Báo cáo giá trị thực tế thời gian Báo cáo giá trị cài đặt trọng lượng Báo cáo giá trị cài đặt trọng lượng Báo cáo giá trị cài đặt thời gian Báo. .. CStr(Date) 'makes characters of date Dim Date _Tag '(Text tag bit character set) Set Date _Tag = HMIRuntime.Tags( "tag_ Current_Date") Date _Tag. Write (DateValue1) 'write the characters to Tag ' DOC THOI