Sub TEST()
Columns("B:B").NumberFormatLocal = "@"
For i = 2 To [B65536].End(xlUp).Row
If IsNumeric(Cells(i, 2)) Then Cells(i, 2) = CStr(Cells(i, 2).Value)
Next
Set conn = CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & ThisWorkbook.FullName
Sql = " select * from [成绩表$]"
Sheets("Sheet2").Range("A2").CopyFromRecordset conn.Execute(Sql)
End Sub