我刚从 Visual Studio 中的 Excel Add-in express 开始,并读到类似的表达式 mySheet.Columns.count
是一个很大的“禁止”,因为它创建了一个Columns
不与任何变量绑定的中间对象,以后无法发布。
考虑到这一点,我编写了以下代码,仔细确保我没有链接任何对象。这似乎是一种非常耗时的编码方式,因此想在进一步进行之前检查我的方法。有没有更好的办法?
'find ends
Dim leftCol As Integer
Dim tmpCell, tmpCell2 As Excel.Range
tmpCell = Sh.Cells(1, 1) 'COM
If (tmpCell.Value <> "") Then
leftCol = 1
Marshal.ReleaseComObject(tmpCell)
Else
tmpCell2 = tmpCell.End(XlDirection.xlToRight)
leftCol = tmpCell2.Column
Marshal.ReleaseComObject(tmpCell2)
Marshal.ReleaseComObject(tmpCell)
End If
Marshal.ReleaseComObject(Sh)