我正在使用以下代码创建一个新的工作簿。代码会运行,并按预期方式创建工作簿,但是,当我打开新创建的工作簿时,一旦输入单元格,excel就会崩溃。
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim excelApp As New Excel.Application
Dim WB As Excel.Workbook = excelApp.Workbooks.Add()
WB.SaveAs("C:\Test Folder\TestFile.xlsx", Microsoft.Office.Interop.Excel.XlFileFormat.xlOpenXMLWorkbook)
'WB.SaveAs("C:\Test Folder\TestFile.xlsb", Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel12)
'WB.SaveAs("C:\Test Folder\TestFile.xls", Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel8)
WB.Close()
excelApp.Quit()
WB = Nothing
excelApp = Nothing
End Sub
End Class
由于excel崩溃,我收到以下消息。
运行上述代码时,Excel崩溃的时间大约为80%。我注意到,如果在打开创建的excel工作簿时看到以下Excel启动窗口,则Excel不会崩溃,这使我认为当excel崩溃时,是因为在执行代码期间未正确关闭它(excelApp .Quit()???)。
在创建工作簿时该文件夹为空,因此对于已经存在的文件应该没有错误。
有人知道我在做什么错,我花了数小时试图找出解决办法,但无法解决。任何帮助,将不胜感激。谢谢!