使用VB.NET的Excel(来自HRESULT的异常：0x8002000B(DISP_E_BADIN

发布时间：2020-12-17 00:08:10 所属栏目：大数据来源：网络整理

导读：我是第一次尝试从VB.net创建一个Excel文件. 我已经添加了Microsoft.Office.Excel引用,导入Microsoft.Office.Interop Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim xlApp As Excel.Appl

我是第一次尝试从VB.net创建一个Excel文件.
我已经添加了Microsoft.Office.Excel引用,导入Microsoft.Office.Interop

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

    Dim xlApp As Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet
    Dim misValue As Object = System.Reflection.Missing.Value

    xlApp = New Excel.ApplicationClass
    xlWorkBook = xlApp.Workbooks.Add(misValue)
    xlWorkSheet = CType(xlWorkBook.Sheets("sheet1"),Excel.Worksheet)
    xlWorkSheet.Cells(1,1) = "Something here"
    xlWorkSheet.SaveAs("D:vbexcel.xlsx")

    xlWorkBook.Close()
    xlApp.Quit()
    releaSEObject(xlApp)
    releaSEObject(xlWorkBook)
    releaSEObject(xlWorkSheet)

    MsgBox("Excel file created,you can find the file c:")

End Sub

错误generetad在行：

xlWorkSheet = CType(xlWorkBook.Sheets("sheet1"),Excel.Worksheet)

   Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

也许您的Excel版本不会说英语.而“表格”是当地语言中的脏词,它有点英文;)你的名字暗示英语不是默认语言.使用索引而不是名称来避免这样的事故：

xlWorkSheet = CType(xlWorkBook.Sheets(1),Excel.Worksheet)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!