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

Question

我有一个简单的 VB.NET 路由，可以将文本文件打开到 Excel 中，然后将其另存为 Excel 文件 (.xlsx)。打开的作品文件，但保存失败，出现 NullReference 异常。

 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 Failure on saving an Excel file.

Answer 1

看起来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)