路径写写得有问题。
1、括号看是否是全角的 ()而不是()
2、xls是否为xlsx
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\机考安排表(供安排之用).xls")