财产“物品”是“只读” VBA 到 VB.NET 迁移时出错

Question

更新2

请参阅我对问题的回答。

更新

因此，我根据下面的 @Eddy 评论更新了代码，但是我仍然在 myRange = Globals.Sheet... 行上收到错误。

Dim xlDown, i As Int32
Dim myRange As Excel.Range

myRange = Globals.Sheet1.Application.Transpose(
                             Globals.Sheet1.Range(
                                 Globals.Sheet1.Range("A1"), 
                                 Globals.Sheet1.Range("A1").End(xlDown)).Value)

 For i = 1 To myRange.Rows.Count
      ListBox2.Items.Add(myRange.Cells(i, 1).Value)
 Next i

错误说：

System.RuntimeType.ForwaredCallToInvokeMember(String memberName, BindingFlags 标志、对象目标、Int32[] aWrapperTypes、MessageData& msgData) 在 Microsoft.Office.Interop.Excel.Range.get_End(XlDirection 方向）

有什么想法吗？

再次感谢

---------------------------------原始问题------------- ------------------------

我有一个 VBA excel 程序，我正在将其转换为 VB.net（使用 Visual Studio 2010），并且我得到旧 VBA 版本中没有的错误。当我尝试将 Excel 范围转置到列表框时，会发生错误：

属性项是只读的

在 With 语句中

Dim xlDown As Int32

With Globals.Sheet1
    ListBox2.Items = Globals.Sheet1.Application.Transpose(
                         Globals.Sheet1.Range(
                             Globals.Sheet1.Range("A1"), 
                             Globals.Sheet1.Range("A1").End(xlDown)).Value)
End With

是只读的，我不知道该怎么办，也许我没有正确引用 Globals.Sheet1？

谢谢

Answer 1

您无法替换 Items 集合本身，您必须替换其中的所有项目。您可以使用 Clear 方法删除以前的项目，并使用 AddRange 方法添加新项目：

ListBox2.Items.Clear() ' If you need to remove previous items
ListBox2.Items.AddRange(Globals.Sheet1.Application.Transpose(Globals.Sheet1.Range(Globals.Sheet1.Range("A1"), Globals.Sheet1.Range("A1").End(xlDown)).Value))

Answer 2

经过进一步的研究，我发现我不必使用转置方法将 excel.range 值分配给列表框。

感谢那些回复的人。

        Dim range As Excel.Range = Globals.Sheet1.UsedRange
        Dim obj As Object

        For rCnt = 1 To range.Rows.Count
            For cCnt = 1 To range.Columns.Count
                obj = CType(range.Cells(rCnt, cCnt), Excel.Range)
                ListBox1.Items.Add(obj.value)
            Next
        Next