本文目录
- EXCEL VBA怎样判断D盘下某文件存在时执行宏命令
- [VBA]如何判断一个文件或者文件夹是否存在
- VBA,怎么判断指定路径文件夹是否存在子文件夹(非文件)
- vba 判断文件夹是否有某文件类型
- 怎么用vba判断文件夹里的文件(学生照片)是否存在,并且将结果填入excel算法怎么写
- VBA判断代码所在工作簿所在文件夹下是否存在某个excel文件,出错了!!!
- excel中vba中如何判断是文件夹,还是没有扩展名的文件
EXCEL VBA怎样判断D盘下某文件存在时执行宏命令
楼主应该是要判断文件不是文件夹吧?如果是文件就用 Dim MyFile As ObjectSet MyFile = CreateObject("Scripting.FileSystemObject")If MyFile.FileExists("D:\logo.gif" ) = True ThenMsgBox "文件存在"Else MsgBox "文件不存在"End If如果是文件夹就用1楼的方法.
[VBA]如何判断一个文件或者文件夹是否存在
可以使用如下几个函数来判断Function ExistsFile_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")ExistsFile_UseFso = fso.FileExists(strPath)Set fso = NothingEnd FunctionFunction FolderExists_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")FolderExists_UseFso = fso.FolderExists(strPath)Set fso = NothingEnd FunctionFunction FileOrFolderExists_UseDir(strPath As String) As Boolean’注意,使用 DIR 函数来检测文件或者文件夹是否存在在局域网环境下’由于访问权限问题可能会出错If Dir(strPath) = "" Then1和0
VBA,怎么判断指定路径文件夹是否存在子文件夹(非文件)
以下代码即可判定指定文件夹是否存在:
Sub 判定指定文件夹下是否有子文件夹()Dim Pa$, Na$Pa = "D:\123" ’指定文件夹Na = Dir(Pa & "\*", vbDirectory)While Na 《》 "" If InStr(Na, ".") = 0 Then MsgBox Pa & "下有子文件夹" Exit Sub End If Na = DirWendMsgBox Pa & "下无子文件夹"End Sub
vba 判断文件夹是否有某文件类型
Sub aaaa()Set MyFso = CreateObject("Scripting.FileSystemObject")Set myfile = MyFso.GetFolder("F:\").FilesFor Each fn In myfile If fn.Type = "RAR 文件" Then Debug.Print fn.Name N = N + 1 End IfNextMsgBox "F盘根目录下有" & N & "个压缩包文件"End Sub
怎么用vba判断文件夹里的文件(学生照片)是否存在,并且将结果填入excel算法怎么写
Sub 宏22()Dim r, p, n, i%, j%, k%r = Range("B65536").End(xlUp).Rowp = "D:\学生照片\" ’假设“学生照片”文件夹在D盘,照片文件名以学生姓名命名n = Dir(p, vbDirectory)Do While n 《》 "" If n 《》 "." Then If (GetAttr(p & n) And vbDirectory) 《》 vbDirectory Then i = i + 1 For j = 2 To r If n = Cells(j, 2).Text & ".jpg" Then Cells(j, 3) = "有" Next End If End If n = DirLoopFor k = 2 To rIf Cells(k, 3) = "" Then Cells(k, 3) = "无"NextEnd Sub
VBA判断代码所在工作簿所在文件夹下是否存在某个excel文件,出错了!!!
你要加上文件扩展名,你不说电脑怎么会知道这是个excel文档呢?fil = ThisPath & "\" & Brr_name(j) & ".xls"
excel中vba中如何判断是文件夹,还是没有扩展名的文件
直接忽略不容易办到。如果是vba遍历查找excel文件,可以使用dir或者fso的方法,读取已存在的excel文件名(含扩展名后缀)如果是希望弹出对话框,让用户选择excel文件(不管是什么扩展名)可以使用过滤条件,限制用户可选文件的类型。