excel用 vba判断文件是否存在

2016-02-19 14:08 19 1 收藏

下面图老师小编跟大家分享excel用 vba判断文件是否存在，一起来学习下过程究竟如何进行吧！喜欢就赶紧收藏起来哦~

【 tulaoshi.com - Excel教程】

一、通过FileExists判断文件是否存在

Dim MyFile As Object

Set MyFile = CreateObject("Scripting.FileSystemObject")

If MyFile.FileExists("E:dzwebsPiclogo.gif" ) = True Then

MsgBox "文件存在"

Else

MsgBox "文件不存在"

End If

以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:dzwebsPiclogo.gif"为文件路径及文件名称，可自行修改。

二、通过Dir来判断

Dim YouFile As String

YouFile = Dir("E:MyPicturesPiclogo.gif")

If x "" Then

MsgBox "文件存在"

Else

MsgBox "文件不存在"

Endif

"E:MyPicturesPiclogo.gif"为文件路径及文件名称，可自行修改。当然，如上代码，也在VBA下使用，可自作成为宏或函数都可以。

来源:https://www.tulaoshi.com/n/20160219/1606267.html

看过《excel用 vba判断文件是否存在》的人还看了以下文章更多>>

excel vba是什么？

标签： excel

excel vba是什么？故障分析：excel VBA其实就是大家代码编辑程序，有的人被人认为是宏，但是excel vba是包括宏程序的。下面还是一起来看看excel vba是什么?如何打开? 一、excel vba是什么? excel VBA中的vba是Visual Basic For Application的缩写。一般用来实现简单或中等的办公自动化应用。因为易学并且能很好的被...

Android判断包名和类名是否存在的方法

标签：编程语言网络编程

1.对包名的判断,异常则说明不存在: 代码如下： try { PackageManager pm = getPackageManager(); pm.getPackageInfo("com.org", PackageManager.GET_ACTIVITIES); } catch (NameNotFoundException e) { // TODO Auto-generated catch block e.printStack...

Excel Vba读取XML

标签：电脑入门

如下代码示例的功能是，在Excel中，通过VBA代码，读取XML文件中的内容。 Dim rst As ADODB.Recordset Dim stCon As String, stFile As String Dim i As Long, j As Long Set rst = New ADODB.Recordset stFile = "C:dzwebs.xml" stCon = "Provider=MSPersist;" With rst .CursorLocation = adUseClient .Open stF...

VB之Win32 API编程--判断本地或远程文件是否存在的简易方法

中午休息时，在FOX API（我常用的Win32 API浏览器)上发现了一个简单极好用的Win32API函数，是用来判断本地文件或远程机器文件是否存在的： 1. Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long 这是封装在Shell32.DLL系统文件里的一个函数，既可以判断本地文件是否存在...

检查当前目录下是否存在指定的文件如果存在就重新命名

标签： Web开发

% function JudgeFileExit(strFileName) Dim objFSO,objFile,objFJ Dim strFilePath Dim blFJ Dim intFlag intFlag=0 set objFSO=CreateObject("Scripting.FileSystemObject") strFilePath=server.MapPath("./") if right(strFilePath,1)"/" or right(strFilePath,1)"\" then strFilePath=strFilePath&"\" end if blFJ=objFSO.FileExists(st...

查看更多精彩>>