vba宏如何判断文件是否为excel文件

vba宏如何判断文件是否为excel类型文件 求教

file.type like "*Excel"*

关于，一般有如下的两种方式。 请根据情况，选择一种适合你的方法。 一、通过fileexists判断文件是否存在 dim myfile as object set myfile = createobject("scripting.filesystemobject") if myfile.fileexists("e:\dzwebs\pic\logo.gif" ) = true then msgbox "文件存在" else msgbox "文件不存在" end if 以上代码在vba环境下使用。或者将其制作成为宏也可以。"e:\dzwebs\pic\logo.gif"为文件路径及文件名称，可自行修改。 二、通过dir来判断 dim youfile as string youfile = dir("e:\mypictures\pic\logo.gif") if x <> "" then msgbox "文件存在" else msgbox "文件不存在" endif "e:\mypictures\pic\logo.gif"为文件路径及文件名称，可自行修改。当然，如上代码，也在vba下使用，可自作成为宏或函数都可以。 上面的两种方法，本站推荐你使用第一种方法，因为第一种方法比较符合逻辑思维。