从Excel中插入数据到Access数据库时出现类型不匹配的情况

aiven_love

我要实现将Excel中的数字插入到Access数据库中的功能，在数据库中设置的数据类型是长整型，Excel中用的是常规格式，在执行插入的代码中用了数据类型转换函数CLng，但在运行时一直出现“运行时错误'13'，数据类型不匹配”的情况。
请教大神，如何实现这种将数字插入到数据库中的功能。

aiven_love

求指教啊！

zhaogang1960

欢迎新会员
没有必要转换类型，请参考：
Sub Macro1()
    Dim cnn As New ADODB.Connection
    Dim SQL$
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\历史纪录.mdb"
    SQL = "insert into 人员信息 select * from  [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[人员信息$]"
    cnn.Execute SQL
    cnn.Close
    Set cnn = Nothing
End Sub

zhaogang1960

请参考附件
23.rar (34.85 KB, 下载次数: 58)

2012-4-30 18:48 上传

点击文件名下载附件

jygzcj

zhaogang1960 发表于 2012-4-30 18:45
欢迎新会员
没有必要转换类型，请参考：
Sub Macro1()

如果一列中格式中有的是文本格式，有的是数字格式，怎么处理比较好！