VBA -从动态创建的列表视图中添加项目到组合框

Sub AddItemsToListView()
    Dim listView As Object
    Dim comboBox As Object
    Dim item As Object
    
    ' 获取列表视图对象
    Set listView = Sheet1.ListView1
    
    ' 获取组合框对象
    Set comboBox = Sheet1.ComboBox1
    
    ' 添加项目到列表视图
    Set item = listView.ListItems.Add(, , "Item 1")
    item.SubItems(1) = "Description 1"
    
    Set item = listView.ListItems.Add(, , "Item 2")
    item.SubItems(1) = "Description 2"
    
    ' 添加项目到组合框
    comboBox.AddItem "Item 1"
    comboBox.AddItem "Item 2"
End Sub