这样吧: Filter = Names(i1) & " = " & Tables(bm).Rows(i)(Names(i1)) ' 下同
另外: msgbox("保存成功","提示") = > msgbox("保存成功",0)