本人在Excel2000 VBA中实现以下功能:
将窗体中的全部ComboBox循环取值:
For ix = 11 To 15
    Set objcomboboxRet = Controls("ComboBox" & ix)'对象变量定义
    .Cells(nWriteSheetAZRow, ix + 7).Value = objcomboboxRet.Text 
Next
在VB编程中,一定也能够实现。请试试。