Sql = "update " & myTable & " a,[Excel 12.0;imex=0;Database=" & ActiveWorkbook.FullName & "].[自助取数$" _ & Range("a1").CurrentRegion.Address(0, 0) & "] b set " & Mid(strTemp, 2) & " where a.统计日期=b.统计日期" cnn.Execute Sql '不判断,更新可能存在的“学生编号”