主题：找不到保存的文件

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 

dlg.Filter= "excel|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件

Dim Book As New XLS.Book(ProjectPath & "Attachments\模板.xls")

Dim fl As String = "成绩表.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

MessageBox.Show("保存成功" )

End If