vb 如何查询一个文件夹是否存在excel表

用dir函数。如果存在，dir返回函数的文件名，否则返回空值。

If Dir("C:\*.xls") <> "" Then
MsgBox "存在excel表 "
Else
MsgBox "不存在excel表"
End If

dir("文件夹路径"& "*.xls",vbnormal)

看这个文件夹内的文件后缀名是否有.xls的。