【发布时间】:2017-01-05 04:13:35
【问题描述】:
第 3 行返回 COMException。 oBooks.GetType().Invoke...
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()
【问题讨论】:
-
尝试编写both 后期绑定代码和 早期绑定代码是没有意义的。您对互操作库有很强的依赖关系,您不妨使用 Application.WorkBooks。如果由于某种原因没有 Application 对象引用,请从 WorkBook.Application 获取它。最大的好处是你不能犯这样的错误,IntelliSense 告诉你 WorkBook 没有 Add() 方法。