希望哪位大师给鼎力相助下用Ado方式将excel数据提取到ACCESS

Kye

;;; http://blog.csdn.net/brightskyliu/article/details/3789315

下面一段VB代码是将excel数据提取到Access ，测试速度还行，希望将其转为Vlisp代码；我自己试着将其下面转为vlisp代码，未成功，超出个人能力范围，希望哪位大师给鼎力相助下，下面链接是搜索的资料，能搜到的资料有点少，附件是测试材料,谢谢！

;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=57457（总版主的ado VLISP中使用数据库(一)通过数据库保存的坐标画圆）
;_http://www.cadtutor.net/forum/archive/index.php/t-6889.html (ado 方式获取excel数据 ，速度有点慢，似乎不比excel.application快）
;_http://bbs.mjtd.com/thread-75453-1-1.html ADO读取excel单元格数据



Sub tr()
Dim conn
Dim conn2
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:/tmpExcel.mdb"
  
Set conn2 = CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 8.0;Data Source=c:/tmpExcel.xls"
sql = "SELECT * FROM [coveringData$]"
Set rs = conn2.execute(sql)
While Not rs.EOF
sql = "insert into xxx([a],,[c],[d]，[e],[f]) values('" & fixsql(rs(0)) & "','" & fixsql(rs(1)) & "','" & fixsql(rs(2)) & "','" & fixsql(rs(3)) & "','" & fixsql(rs(4)) & "','" & fixsql(rs(5)) & "')"
conn.execute (sql)
rs.movenext
Wend
  
conn.Close
Set conn = Nothing
conn2.Close
Set conn2 = Nothing
  
  
End Sub

Function fixsql(str)
Dim newstr
newstr = str
If IsNull(newstr) Then
newstr = ""
Else
newstr = Replace(newstr, "'", "''")
End If
fixsql = newstr
End Function

Kye

改为求助了，谢谢！

Kye

还是用顶楼的VB，可能改成lisp速度也上不去