ADO在Excel插入数据的AddNew方法

代码如下：
Sub ADO往Excel中写数据的AddNew方法()
Dim Cn, Rs, arr, i As Integer
Dim PathStr As String, SQL As String
Set Cn = CreateObject('ADODB.Connection') '创建数据连接对象
Set Rs = CreateObject('ADODB.Recordset') '创建记录集对象
PathStr = ThisWorkbook.FullName
Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接
Case Is <= 11
strConn = 'Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data