Question

vb 把一个combo的所有项写入Excel的一列

combo里具体有多少项不知道

Answer 1

Sub listCombo()
    Dim arr, i&
    arr = Sheet1.ComboBox1.List
    For i = 0 To UBound(arr)
            Sheet1.Cells(i + 1, 1) = arr(i, 0)
    Next
End Sub

追问

没理解，您能注释一下吗，我新手

追答

下载附件测试一下吧

追问

您可能理解错了，我是要在VB下，点击一个按钮，将一个combo的所有项写入一个特定的Excel文件的第一列

追答

嗯，是的。我理解错了。以为是VBA