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)