用VBA判断指定的excel文件夹或文件是否存在

1.判断文件夹是否存在：Public Sub TestFolderExistence()If FileFolderExists("c:\windows\") Then MsgBox "指定的文件夹存在！"Else MsgBox "指定的文件夹不存在！"End If End Sub 将代码中的“c:\windows\”换成指定的文件夹，“c:\windows\”也可以写成“c:\windows”，即不要后面的“\”。

1.利用VBA判定当前工作簿所在文件夹中，是否存在一个“鱼木混猪”的文件夹：2.在Excel中按下Alt+F11，输入代码如下：3.F5执行代码，如果文件夹存在，就显示如下图：不存在，怎会弹窗显示“不存在”。

回答：请根据情况,选择一种适合你的方法。一、通过FileExists判断文件是否存在Dim MyFile As ObjectSet MyFile = CreateObject("Scripting.FileSystemObject")If MyFile.FileExists("E:\dzwebs\Pic\logo.gif" ) = True Then MsgBox "文件存在"Else MsgBox "文件不存在"End If以上代码在VBA环境下...

楼主应该是要判断文件不是文件夹吧?如果是文件就用 Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject")If MyFile.FileExists("D:\logo.gif" ) = True Then MsgBox "文件存在"Else MsgBox "文件不存在"End If 如果是文件夹就用1楼的方法....

Alt+F11插入下面的代码到模块 '查找某个文件是否存在 Function IsExistFile(ByRef strDir As String, ByRef fileName As String)Dim s As String If (Right(strDir, 1) <> "\") Then strDir = strDir & "\"End If s = dir(strDir & fileName, vbArchive + vbDirectory + vbHidden + ...

下面的VBA代码可以判断当前Excel工作簿中的某个工作表是否存在，如果指定的工作表不存在，则以指定的工作表名新建一个工作表，如果指定的工作表已存在，则给出一个提示，并激活该工作表。下例中指定的工作表标签为“一月”，可根据实际进行修改。Sub IsSheetExist()Dim ws As Worksheet Dim sName As ...

String '指定带完整目录的文件夹名称 myFileName = ThisWorkbook.Path & "\技巧.xls"If Len(Dir(myFileName, vbDirectory)) > 0 Then If Dir(myFileName) <> "" Then MsgBox "该文件存在"Else MsgBox "该文件不存在"End If Else MsgBox "所指定的文件夹或文件不存在"End If End Sub ...

'判断文件是否存在 Function ExistsFile_UseFso(strPath As String) As Boolean Dim fso Set fso = CreateObject("Scripting.FileSystemObject")ExistsFile_UseFso = fso.FileExists(strPath)Set fso = Nothing End Function '测试 Sub a()If ExistsFile_UseFso("具体路径文件（包含文件名的路径）") ...

if dir(dPath,vbDirectory)<>"" then msgbox "存在"end if

在第一次指定了dir中的文件夹路径之后便不用再进行指定。之后每次调用dir，返回的值就是下一个当前文件夹下的文件名。类似于python中的迭代器。当dir遍历了所有文件名对象后，就会返回""，如果再调用才会报错。此外，如果给出具体某个文件的文件路径，文件存在，dir就会返回文件名，不存在则会返回空。...