其他分享
首页 > 其他分享> > test

test

作者:互联网

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

标签:End,wb,Cells,test,Worksheets,Total,Find
来源: https://www.cnblogs.com/lgm1999/p/15987647.html