vba - 需要的对象 : VBA Excel

Question

我有一个范围，我正在转置并分配给带有行源的列表框。当我在将范围 (TSelected_Range) 分配给行源的行上运行程序时，出现错误“需要对象”。任何想法？

Set Selected_Range = WS_Sel.Range(WS_Sel.Cells(2, 1), WS_Sel.Cells(counter + 1, LstCol1))
Dim TSelected_Range As Variant
TSelected_Range = Application.Transpose(Selected_Range)

With TabData.DataTable
    .ColumnHeads = True
    .ColumnCount = counter + 1
    .RowSource = TSelected_Range.Value   ********errors here 
End With

Answer 1

这应该对你有用，我使用了一个数组和 List 属性:

Set Selected_Range = WS_Sel.Range(WS_Sel.Cells(2, 1), WS_Sel.Cells(counter + 1, LstCol1))
Dim TSelected_Range() As Variant
TSelected_Range = Selected_Range.Value
TSelected_Range = Application.Transpose(TSelected_Range)

With TabData.DataTable
    .ColumnHeads = True
    .ColumnCount = counter + 1
    .List = TSelected_Range   
End With