.xls位置查找的vb脚本出错

Question

我在编写用于打开下面给出的.xls文件的vb脚本时遇到问题。

Dim XLAPP

Set XLAPP = createobject("excel.application")

XLAPP.Visible =true

XLAPP.Workbook.open"d:\book1.xls"

当我运行此脚本时，弹出窗口会显示如下错误：

由于无法恢复的错误，测试运行无法继续。 找不到'd：\ book1.xls'。检查文件名的拼写，并验证文件位置是否正确。 如果您尝试从最近使用的文件列表中打开该文件，请确保该文件尚未重命名，移动或删除。 第（1）行：“Dim XLAPP”。

当我编写脚本XLAPP.Workbook.Add时，它会添加一个excel文件，但上面给出的脚本没有打开excel文件。