在www.example.com中使用ExcelVB.net会无故失败

46scxncf  于 2023-05-30  发布在  .NET
关注(0)|答案(1)|浏览(167)

下面的代码即将导出到excel文件. Visual Studio发送图片中的错误。这段代码有什么问题?

Imports Microsoft.Office.Interop.Excel
Module Module3
    Public Sub OOO()
        Dim excel As Application = New Application
        Dim workbook As Workbook = New Workbook
        Dim worksheet As Worksheet = workbook.ActiveSheet
        worksheet.Name = "Export as Excel Project"
        worksheet.Cells(1, 1) = "Value1"
        worksheet.Cells(2, 1) = "Value2"
        worksheet.SaveAs("d:\Actor.xls", Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookDefault)
        workbook.Close()
    End Sub
End Module

chhkpiq4

chhkpiq41#

您的代码从第一个Dim excel行开始是错误的。你期望那将是一个Excel。应用程序,但它不是,它是System。Windows。应用程序(正如我从错误窗口中理解的那样)。如果这一行是正确的,那么下一行将尝试创建一个不相关的Workbook对象。尝试:

Sub Main
    Dim xl As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
    Dim workbook = xl.Workbooks.Add()
    Dim worksheet As Worksheet = CType(workbook.ActiveSheet, Worksheet)
    worksheet.Name = "Export as Excel Project"
    worksheet.Cells(1, 1) = "Value1"
    worksheet.Cells(2, 1) = "Value2"
    worksheet.SaveAs("d:\Actor.xlsx", Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookDefault)
    workbook.Close()
    xl.Quit()
End Sub

请注意,文件扩展名是XLSX,而不是当前版本的Excel的XLS(很长一段时间真的,Excel不会打开它没有警告,如果你碰巧保存为XLS)。

相关问题