提取文件夹下所有文件名中最大的数值。

2253671050

各位大神，想要提取当前文件夹下，最大两个数字的文件名到a2,a3单元格。例如提取这个文件夹中的img006.jpg,img005到单元格中。所有文件都是按照img****.jpg命名的。多的时候，有上万个文件。恳请大家赐教。

2253671050

Mid(Left(fl.Name, InStr(fl.Name, ".") - 1), InStr(fl.Name, "-") + 1) * 1   这个是什么意思，哪位大神可以帮我解答一下吗？

liulang0808

http://club.excelhome.net/thread-1258425-1-1.html
获取文件名资料，供参考

2253671050

liulang0808 发表于 2019-12-19 12:47
http://club.excelhome.net/thread-1258425-1-1.html
获取文件名资料，供参考

谢谢，我再研究研究。

NadrsSaber

1. Sub tiqu()
   
2.     Dim fileN$, cxFile$, str$, arr, i&, j&, k&
   
3.     fileN = ThisWorkbook.Path & ""
   
4.     cxFile = Dir(fileN & "*.jpg")
   
5.     str = Mid(Right(cxFile, 7), 1, 3)
   
6.     Do While cxFile <> ""
   
7.         cxFile = Dir
   
8.         str = str & "," & Mid(Right(cxFile, 7), 1, 3)
   
9.         If cxFile = "" Then Exit Do
   
10.     Loop
    
11.     arr = Split(Mid(str, 1, Len(str) - 1), ",")
    
12.     For i = 0 To UBound(arr)
    
13.         k = Application.Max(j, CLng(arr(i)))
    
14.         j = CLng(arr(i))
    
15.     Next
    
16.     Sheet1.[A2] = "img" & Mid(CStr(1000 * 1 + k), 2, 4)
    
17.     Sheet1.[A3] = "img" & Mid(CStr(1000 * 1 + k - 1), 2, 4)
    
18. End Sub

复制代码

2253671050

NadrsSaber 发表于 2019-12-19 12:57

谢谢帮助。我现在的主要问题还是出在提取img  到.之间数值的问题。有些是3位，有些事4位的。刚才测试了下您的代码，arr = Split(Mid(str, 1, Len(str) - 1), ",")  这个地方跳错了。

NadrsSaber

2253671050 发表于 2019-12-19 13:46
谢谢帮助。我现在的主要问题还是出在提取img  到.之间数值的问题。有些是3位，有些事4位的。刚才测试了下 ...

哦哦, 我还以为只有 3位呢, 我改一下

Q155133209

2253671050 发表于 2019-12-19 13:46
谢谢帮助。我现在的主要问题还是出在提取img  到.之间数值的问题。有些是3位，有些事4位的。刚才测试了下 ...

香川老师的两个自定义函数 直接可以解决你的问题。自己论坛找找 文件夹的遍历和数组排序。直接找到文件 然后重新排序倒序，取上面2个就可以了

NadrsSaber

2253671050 发表于 2019-12-19 13:46
谢谢帮助。我现在的主要问题还是出在提取img  到.之间数值的问题。有些是3位，有些事4位的。刚才测试了下 ...

1. Sub tiqu()
   
2.     Dim fileN$, cxFile$, str$, arr1, i&, j&, k&, n&
   
3.     fileN = ThisWorkbook.Path & ""
   
4.     cxFile = Dir(fileN & "*.jpg")
   
5.     str = Mid(cxFile, InStr(cxFile, "g") + 1, InStr(cxFile, ".") - 4)
   
6.     Do While cxFile <> ""
   
7.         cxFile = Dir
   
8.         If cxFile = "" Then Exit Do
   
9.         str = str & "," & Mid(cxFile, InStr(cxFile, "g") + 1, InStr(cxFile, ".") - 4)
   
10.     Loop
    
11.     arr1 = Split(str, ",")
    
12.     Sheet1.[A2] = "img" & arr1(UBound(arr1)) & ".jpg"
    
13.     Sheet1.[A3] = "img" & arr1(UBound(arr1) - 1) & ".jpg"
    
14.    
    
15. End Sub

复制代码

2253671050

非常非常感谢大神的帮忙。这个地方增加一个\，fileN = ThisWorkbook.Path & "\"   完美解决了。谢谢谢谢！！！