vba - 无法设置 RowSource 属性。无效的属性值

Question

我有一个 Excel，我在“A”列中填充了一些数据，我希望数据出现在我的用户表单中的列表框中。但我反复收到运行时错误 380，说明“无法设置 RowSource 属性。无效的属性值”
下面是代码。

Private Sub ComboBox1_Change()

Dim wb123 As Workbook, TempFile As Workbook
Dim Tempsheet As Worksheet
Dim Last_Row As Integer


 Set wb123 = ThisWorkbook
Set TempFile = Workbooks.Open("C:\Users\inkapb\AppData\Local\Temp\EPC AutoTool\Projects\" & Me.ComboBox1.Text & "\Template.xlsm")

 Set Tempsheet = TempFile.Worksheets("Sheet2")
Last_Row = Tempsheet.Cells(Tempsheet.Rows.count, "A").End(xlUp).Row

     With ListBox1

    .ColumnCount = 1
    .ColumnWidths = "50"
    .RowSource = Tempsheet.Range("A2:A" & Last_Row).Address
End With


End Sub

这是我的包含数据的excel表。

Answer 1

作为快速修复，您可以替换
.RowSource = Tempsheet.Range("A2:A" & Last_Row).Address
和
.RowSource = "=Sheet2!A2:A" & Last_Row
另一种方法是使用 For循环遍历单元格并一次添加一个。如果我想在将项目添加到组合框之前执行一些附加操作，我通常使用以下方式，例如有一个If语句来判断我是否要添加该单元格值。

For i = 2 to Last_Row 'Start from row 2 to Last_Row
     .AddItem Tempsheet.Cells(i,1).Value 'Add the item in the first column
Next i