为什么Windows Forms应用程序不会将文件保存到文件夹

我有一个Windows窗体应用程序。 在这个应用程序中,我保存一个Excel文件到文件夹。 这是保存文件的function:

Public Sub ExportToXls(ByRef dt As DataTable, ByRef path As String) On Error Resume Next 'I use Microsoft.Office.Interop.Excel version = 12 Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets(1) For i1 As Integer = 0 To dt.Columns.Count - 1 xlWorkSheet.Cells(1, i1 + 1) = dt.Columns(i1).Caption Next For i1 As Integer = 0 To dt.FieldCount - 1 xlWorkSheet.Cells(2, i1 + 1) = dt.Fields(i1) Next Dim fi As New FileInfo(path) If fi.Exists Then fi.Delete() End If ' Default path is X:\WMisch.xls ' here on X: I have all rights. xlWorkSheet.SaveAs(Filename:=path, FileFormat:=Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel8) xlWorkBook.Close() xlApp.Quit() xlApp = Nothing xlWorkBook = Nothing xlWorkSheet = Nothing On Error GoTo 0 End Sub 

所有的工作正常更多的1台PC /服务器,但在一台服务器,与Windows Server 2008 R2标准,不工作(不保存文件pathX:\ WMisch.xls)。 在这里,在这台服务器上安装了Office 2003,但是我也安装了MS Office Interop版本12。

有人可以说我问题在哪里吗? 谢谢!

我看到你正在使用On Error Resume Next 。 而是使用Try..Catch语句。 可能会帮助你find你的错误。