EXCEL数据导入ACCESS时出错，请指正。谢谢

鱼求雨

为什么会在添加记录时出错，说是有NULL值，明明没空值嘛！
      请见附件： 基本信息表 (添加至数据库).rar (18.22 KB, 下载次数: 56)

2008-12-12 19:05 上传

点击文件名下载附件

Renco

改成这样

With Worksheets("1概况信息")
    rowCount = Range("b2:b39").Rows.Count
    rstAccess.AddNew '添加一个新记录到Access表中
    For i = 2 To rowCount + 1
      With rstAccess      
        .Fields(i - 2).Value = Cells(i, 2)
      End With
    Next i
    rstAccess.Update '更新表记录   
  End With

鱼求雨

多谢,您的帮助！！您可真有耐心，还仔细看偶的代码

向您学习，致敬。