如图，请问为什么会出现这个问题 ？ 第一个记录执行可以。可以后面几个就出现这个问题了，哪儿有错吗？ 如果有错，有些记录执行是可以的。

Dim Book As New XLS.Book(ProjectPath & "Attachments\\Production Order.xlsx")
Dim Result As DialogResult
Dim Proc As New Process \'打开工作簿

 
Dim fl As String = ProjectPath & "Production Order\\" & Tables("生产任务单.生产投料单").current("生产任务单号") & ".xlsx"  

Book.Build()

If FileSys.FileExists(ProjectPath & "production order\\" & Tables("生产任务单.生产投料单").current("生产任务单号") & ".xlsx")  Then
    Result = Messagebox.Show(Tables("生产任务单.生产投料单").current("生产任务单号") & ".xlsx"&" 文件已经存在,是否要覆盖?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
       
        Book.Save(fl) \'保存工作簿
        Proc.File = fl
        Proc.Start()

      End If
Else
Book.Save(fl) \'保存工作簿
Proc.File = fl
Proc.Start()

End If