vba怎么判断文件夹是否存在？

VBA中有时要判断文件或文件夹是否存在，为打开文件作准备，这里采用错误机制来判断

代码如下：

Function 文件或文件夹是否存在(全路径 As String) As Boolean

On Error GoTo

EarlyExit

If Not Dir(全路径, vbDirectory) = vbNullString Then

文件或文件夹是否存在 = True

End If

Exit Function

EarlyExit:

文件或文件夹是否存在 = False

End Function

需在说明的是，参数“全路径”要有盘符之类的，呵呵

使用方法与其它函数一样

VBA的 *** 作中，有时要打开一个文件，但要是文件已打开，再次通过程序打开时，会出现错误，因此，在打开文件之前，需在先判断文件是否已打开，下面是判断代码：

Function 文件是否打开(文件名 As

String) As Boolean

On Error Resume Next

文件是否打开 = True

If StrComp(Workbooks(文件名).Name, 文件名, vbTextCompare)  0 Then

文件是否打开 = False

End If

End Function

需要说明的是，参数“文件名”是短文件名（不带路径的文件名）

Function 特殊文件夹路径(文件夹名

As String) As String

Dim WSHShell As Object

Dim lj As String

Set WSHShell =

CreateObject("Wscript.Shell")

lj = WSHShell.SpecialFolders(文件夹名)

Set WSHShell = Nothing

特殊文件夹路径 = lj

End Function

文件夹名有：

AllUsersDesktop

AllUsersStartMenu

AllUsersPrograms

AllUsersStartup

Desktop

Favorites

Fonts

MyDocuments

NetHood

PrintHood

Programs

Recent

SendTo

StartMenu

Startup

Templates

vba怎么判断抓取的工作簿是正确的。工作簿添加自定义文档属性单击文件——信息——属性——高级属性，打开工作簿的属性对话框。遍历Workbooks集合方法通过遍历当前应用程序所有已打开的工作簿文件(Workbooks集合)，判断指定名称的工作簿是否打开。

试试下面的代码：

For Each Wb In WorkBooks

    If Wb.Name="ABC.xls" Then  '如果存在，表示已经打开   

   Else'不存在，表示没有打开，则可以用WorkBook.Open打开此文件

      Set Wb1=Workbooks.Open "C:\ABC.xls"

   End If

    '打开后执行的 *** 作语句

Next

---