弹出什么提示吗?代码没问题,有可能是你修改的那一行不是 Tables("smboc1").Current
弹出值看看
msgbox(Tables("smboc1").Current("年份"))
msgbox(Tables("smboc1").Current("年月"))