请教一下红色代码的含义，越详细越好，谢谢！

duquancai

炽幻恶魔 发表于 2018-6-1 14:06
有点头疼了，你说的这个我还不会……我只是想把这些文件名按日期排序，并且同一天的白班在前夜班在后而已 ...

1. Sub asdf()
   
2.     Dim FileArr, j$, js As Object, s$
   
3.     FilePath = ThisWorkbook.Path
   
4.     Filename = Dir(FilePath & "\*.xls")
   
5.     Do While Len(Filename)
   
6.         If Filename <> ThisWorkbook.Name Then
   
7.             j = j & "," & "'" & Filename & "'"
   
8.         End If
   
9.         Filename = Dir
   
10.     Loop
    
11.     Set js = CreateObject("MSScriptControl.ScriptControl")
    
12.     js.Language = "JavaScript": js.AddObject "rg", Range("A1")
    
13.     j = "[" & Mid(j, 2) & "]"
    
14.     s = "r=/\d+(?=日)/;function callback(x,y){return ((x.match(r))*1>=(y.match(r))*1)? y.indexOf('白班'):x.indexOf('白班');}"
    
15.     j = "a=" & j & ";" & s & ";a.sort(callback);for(i=0;i<a.length;i++){rg(i+1,1)=a[i];}"
    
16.     js.eval (j)
    
17.     MsgBox "OK!"
    
18. End Sub

复制代码

炽幻恶魔

zopey 发表于 2018-6-1 16:29

非常感谢你的帮助，但是我因为某些特殊需求，所以单元格是不能被占用的，你的代码占用了单元格，不知可有办法？SQL查询我还没学，看不太懂，不会改。再次感谢你的热心帮助，谢谢！