[已解决]关于获取最大值的问题

haikeyia

各位老师:我在E盘下有N个以数值命名的文件,我在vba中获取文件名,并想求获取到数值的最大值,没有成功,请指点!
Mypath = "E:"
   n = 1
   myfile = Dir(Mypath & "\*.*")  
   Do While myfile <> ""        
       s = Mid(myfile, 5, 8)   '文件名中第五位开始,取得8位数
        myfile = Dir   
        n = n + 1
        Loop
    a = Application.WorksheetFunction.Max(s)
    MsgBox a
  结果显示的始终是最后一个文件的数值,求教

最佳答案

月排行榜 / 总排行榜

youfang

2014-5-30 16:12

每循环一次，s就重新赋值，所以
结果显示的始终是最后一个文件的数值

跳转到最佳答案楼层

kevinshe

这个需要数组
我的办法比较笨, 给你做参考
在 s = Mid(myfile, 5, 8) 下面加一句
activesheet.cells(n,1)=s

把 a = Application.WorksheetFunction.Max(s)改成
a = Application.WorksheetFunction.Max(range("A1:A1000")

haikeyia

谢谢,这也是个思路,但我这个不能对sheet表写入,不知有没有别的办法

xdragon

1. Sub t()
   
2. Dim Mypath$, n&, myfile$, s&, Max&
   
3. Mypath = "E:"
   
4.    n = 1
   
5.    myfile = Dir(Mypath & "\*.*")
   
6.    Do While myfile <> ""
   
7.        s = Val(Mid(myfile, 5, 8))   '文件名中第五位开始,取得8位数
   
8.        If s > Max Then Max = s
   
9.         myfile = Dir
   
10.         n = n + 1
    
11.         Loop
    
12.     MsgBox Max
    
13. End Sub

复制代码

试试看这个，看看行不

ghostjiao

1. mypath = "E:"
   
2.    myfile = Dir(mypath & "\*.*")
   
3.    Do While myfile <> ""
   
4.        s = Val(Mid(myfile, 5, 8))   '文件名中第五位开始,取得8位数
   
5.        n = n + 1
   
6.        ReDim Preserve arr(1 To n)
   
7.        arr(n) = s
   
8.         myfile = Dir
   
9.         Loop
   
10.     a = Application.WorksheetFunction.Max(arr)

复制代码

youfang

每循环一次，s就重新赋值，所以
结果显示的始终是最后一个文件的数值

haikeyia

明白了,谢谢!