MsgBox "&str&"
改成
msgbox str
另外baseSheet 你没有指定对象
set baseSheet= sheets("表的名称")
ListObjects 并不是表示列表框，而表示表格（插入---表格）。
如果是 activex 控件可以用 OLEObjects
如果是 表单控件，可以用 shapes
ListBox1引用：
baseSheet.Shapes(n)
n代表第几个Shape
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024