错在这里:
Dim Book As New XLS.Book("E:\统计") E盘文件夹
你指定了路径,没有指定文件名。
建议看看这个:
http://www.foxtable.com/help/topics/1485.htm