主题：设计导出窗口时，显示打开存储文件失败

提示这个，一般是你的文件名称写错了。注意红色地方的后缀名是不是xlsx

Dim Book As New XLS.Book(ProjectPath & "Attachments\次数控制有寿件信息表.xlsx")

还要注意，在项目的【Attachments】文件夹下，是否有对应的文件。