Sub WriteExcel(ByVal IndexMachine, ByVal IndexShift, ByVal ManualReport)
On Error Resume Next
'************************************************************************************************************************************
Dim FolderLog
FolderLog="C:\NIK_DATA"
Dim content
Dim fso,Des_Folder_Name
Set fso = CreateObject("Scripting.FileSystemObject")
SmartTags("ReportStatus")=Now() & " : Check time for report..."
'************************************************************************************************************************************
Dim ngay,gio, shift,dbindex
Dim ngay2,gio2
ngay = Now
ngay2=ngay
gio= Hour(Now)
Dim row_head
row_head=True
shift=IndexShift
If IndexShift<1 Then ' neu shift = 0 - Current
dbindex=0
shift=2
If gio>=7 And gio < 19 Then 'shif 1 ngay hom nay
shift=1
Else
If gio < 7 Then ' neu gio nho hon 7 thì thuoc ca 2 ngay hom truoc
ngay2=DateAdd("d",-1,ngay) ' tru ngay di 1
End If
End If
Else
If IndexShift<2 Then ' neu shift = 1 - Ca 1 của ngày
If gio < 19 Then ' neu gio nho hon 19 thì thuoc ca 1 ngay hom truoc
ngay2=DateAdd("d",-1,ngay) ' tru ngay di 1
End If
shift=1
dbindex=3
Else 'Neu shift = 2 - Ca 2 của ngày
If gio >= 7 Or gio <=23 Then ' neu gio >= 7 và <= thì du lieu la cua ngay hom truoc
ngay2=DateAdd("d",-1,ngay) ' tru ngay di 1
Else
If gio < 7 Then ' neu gio nho hon 7 thi du lieu la cua 2 ngay truoc
ngay2=DateAdd("d",-2,ngay) ' tru ngay di 2
Else
End If
End If
shift=2
dbindex=4
End If
End If
'************************************************************************************************************************************
''***************************Kiem Tra file bao cao và copy form*******************************
SmartTags("ReportStatus")=Now() & " : Check file for report."
If ManualReport > 0 Then
Des_Folder_Name = "C:\MANUAL_REPORT"
If Not fso.FolderExists(Des_Folder_Name) Then
fso.CreateFolder (Des_Folder_Name)
End If
Else
Des_Folder_Name = CreateFolder (ngay2)
End If
If Des_Folder_Name="" Then
ShowSystemAlarm "Report folder is null"
Exit Sub
Else
Des_Folder_Name=Des_Folder_Name & "\DAILY_REPORT_" & Year(ngay2) & Month(ngay2) & Day(ngay2) & "_" & shift & ".xlsx"
End If
Dim SourceFile
SourceFile="C:\REPORT_DATA\Form\Form.xlsx"
If Not fso.FileExists(SourceFile) Then
content="Report --- File Checking: Not exist form report file."
LogFile FolderLog,"NikLog_" & Year(Now)& "_" & Month(Now) & Day(Now)& ".txt", content
ShowSystemAlarm content
Exit Sub
Else
If fso.FileExists(Des_Folder_Name)=False Then
fso.CopyFile SourceFile, Des_Folder_Name
Else
fso.GetFile(Des_Folder_Name).Attributes =0
End If
End If
'************************************************************************************************************************************
'************************************thuc hien ghi du lieu vao file*********************************************8
SmartTags("ReportStatus")=Now() & " : Writing machine " & SmartTags("IndexMachine") & " data to report file..."
Dim objExcelApp,objWorksheet,objWorksheetData,row_index
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open Des_Folder_Name
Set objWorksheet = objExcelApp.Worksheets(1)
row_index = SmartTags("Row_Index_1")
With objWorksheet
.Cells(2,2).value = ngay2
Dim partNo1, partNo2
If dbindex=0 Then
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{1}_PART_NO_1"),_
SmartTags("Press_REPORT_0{1}_PART_NO_2"),_
SmartTags("Press_REPORT_0{1}_PART_NO_3"),_
SmartTags("Press_REPORT_0{1}_PART_NO_4"),_
SmartTags("Press_REPORT_0{1}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{1}_PART_NO_6"),_
SmartTags("Press_REPORT_0{1}_PART_NO_7"),_
SmartTags("Press_REPORT_0{1}_PART_NO_8"),_
SmartTags("Press_REPORT_0{1}_PART_NO_9"),_
SmartTags("Press_REPORT_0{1}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{1}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{1}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{1}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{1}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{1}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{1}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{1}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{1}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{1}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{1}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{1}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{1}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{1}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{2}_PART_NO_1"),_
SmartTags("Press_REPORT_0{2}_PART_NO_2"),_
SmartTags("Press_REPORT_0{2}_PART_NO_3"),_
SmartTags("Press_REPORT_0{2}_PART_NO_4"),_
SmartTags("Press_REPORT_0{2}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{2}_PART_NO_6"),_
SmartTags("Press_REPORT_0{2}_PART_NO_7"),_
SmartTags("Press_REPORT_0{2}_PART_NO_8"),_
SmartTags("Press_REPORT_0{2}_PART_NO_9"),_
SmartTags("Press_REPORT_0{2}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{2}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{2}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{2}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{2}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{2}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{2}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{2}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{2}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{2}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{2}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{2}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{2}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{2}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{3}_PART_NO_1"),_
SmartTags("Press_REPORT_0{3}_PART_NO_2"),_
SmartTags("Press_REPORT_0{3}_PART_NO_3"),_
SmartTags("Press_REPORT_0{3}_PART_NO_4"),_
SmartTags("Press_REPORT_0{3}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{3}_PART_NO_6"),_
SmartTags("Press_REPORT_0{3}_PART_NO_7"),_
SmartTags("Press_REPORT_0{3}_PART_NO_8"),_
SmartTags("Press_REPORT_0{3}_PART_NO_9"),_
SmartTags("Press_REPORT_0{3}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{3}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{3}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{3}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{3}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{3}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{3}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{3}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{3}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{3}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{3}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{3}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{3}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{3}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{4}_PART_NO_1"),_
SmartTags("Press_REPORT_0{4}_PART_NO_2"),_
SmartTags("Press_REPORT_0{4}_PART_NO_3"),_
SmartTags("Press_REPORT_0{4}_PART_NO_4"),_
SmartTags("Press_REPORT_0{4}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{4}_PART_NO_6"),_
SmartTags("Press_REPORT_0{4}_PART_NO_7"),_
SmartTags("Press_REPORT_0{4}_PART_NO_8"),_
SmartTags("Press_REPORT_0{4}_PART_NO_9"),_
SmartTags("Press_REPORT_0{4}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{4}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{4}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{4}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{4}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{4}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{4}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{4}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{4}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{4}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{4}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{4}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{4}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{4}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{5}_PART_NO_1"),_
SmartTags("Press_REPORT_0{5}_PART_NO_2"),_
SmartTags("Press_REPORT_0{5}_PART_NO_3"),_
SmartTags("Press_REPORT_0{5}_PART_NO_4"),_
SmartTags("Press_REPORT_0{5}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{5}_PART_NO_6"),_
SmartTags("Press_REPORT_0{5}_PART_NO_7"),_
SmartTags("Press_REPORT_0{5}_PART_NO_8"),_
SmartTags("Press_REPORT_0{5}_PART_NO_9"),_
SmartTags("Press_REPORT_0{5}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{5}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{5}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{5}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{5}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{5}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{5}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{5}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{5}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{5}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{5}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{5}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{5}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{5}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{6}_PART_NO_1"),_
SmartTags("Press_REPORT_0{6}_PART_NO_2"),_
SmartTags("Press_REPORT_0{6}_PART_NO_3"),_
SmartTags("Press_REPORT_0{6}_PART_NO_4"),_
SmartTags("Press_REPORT_0{6}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{6}_PART_NO_6"),_
SmartTags("Press_REPORT_0{6}_PART_NO_7"),_
SmartTags("Press_REPORT_0{6}_PART_NO_8"),_
SmartTags("Press_REPORT_0{6}_PART_NO_9"),_
SmartTags("Press_REPORT_0{6}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{6}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{6}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{6}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{6}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{6}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{6}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{6}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{6}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{6}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{6}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{6}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{6}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{6}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{7}_PART_NO_1"),_
SmartTags("Press_REPORT_0{7}_PART_NO_2"),_
SmartTags("Press_REPORT_0{7}_PART_NO_3"),_
SmartTags("Press_REPORT_0{7}_PART_NO_4"),_
SmartTags("Press_REPORT_0{7}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{7}_PART_NO_6"),_
SmartTags("Press_REPORT_0{7}_PART_NO_7"),_
SmartTags("Press_REPORT_0{7}_PART_NO_8"),_
SmartTags("Press_REPORT_0{7}_PART_NO_9"),_
SmartTags("Press_REPORT_0{7}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{7}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{7}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{7}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{7}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{7}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{7}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{7}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{7}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{7}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{7}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{7}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{7}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{7}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{8}_PART_NO_1"),_
SmartTags("Press_REPORT_0{8}_PART_NO_2"),_
SmartTags("Press_REPORT_0{8}_PART_NO_3"),_
SmartTags("Press_REPORT_0{8}_PART_NO_4"),_
SmartTags("Press_REPORT_0{8}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{8}_PART_NO_6"),_
SmartTags("Press_REPORT_0{8}_PART_NO_7"),_
SmartTags("Press_REPORT_0{8}_PART_NO_8"),_
SmartTags("Press_REPORT_0{8}_PART_NO_9"),_
SmartTags("Press_REPORT_0{8}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{8}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{8}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{8}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{8}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{8}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{8}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{8}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{8}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{8}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{8}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{8}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{8}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{8}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{9}_PART_NO_1"),_
SmartTags("Press_REPORT_0{9}_PART_NO_2"),_
SmartTags("Press_REPORT_0{9}_PART_NO_3"),_
SmartTags("Press_REPORT_0{9}_PART_NO_4"),_
SmartTags("Press_REPORT_0{9}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{9}_PART_NO_6"),_
SmartTags("Press_REPORT_0{9}_PART_NO_7"),_
SmartTags("Press_REPORT_0{9}_PART_NO_8"),_
SmartTags("Press_REPORT_0{9}_PART_NO_9"),_
SmartTags("Press_REPORT_0{9}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{9}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{9}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{9}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{9}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{9}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{9}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{9}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{9}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{9}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{9}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{9}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{9}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{9}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_0{10}_PART_NO_1"),_
SmartTags("Press_REPORT_0{10}_PART_NO_2"),_
SmartTags("Press_REPORT_0{10}_PART_NO_3"),_
SmartTags("Press_REPORT_0{10}_PART_NO_4"),_
SmartTags("Press_REPORT_0{10}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_0{10}_PART_NO_6"),_
SmartTags("Press_REPORT_0{10}_PART_NO_7"),_
SmartTags("Press_REPORT_0{10}_PART_NO_8"),_
SmartTags("Press_REPORT_0{10}_PART_NO_9"),_
SmartTags("Press_REPORT_0{10}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_0{10}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_0{10}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_0{10}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_0{10}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_0{10}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_0{10}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_0{10}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_0{10}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_0{10}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_0{10}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_0{10}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_0{10}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_0{10}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
Else
If dbindex=3 Then
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{1}_PART_NO_1"),_
SmartTags("Press_REPORT_3{1}_PART_NO_2"),_
SmartTags("Press_REPORT_3{1}_PART_NO_3"),_
SmartTags("Press_REPORT_3{1}_PART_NO_4"),_
SmartTags("Press_REPORT_3{1}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{1}_PART_NO_6"),_
SmartTags("Press_REPORT_3{1}_PART_NO_7"),_
SmartTags("Press_REPORT_3{1}_PART_NO_8"),_
SmartTags("Press_REPORT_3{1}_PART_NO_9"),_
SmartTags("Press_REPORT_3{1}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{1}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{1}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{1}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{1}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{1}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{1}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{1}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{1}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{1}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{1}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{1}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{1}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{1}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{2}_PART_NO_1"),_
SmartTags("Press_REPORT_3{2}_PART_NO_2"),_
SmartTags("Press_REPORT_3{2}_PART_NO_3"),_
SmartTags("Press_REPORT_3{2}_PART_NO_4"),_
SmartTags("Press_REPORT_3{2}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{2}_PART_NO_6"),_
SmartTags("Press_REPORT_3{2}_PART_NO_7"),_
SmartTags("Press_REPORT_3{2}_PART_NO_8"),_
SmartTags("Press_REPORT_3{2}_PART_NO_9"),_
SmartTags("Press_REPORT_3{2}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{2}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{2}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{2}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{2}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{2}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{2}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{2}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{2}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{2}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{2}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{2}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{2}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{2}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{3}_PART_NO_1"),_
SmartTags("Press_REPORT_3{3}_PART_NO_2"),_
SmartTags("Press_REPORT_3{3}_PART_NO_3"),_
SmartTags("Press_REPORT_3{3}_PART_NO_4"),_
SmartTags("Press_REPORT_3{3}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{3}_PART_NO_6"),_
SmartTags("Press_REPORT_3{3}_PART_NO_7"),_
SmartTags("Press_REPORT_3{3}_PART_NO_8"),_
SmartTags("Press_REPORT_3{3}_PART_NO_9"),_
SmartTags("Press_REPORT_3{3}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{3}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{3}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{3}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{3}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{3}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{3}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{3}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{3}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{3}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{3}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{3}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{3}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{3}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{4}_PART_NO_1"),_
SmartTags("Press_REPORT_3{4}_PART_NO_2"),_
SmartTags("Press_REPORT_3{4}_PART_NO_3"),_
SmartTags("Press_REPORT_3{4}_PART_NO_4"),_
SmartTags("Press_REPORT_3{4}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{4}_PART_NO_6"),_
SmartTags("Press_REPORT_3{4}_PART_NO_7"),_
SmartTags("Press_REPORT_3{4}_PART_NO_8"),_
SmartTags("Press_REPORT_3{4}_PART_NO_9"),_
SmartTags("Press_REPORT_3{4}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{4}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{4}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{4}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{4}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{4}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{4}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{4}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{4}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{4}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{4}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{4}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{4}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{4}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{5}_PART_NO_1"),_
SmartTags("Press_REPORT_3{5}_PART_NO_2"),_
SmartTags("Press_REPORT_3{5}_PART_NO_3"),_
SmartTags("Press_REPORT_3{5}_PART_NO_4"),_
SmartTags("Press_REPORT_3{5}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{5}_PART_NO_6"),_
SmartTags("Press_REPORT_3{5}_PART_NO_7"),_
SmartTags("Press_REPORT_3{5}_PART_NO_8"),_
SmartTags("Press_REPORT_3{5}_PART_NO_9"),_
SmartTags("Press_REPORT_3{5}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{5}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{5}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{5}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{5}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{5}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{5}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{5}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{5}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{5}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{5}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{5}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{5}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{5}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{6}_PART_NO_1"),_
SmartTags("Press_REPORT_3{6}_PART_NO_2"),_
SmartTags("Press_REPORT_3{6}_PART_NO_3"),_
SmartTags("Press_REPORT_3{6}_PART_NO_4"),_
SmartTags("Press_REPORT_3{6}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{6}_PART_NO_6"),_
SmartTags("Press_REPORT_3{6}_PART_NO_7"),_
SmartTags("Press_REPORT_3{6}_PART_NO_8"),_
SmartTags("Press_REPORT_3{6}_PART_NO_9"),_
SmartTags("Press_REPORT_3{6}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{6}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{6}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{6}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{6}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{6}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{6}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{6}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{6}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{6}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{6}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{6}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{6}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{6}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{7}_PART_NO_1"),_
SmartTags("Press_REPORT_3{7}_PART_NO_2"),_
SmartTags("Press_REPORT_3{7}_PART_NO_3"),_
SmartTags("Press_REPORT_3{7}_PART_NO_4"),_
SmartTags("Press_REPORT_3{7}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{7}_PART_NO_6"),_
SmartTags("Press_REPORT_3{7}_PART_NO_7"),_
SmartTags("Press_REPORT_3{7}_PART_NO_8"),_
SmartTags("Press_REPORT_3{7}_PART_NO_9"),_
SmartTags("Press_REPORT_3{7}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{7}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{7}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{7}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{7}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{7}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{7}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{7}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{7}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{7}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{7}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{7}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{7}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{7}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{8}_PART_NO_1"),_
SmartTags("Press_REPORT_3{8}_PART_NO_2"),_
SmartTags("Press_REPORT_3{8}_PART_NO_3"),_
SmartTags("Press_REPORT_3{8}_PART_NO_4"),_
SmartTags("Press_REPORT_3{8}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{8}_PART_NO_6"),_
SmartTags("Press_REPORT_3{8}_PART_NO_7"),_
SmartTags("Press_REPORT_3{8}_PART_NO_8"),_
SmartTags("Press_REPORT_3{8}_PART_NO_9"),_
SmartTags("Press_REPORT_3{8}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{8}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{8}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{8}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{8}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{8}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{8}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{8}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{8}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{8}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{8}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{8}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{8}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{8}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{9}_PART_NO_1"),_
SmartTags("Press_REPORT_3{9}_PART_NO_2"),_
SmartTags("Press_REPORT_3{9}_PART_NO_3"),_
SmartTags("Press_REPORT_3{9}_PART_NO_4"),_
SmartTags("Press_REPORT_3{9}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{9}_PART_NO_6"),_
SmartTags("Press_REPORT_3{9}_PART_NO_7"),_
SmartTags("Press_REPORT_3{9}_PART_NO_8"),_
SmartTags("Press_REPORT_3{9}_PART_NO_9"),_
SmartTags("Press_REPORT_3{9}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{9}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{9}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{9}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{9}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{9}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{9}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{9}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{9}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{9}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{9}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{9}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{9}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{9}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_3{10}_PART_NO_1"),_
SmartTags("Press_REPORT_3{10}_PART_NO_2"),_
SmartTags("Press_REPORT_3{10}_PART_NO_3"),_
SmartTags("Press_REPORT_3{10}_PART_NO_4"),_
SmartTags("Press_REPORT_3{10}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_3{10}_PART_NO_6"),_
SmartTags("Press_REPORT_3{10}_PART_NO_7"),_
SmartTags("Press_REPORT_3{10}_PART_NO_8"),_
SmartTags("Press_REPORT_3{10}_PART_NO_9"),_
SmartTags("Press_REPORT_3{10}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_3{10}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_3{10}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_3{10}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_3{10}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_3{10}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_3{10}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_3{10}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_3{10}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_3{10}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_3{10}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_3{10}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_3{10}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_3{10}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
Else
If dbindex=4 Then
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{1}_PART_NO_1"),_
SmartTags("Press_REPORT_4{1}_PART_NO_2"),_
SmartTags("Press_REPORT_4{1}_PART_NO_3"),_
SmartTags("Press_REPORT_4{1}_PART_NO_4"),_
SmartTags("Press_REPORT_4{1}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{1}_PART_NO_6"),_
SmartTags("Press_REPORT_4{1}_PART_NO_7"),_
SmartTags("Press_REPORT_4{1}_PART_NO_8"),_
SmartTags("Press_REPORT_4{1}_PART_NO_9"),_
SmartTags("Press_REPORT_4{1}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{1}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{1}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{1}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{1}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{1}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{1}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{1}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{1}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{1}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{1}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{1}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{1}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{1}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{2}_PART_NO_1"),_
SmartTags("Press_REPORT_4{2}_PART_NO_2"),_
SmartTags("Press_REPORT_4{2}_PART_NO_3"),_
SmartTags("Press_REPORT_4{2}_PART_NO_4"),_
SmartTags("Press_REPORT_4{2}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{2}_PART_NO_6"),_
SmartTags("Press_REPORT_4{2}_PART_NO_7"),_
SmartTags("Press_REPORT_4{2}_PART_NO_8"),_
SmartTags("Press_REPORT_4{2}_PART_NO_9"),_
SmartTags("Press_REPORT_4{2}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{2}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{2}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{2}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{2}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{2}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{2}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{2}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{2}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{2}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{2}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{2}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{2}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{2}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{3}_PART_NO_1"),_
SmartTags("Press_REPORT_4{3}_PART_NO_2"),_
SmartTags("Press_REPORT_4{3}_PART_NO_3"),_
SmartTags("Press_REPORT_4{3}_PART_NO_4"),_
SmartTags("Press_REPORT_4{3}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{3}_PART_NO_6"),_
SmartTags("Press_REPORT_4{3}_PART_NO_7"),_
SmartTags("Press_REPORT_4{3}_PART_NO_8"),_
SmartTags("Press_REPORT_4{3}_PART_NO_9"),_
SmartTags("Press_REPORT_4{3}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{3}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{3}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{3}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{3}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{3}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{3}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{3}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{3}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{3}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{3}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{3}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{3}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{3}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{4}_PART_NO_1"),_
SmartTags("Press_REPORT_4{4}_PART_NO_2"),_
SmartTags("Press_REPORT_4{4}_PART_NO_3"),_
SmartTags("Press_REPORT_4{4}_PART_NO_4"),_
SmartTags("Press_REPORT_4{4}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{4}_PART_NO_6"),_
SmartTags("Press_REPORT_4{4}_PART_NO_7"),_
SmartTags("Press_REPORT_4{4}_PART_NO_8"),_
SmartTags("Press_REPORT_4{4}_PART_NO_9"),_
SmartTags("Press_REPORT_4{4}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{4}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{4}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{4}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{4}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{4}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{4}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{4}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{4}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{4}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{4}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{4}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{4}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{4}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{5}_PART_NO_1"),_
SmartTags("Press_REPORT_4{5}_PART_NO_2"),_
SmartTags("Press_REPORT_4{5}_PART_NO_3"),_
SmartTags("Press_REPORT_4{5}_PART_NO_4"),_
SmartTags("Press_REPORT_4{5}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{5}_PART_NO_6"),_
SmartTags("Press_REPORT_4{5}_PART_NO_7"),_
SmartTags("Press_REPORT_4{5}_PART_NO_8"),_
SmartTags("Press_REPORT_4{5}_PART_NO_9"),_
SmartTags("Press_REPORT_4{5}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{5}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{5}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{5}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{5}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{5}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{5}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{5}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{5}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{5}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{5}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{5}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{5}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{5}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{6}_PART_NO_1"),_
SmartTags("Press_REPORT_4{6}_PART_NO_2"),_
SmartTags("Press_REPORT_4{6}_PART_NO_3"),_
SmartTags("Press_REPORT_4{6}_PART_NO_4"),_
SmartTags("Press_REPORT_4{6}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{6}_PART_NO_6"),_
SmartTags("Press_REPORT_4{6}_PART_NO_7"),_
SmartTags("Press_REPORT_4{6}_PART_NO_8"),_
SmartTags("Press_REPORT_4{6}_PART_NO_9"),_
SmartTags("Press_REPORT_4{6}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{6}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{6}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{6}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{6}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{6}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{6}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{6}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{6}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{6}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{6}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{6}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{6}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{6}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{7}_PART_NO_1"),_
SmartTags("Press_REPORT_4{7}_PART_NO_2"),_
SmartTags("Press_REPORT_4{7}_PART_NO_3"),_
SmartTags("Press_REPORT_4{7}_PART_NO_4"),_
SmartTags("Press_REPORT_4{7}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{7}_PART_NO_6"),_
SmartTags("Press_REPORT_4{7}_PART_NO_7"),_
SmartTags("Press_REPORT_4{7}_PART_NO_8"),_
SmartTags("Press_REPORT_4{7}_PART_NO_9"),_
SmartTags("Press_REPORT_4{7}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{7}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{7}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{7}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{7}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{7}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{7}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{7}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{7}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{7}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{7}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{7}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{7}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{7}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{8}_PART_NO_1"),_
SmartTags("Press_REPORT_4{8}_PART_NO_2"),_
SmartTags("Press_REPORT_4{8}_PART_NO_3"),_
SmartTags("Press_REPORT_4{8}_PART_NO_4"),_
SmartTags("Press_REPORT_4{8}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{8}_PART_NO_6"),_
SmartTags("Press_REPORT_4{8}_PART_NO_7"),_
SmartTags("Press_REPORT_4{8}_PART_NO_8"),_
SmartTags("Press_REPORT_4{8}_PART_NO_9"),_
SmartTags("Press_REPORT_4{8}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{8}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{8}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{8}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{8}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{8}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{8}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{8}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{8}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{8}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{8}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{8}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{8}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{8}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{9}_PART_NO_1"),_
SmartTags("Press_REPORT_4{9}_PART_NO_2"),_
SmartTags("Press_REPORT_4{9}_PART_NO_3"),_
SmartTags("Press_REPORT_4{9}_PART_NO_4"),_
SmartTags("Press_REPORT_4{9}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{9}_PART_NO_6"),_
SmartTags("Press_REPORT_4{9}_PART_NO_7"),_
SmartTags("Press_REPORT_4{9}_PART_NO_8"),_
SmartTags("Press_REPORT_4{9}_PART_NO_9"),_
SmartTags("Press_REPORT_4{9}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{9}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{9}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{9}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{9}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{9}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{9}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{9}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{9}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{9}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{9}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{9}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{9}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{9}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
partNo1=ConvertArrayCharToString(SmartTags("Press_REPORT_4{10}_PART_NO_1"),_
SmartTags("Press_REPORT_4{10}_PART_NO_2"),_
SmartTags("Press_REPORT_4{10}_PART_NO_3"),_
SmartTags("Press_REPORT_4{10}_PART_NO_4"),_
SmartTags("Press_REPORT_4{10}_PART_NO_5"))
partNo2=ConvertArrayCharToString(SmartTags("Press_REPORT_4{10}_PART_NO_6"),_
SmartTags("Press_REPORT_4{10}_PART_NO_7"),_
SmartTags("Press_REPORT_4{10}_PART_NO_8"),_
SmartTags("Press_REPORT_4{10}_PART_NO_9"),_
SmartTags("Press_REPORT_4{10}_PART_NO_10"))
If (Trim(partNo1)<>"" Or Trim(partNo2)<>"") Then
.Cells(row_index,1).value = shift
.Cells(row_index,2).value = IndexMachine
.Cells(row_index,3).value = partNo1& partNo2
.Cells(row_index,4).value = SmartTags("Press_REPORT_4{10}_START_HH")
.Cells(row_index,5).value = SmartTags("Press_REPORT_4{10}_START_MM")
.Cells(row_index,6).value = SmartTags("Press_REPORT_4{10}_END_HH")
.Cells(row_index,7).value = SmartTags("Press_REPORT_4{10}_END_MM")
.Cells(row_index,8).value = SmartTags("Press_REPORT_4{10}_QTY_OK")
.Cells(row_index,9).value = SmartTags("Press_REPORT_4{10}_QTY_NG")
.Cells(row_index,10).value =SmartTags("Press_REPORT_4{10}_RUN")
.Cells(row_index,11).value =SmartTags("Press_REPORT_4{10}_UNKNOWN")
.Cells(row_index,12).value =SmartTags("Press_REPORT_4{10}_RUN_UNKNOWN")
.Cells(row_index,13).value =SmartTags("Press_REPORT_4{10}_SETUP905")
.Cells(row_index,14).value =SmartTags("Press_REPORT_4{10}_SCHEDULE906")
.Cells(row_index,15).value =SmartTags("Press_REPORT_4{10}_SAMPLE902")
.Cells(row_index,16).value = SmartTags("Press_REPORT_4{10}_DOWNTIME")
If row_head Then
.Cells(row_index,1).Interior.ColorIndex = 35
.Cells(row_index,2).Interior.ColorIndex = 35
.Cells(row_index,3).Interior.ColorIndex = 35
.Cells(row_index,4).Interior.ColorIndex = 35
.Cells(row_index,5).Interior.ColorIndex = 35
.Cells(row_index,6).Interior.ColorIndex = 35
.Cells(row_index,7).Interior.ColorIndex = 35
.Cells(row_index,8).Interior.ColorIndex = 35
.Cells(row_index,9).Interior.ColorIndex = 35
.Cells(row_index,10).Interior.ColorIndex = 35
.Cells(row_index,11).Interior.ColorIndex = 35
.Cells(row_index,12).Interior.ColorIndex = 35
.Cells(row_index,13).Interior.ColorIndex = 35
.Cells(row_index,14).Interior.ColorIndex = 35
.Cells(row_index,15).Interior.ColorIndex = 35
.Cells(row_index,16).Interior.ColorIndex = 35
row_head=False
End If
row_index = row_index +1
End If
End If
End If
End If
End With
SmartTags("Row_Index_1") = row_index
'ShowSystemAlarm "Report --- Save report file."
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
Dim f
Set f = fso.GetFile(Des_Folder_Name)
f.Attributes =1
SmartTags("ReportStatus")=Now() & " : Done."
If Err.Number<>0 Then
content="WriteExcel: " & Err.Number &" - " & Err.Description
LogFile FolderLog,"NikLog_" & Year(Now)& "_" & Month(Now) & Day(Now)& ".txt", content
SmartTags("ReportStatus")=""
ShowSystemAlarm content
Err.Clear
End If
End Sub
Search
Rozita Brandson
Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae.
Signup Newsletter
Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium illo inventore.