出现 COMException - 未知名称。 （HRESULT 异常：0x80020006 (DISP_E_UNKNOWNNAME)）尝试修改现有 excel 文件时
COMException occurred - Unknown name. (Exception from HRESULT: 0x80020006 (DISP_E_UNKNOWNNAME)) when trying to modify an existing excel file
第 3 行 returns COMException。 oBooks.GetType().调用...
Dim oBooks As Microsoft.Office.Interop.Excel.Workbook = Me.fOpenXlsFile(strXLSFile)
Dim ci As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("en-US")
oBooks.GetType().InvokeMember("Add", Reflection.BindingFlags.InvokeMethod, Nothing, oBooks, Nothing, ci)
For i As Int32 = 0 To objLv.Items.Count - 1
oBooks.Styles.Item(i + 1).Interior.Color = objLv.Items(i).BackColor
Next
oBooks.Save()
您正在尝试将一个工作簿添加到另一个工作簿。您需要将它添加到 Workbooks 集合中。这样的事情应该有效：
Dim wbs As Excel.Workbooks = oBooks.Application.Workbooks
wbs.GetType().InvokeMember("Add", Reflection.BindingFlags.InvokeMethod, Nothing, wbs, Nothing, ci)
第 3 行 returns COMException。 oBooks.GetType().调用...
Dim oBooks As Microsoft.Office.Interop.Excel.Workbook = Me.fOpenXlsFile(strXLSFile)
Dim ci As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("en-US")
oBooks.GetType().InvokeMember("Add", Reflection.BindingFlags.InvokeMethod, Nothing, oBooks, Nothing, ci)
For i As Int32 = 0 To objLv.Items.Count - 1
oBooks.Styles.Item(i + 1).Interior.Color = objLv.Items(i).BackColor
Next
oBooks.Save()
您正在尝试将一个工作簿添加到另一个工作簿。您需要将它添加到 Workbooks 集合中。这样的事情应该有效：
Dim wbs As Excel.Workbooks = oBooks.Application.Workbooks
wbs.GetType().InvokeMember("Add", Reflection.BindingFlags.InvokeMethod, Nothing, wbs, Nothing, ci)