Excel文件的saveAs在VB.NET中不起作用

Question

我有一個簡單的VB.NET路由，可以將文本文件打開到Excel中，然后將其另存為Excel文件（.xlsx）。 打開的工程文件，但保存失敗，並顯示NullReference Exception。

 FileName = "C:\Temp\BOM of " & AssyName & ".txt"
    Dim xlApp As New Excel.Application
    Dim xlWorkBook As Excel.Workbook = Nothing
    Dim xlWorkSheet As Excel.Worksheet


    xlApp.Workbooks.OpenText(FileName, _
       StartRow:=1, _
       DataType:=Excel.XlTextParsingType.xlDelimited, _
       TextQualifier:=Excel.XlTextQualifier.xlTextQualifierNone, _
       Comma:=True)
    xlApp.Visible = True

    xlWorkBook.SaveAs("C:\Temp\BOM of " & AssyName & ".xlsx", Excel.XlFileFormat.xlWorkbookNormal)
    xlWorkBook.Close(True)
    xlApp.Quit()

不知道這是怎么回事。 圖像有失敗消息。

謝謝。 VB> NET保存Excel文件失敗。

Answer 1

看起來像Dim xlWorkBook As Excel.Workbook = Nothing邏輯上Dim xlWorkBook As Excel.Workbook = Nothing 。

在您發布的不完整代碼中，您沒有將xlWorkbook設置為任何內容。 因此，當您保存時， xlWorkbook實際上是Nothing 。

未測試，但請考慮：

xlWorkBook = xlApp.Workbooks.OpenText(FileName, _
       StartRow:=1, _
       DataType:=Excel.XlTextParsingType.xlDelimited, _
       TextQualifier:=Excel.XlTextQualifier.xlTextQualifierNone, _
       Comma:=True)