请教dir(mypath&"*.xls")的问题？

lenghonghai

按道理来讲是不应该漏掉的呀!可否提供一下附件，看是什么原因。

yy1shui

dir(mypath&"*.xls*"),请尝试下

michaelaa

楼主解决了吗？我跟你一样的问题，每次都会漏掉一个，而且文件名后缀我都是"*.xls*"

擎、天

michaelaa 发表于 2018-8-31 09:53
楼主解决了吗？我跟你一样的问题，每次都会漏掉一个，而且文件名后缀我都是"*.xls*"

http://club.excelhome.net/thread-1384804-1-1.html

lsdongjh

从整体结构上进行一下，方便调试

1、读取出你要的文件，将路径及文件名存入数组
2、循环读取数组，进行操作

这样，你的问题可以在第一步进行调试！

michaelaa

擎、天 发表于 2018-8-31 10:05
http://club.excelhome.net/thread-1384804-1-1.html

谢谢，但是我代码跟你不一样，没有加入字典那句，我是直接获取文件，然后一个个打开读取

擎、天

michaelaa 发表于 2018-8-31 10:15
谢谢，但是我代码跟你不一样，没有加入字典那句，我是直接获取文件，然后一个个打开读取

意思是 最后  **=dir 要写最后 就不会漏

michaelaa

擎、天 发表于 2018-8-31 10:18
意思是 最后  **=dir 要写最后 就不会漏

老师，我MyFilename=Dir后面直接是打开文件了，所以写在后面是不起作用的。
Set Wb = Workbooks.Open(My_Path & MyFilename, UpdateLinks:=0, corruptload:=xlExtractData)
Workbooks(MyFilename).Activate

lsdongjh

1. Dim strFileDir() As String
   
2. Dim lngCurDirID As Long
   
3. Dim lDirCount As Long, lFileCount As Long
   
4. 
   
5. '测试用例
   
6. Sub Test()
   
7.     Dim sPath As String, strFiles() As String
   
8.     sPath = ThisWorkbook.Path
   
9.    
   
10.     lDirCount = 0: lFileCount = 0: lngCurDirID = 0
    
11.     '查找当前目录及子目录下，后缀为【xls*】的文件
    
12.     If search(sPath, strFiles, "xls") = True Then
    
13.         MsgBox "共找到 " & UBound(strFiles) & " 个文件 "
    
14.         'strFiles 就是储存 文件路径及名称的 数组
    
15.     Else
    
16.         MsgBox "没有找到文件或搜索失败"
    
17.     End If
    
18. End Sub
    
19. 
    
20. '查找指定路径及其子文件下 的所有文件，可指定特定的后缀
    
21. Public Function search(ByVal strPath As String, ByRef strFileName() As String, Optional strExtName As String = "") As Boolean
    
22.     Dim strFile As String, blIsFind As Boolean
    
23.     On Error GoTo MyErr
    
24.     If Right(strPath, 1) <> "" Then strPath = strPath + ""
    
25.     strFile = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
    
26.     While strFile <> "" '搜索当前目录
    
27.             DoEvents
    
28.             If (GetAttr(strPath + strFile) And vbDirectory) = vbDirectory Then '如果找到的是目录
    
29.                If strFile <> "." And strFile <> ".." Then '排除掉父目录(..)和当前目录(.)
    
30.                    lDirCount = lDirCount + 1 '将目录数增1
    
31.                    ReDim Preserve strFileDir(1 To lDirCount) As String
    
32.                    strFileDir(lDirCount) = strPath & strFile  '用动态数组保存当前目录名
    
33.                End If
    
34.             Else
    
35.                 '判断后缀是否相同
    
36.                 blIsFind = False
    
37.                 If strExtName = "" Then
    
38.                     blIsFind = True
    
39.                 ElseIf LCase(GetExtName(strPath + strFile)) Like LCase(strExtName) Then
    
40.                     blIsFind = True
    
41.                 End If
    
42.                 If blIsFind Then '后缀相同
    
43.                     lFileCount = lFileCount + 1 '将文件数增1
    
44.                     ReDim Preserve strFileName(1 To lFileCount) As String
    
45.                     strFileName(lFileCount) = strPath + strFile  '用动态数组保存当前文件名
    
46.                 End If
    
47.             End If
    
48.             strFile = Dir
    
49.     Wend
    
50.    
    
51.     lngCurDirID = lngCurDirID + 1
    
52.     If lngCurDirID <= lDirCount Then Call search(strFileDir(lngCurDirID), strFileName, strExtName) '递归搜索子目录
    
53.     search = True '搜索成功
    
54.     Exit Function
    
55. MyErr:
    
56.     search = False '搜索失败
    
57. End Function
    
58. 
    
59. '获取后缀
    
60. Public Function GetExtName(strFileName As String) As String
    
61.     Dim strTmp As String
    
62.     Dim strByte As String
    
63.     Dim i As Long
    
64.     For i = Len(strFileName) To 1 Step -1
    
65.          strByte = Mid(strFileName, i, 1)
    
66.          If strByte <> "." Then
    
67.             strTmp = strByte + strTmp
    
68.         Else
    
69.           Exit For
    
70.         End If
    
71.     Next i
    
72.     GetExtName = strTmp
    
73. End Function
    
74. 
    
75. 
    

复制代码

michaelaa

擎、天 发表于 2018-8-31 10:18
意思是 最后  **=dir 要写最后 就不会漏

好像搞不定这个问题。