7/6/2020 11:04 AM | |
Joined: 8/17/2018 Last visit: 8/22/2024 Posts: 9 Rating: (0) |
Sir can help me with this vb script . the problem is when plc bit change from 0 to 1 and from 1 to 0, i got the same line in excel which is the same data. How to do if i want only 0 to 1 only the script execute. can someone help me about this Vb script. I am new to Tia portal. Sub Excel_Line_1() Dim FolderWay, ObjectWay, FileName, File, FileExist, Appendix , Row 'Define FolderWay(Folder Path) FolderWay = "C:\Users\KSG\Documents\AUTO BATCHING\LINE 1" 'Create Object containing way to folder Set ObjectWay = CreateObject("Scripting.FileSystemObject") 'If folder not exist create it If Not ObjectWay.FolderExists(FolderWay) Then ObjectWay.CreateFolder FolderWay End If 'Define FileName with Date FileName = "\Batching_Report-" & CStr(DatePart("d",Date)) & "_" & CStr(DatePart("m",Date)) & "_" & CStr(DatePart("yyyy",Date)) &".xls" 'Create new object to control file existance Set File = CreateObject("Scripting.FileSystemObject") 'Check if file exist in defined folder way FileExist = File.FileExists(FolderWay & "\" & FileName) If FileExist = False Then 'Create file File.CreateTextFile(FolderWay & "\" & FileName) 'Set appendix of excel file Set Appendix = File.OpenTextFile(FolderWay & "\" & FileName,8) Appendix.WriteLine("Time Batch Recipe Latex(kg) Chemical_A(kg) Chemical_B(kg) Chemical_C(kg) Chemical_D(kg) Chemical_E(kg) Chemical_F(kg) Water(kg) Total(kg)") Appendix.Close 'Clear object Set File = Nothing End If Set File = CreateObject("Scripting.FileSystemObject") Set Row = File.OpenTextFile(FolderWay & "\" & FileName, 8) Row.WriteLine(""&Time & " "&SmartTags ("BATCHLINE1_Batch_No") & " "& SmartTags ("BATCHLINE1_Set_Recipe")& " "& SmartTags ("BATCHLINE1_L1_Latex")& " "& SmartTags ("BATCHLINE1_L1_ChemicalA")& " "& SmartTags ("BATCHLINE1_L1_ChemicalB")& " "& SmartTags ("BATCHLINE1_L1_ChemicalC")& " "& SmartTags ("BATCHLINE1_L1_ChemicalD")& " "& SmartTags ("BATCHLINE1_L1_ChemicalE")& " "& SmartTags ("BATCHLINE1_L1_ChemicalF")& " "& SmartTags ("BATCHLINE1_L1_Water")& " "& SmartTags ("BATCHLINE1_L1_Total")) Row.Close End Sub ------------------------------------------------------------------------------------------ |
Last edited by: Jen_Moderator at: 07/06/2020 12:48:50New subject after splitting |
|
7/7/2020 8:38 AM | |
Joined: 8/17/2018 Last visit: 8/22/2024 Posts: 9 Rating: (0) |
Thank for your help. i will try. |
Follow us on