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