MsgBox "&str&"改成msgbox str另外baseSheet 你没有指定对象set baseSheet= sheets("表的名称")
ListObjects 并不是表示列表框，而表示表格（插入---表格）。如果是 activex 控件可以用 OLEObjects如果是 表单控件，可以用 shapes
ListBox1引用：baseSheet.Shapes(n) n代表第几个Shape
