Application.ScreenUpdating = False
Set conn = CreateObject("adodb.connection")
conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 8.0;imex=1';data source=" & ActiveWorkbook.FullName
Provider=Microsoft.Jet.OLEDB.4.0 换成 Provider=Microsoft.ACE.OLEDB.12.0