准备工作Dim conn As NewADODB.Connection'创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As ADODB.Recordset'创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用Dim CnStr As String, Sql As String'创建两个字符

Microsoft ACE OLEDB 12.0 数据库连接字符串Excel 97-2003Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myOldExcelFile.xls;Extended Properties=“Excel 8.0;HDR=YES”;Excel 2007-2013Provider=Microsoft.ACE

Microsoft ACE OLEDB 12.0 数据库连接字符串Excel 97-2003Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myOldExcelFile.xls;Extended Properties=“Excel 8.0;HDR=YES”;Excel 2007-2013Provider=Microsoft.ACE