Set wb = GetObject(obj)
Set ws = wb.Worksheets(wb.Worksheets.Count)
If wb.Worksheets.Count = 1 Then
If InStr(fname, "CAN_") Then
With ws.Cells
NoC = .Find("Others").Row + 1
NoR = .Find("Total Price USD").Column
End With
.Cells(i, 11) = ws.Cells(NoC, NoR)
wb.Close False
ElseIf InStr(fname, "MX_") Then
With ws.Cells
NoC = .Find("Total").Row
NoR = .Find("Total").Column + 1
End With
.Cells(i, 11) = ws.Cells(NoC, NoR)
wb.Close False
Else
With ws.Cells
NoC = .Find("Total:").Row: NoR = .Find("Total:").Column + 3
End With
.Cells(i, 11) = ws.Cells(NoC, NoR)
wb.Close False
End If
ElseIf wb.Worksheets.Count > 1 Then
If InStr(fname, "CAN_") Or InStr(fname, "MX_") Then
For k = 1 To wb.Worksheets.Count
TotalC = wb.Worksheets(k).Cells.Find("Others").Row + 1
TotalR = wb.Worksheets(k).Cells.Find("Total Price USD").Column
.Cells(i, 11) = wb.Worksheets(k).Cells(TotalC, TotalR)
Next
ElseIf InStr(fname, "MX_") Then
For k = 1 To wb.Worksheets.Count
TotalC = wb.Worksheets(k).Cells.Find("Total").Row
TotalR = wb.Worksheets(k).Cells.Find("Total").Column + 1
.Cells(i, 11) = wb.Worksheets(k).Cells(TotalC, TotalR)
Next
Else
For k = 1 To wb.Worksheets.Count
TotalC = wb.Worksheets(k).Cells.Find("Total:").Row
TotalR = wb.Worksheets(k).Cells.Find("Total:").Column + 3
.Cells(i, 12) = wb.Worksheets(k).Cells(TotalC, TotalR)
Next
End If
End If
End If