VBA,判断文件夹内是否是所要文件，如果是则打开，否则不打开

2020-01-02 21:57:02

• 

• 奔跑的犀牛先生

  
  

• file系统的 file 返回的就是绝对路径

• 只有file.name 才是所谓的文件名

Sub dd1()Dim fso As ObjectDim fd1 As ObjectDim f1 As ObjectSet fso = CreateObject('scripting.filesystemobject')path1 = ThisWorkbook.PathDebug.Print path1fdn1 = fso.getparentfoldername(path1)Debug.Print fdn1Set fd1 = fso.getfolder(path1)For Each f1 In fd1.FilesIf f1.Name Like '*.xlsm' ThenDebug.Print 'f1=' & f1Debug.Print 'f1.Name=' & f1.NameEnd IfNextApplication.Wait (Now + TimeValue('00:00:05'))For Each f1 In fd1.FilesIf f1.Name = 'test1.xlsm' ThenWorkbooks.Open (f1)End IfNextEnd Sub