自己都删除掉了,在使用代码打开肯定就有问题
Dim Book As New XLS.Book(dlg.FileName)
Dim fl As String = dlg.FileName fl和dlg.FileName是同一个路径
'ProjectPath & "导出Excel文件/按账户查账/" & wjmc & "/" & wjmc & "_" & Format(Date.Now,"yyyyMMdd HHmmss") & ".xls"
Book.Save(fl)
If FileSys.FileExists(dlg.FileName) Then '如果指定的文件存在
FileSys.DeleteFile(dlg.FileName,2,2) '则彻底删除之
End If
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl) 这里打开已经删除的文件肯定出错