系统报错 End If without block if

冰晶火

初步开始研读VBA宝典。在程序调试上出现以下问题。在立即窗口输入以下代码：
If Len(Dir("Macintosh HD:Users:RobertBao:Documents:Own:Inv Status:Inv All.xls", vbNormal)) = 0 Then
        Workbooks.Add
        ActiveWorkbook.SaveAs "Macintosh HD:Users:RobertBao:Documents:Own:Inv Status:Inv All.xls"
Else
        Workbooks.Open "Macintosh HD:Users:RobertBao:Documents:Own:Inv Status:Inv All.xls"
End If

系统报错“End If without block If".

仔细查了查 If-- then, -- Else, end if 可能因为断行而引起的同样的错误，好像并不是原因所在。向大家求助。我的是mac系统office2011.

谢谢

冰晶火

经过了一天的折腾，终于发现问题了。函数dir在没有找到制定路径下的文件时，所返回的值在windows和Mac下是不同的。我手头上没有windows系统，但是根据MSDN的解释，在windows下，如果没有找到相应的文件，返回一个空值（len（）＝0）。但是在mac下，如果没有找到相应的文件，系统会报错。解决的办法是在前面加上 On Error Resume Next.  希望这个小发现对大家能够有所帮助。在windows下的同学希望可以测试下dir然后确认以下。