如何判断指定的三个表是否同时存在

wenxueshan

各位大神：因为要做统计报表，在一个数据源文件夹中有好多excel文件，在提取数据时，因为本月，上月，去年同期的三个工作薄都要使用到，如何判断如：2021年1月，2020年1月和2020年12月份的三个文件同时存在，敬请指教，万分感谢！

wang-way

使用错误捕获   set sht=worksheets("工作表名称")   只要下标越界 那就是不存在了 返回false

wang-way

我来练练手

1. Sub test()
   
2.     MsgBox SheetsExist("Sheet1")
   
3.     ar = Array("上月", "本月", "去年同期")
   
4.     MsgBox SheetsExist(ar)
   
5. End Sub
   
6. Function SheetsExist(ByVal arr As Variant) As Boolean
   
7.     SheetsExist = True
   
8.     On Error GoTo returnFlase
   
9.     If IsArray(arr) Then
   
10.         For Each n In arr
    
11.             Set sht = Worksheets(n)
    
12.         Next n
    
13.     Else
    
14.         Set sht = Worksheets(arr)
    
15.     End If
    
16. ExitFunction:
    
17.     Set sht = Nothing
    
18.     Exit Function
    
19. returnFlase:
    
20.     SheetsExist = False
    
21.     GoTo ExitFunction
    
22. End Function

复制代码

3190496160

Sub 判断()
f = Dir(ThisWorkbook.Path & "\数据源\*.xls*")
Do While f <> ""
    If InStr(f, "2021年1月") > 0 Then n = n + 1
    If InStr(f, "2020年1月") > 0 Then n = n + 1
    If InStr(f, "2020年12月") > 0 Then n = n + 1
f = Dir
Loop
If n = 3 Then
    s = "存在"
Else
    s = "不存在"
End If
MsgBox s
End Sub

wang-way

好像我答非所问了

wang-way

wang-way 发表于 2021-2-27 16:15
好像我答非所问了

改一下
Function SheetsExist(ByVal arr As Variant) As Boolean
    SheetsExist = True
    If IsArray(arr) Then
        For Each n In arr
            if not createobject("scripting.filesystemobject").fileexists(n) then  GoTo returnFlase
        Next n
    Else
                 if not createobject("scripting.filesystemobject").fileexists(arr) then  GoTo returnFlase
    End If
    Exit Function
returnFlase:
    SheetsExist = False
End Function

wenxueshan

非常感谢两位老师的解答

xiangbaoan

Sub test()
  Dim ar, p$, f$, i&
  ar = Array(0, 1, 12)
  p = ThisWorkbook.Path & "\"
  For i = 0 To UBound(ar)
    f = p & Format(DateAdd("m", -ar(i), Date), "yyyy年m月") & "*.xls?" '#2/27/2021#
    If Len(Dir(f)) = 0 Then Exit For
  Next
  MsgBox IIf(i = 3, "", "不") & "(同时)存在!", 64
End Sub

wenxueshan

也非常感谢xiangbaoan老师的解答，“f = p & Format(DateAdd("m", -ar(i), Date), "yyyy年m月") & "*.xls?" '#2/27/2021#”没有太懂，但感到很巧妙