test
2022/3/10 6:16:21
本文主要是介绍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
这篇关于test的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!
- 2024-06-19《2023版Java工程师》课程升级公告
- 2024-06-15matplotlib作图不显示3D图,怎么办?
- 2024-06-1503-Loki 日志监控
- 2024-06-1504-让LLM理解知识 -Prompt
- 2024-06-05做软件测试需要懂代码吗?
- 2024-06-0514-ShardingSphere的分布式主键实现
- 2024-06-03为什么以及如何要进行架构设计权衡?
- 2024-05-31全网首发第二弹!软考2024年5月《软件设计师》真题+解析+答案!(11-20题)
- 2024-05-31全网首发!软考2024年5月《软件设计师》真题+解析+答案!(21-30题)
- 2024-05-30【Java】百万数据excel导出功能如何实现