一张EXCEL表中数据一次性导入ACCESS，错误提示日期格式不匹配

百岁新手

这段代码，想把一张EXCEL表的数据一次性导入ACCESS数据库
运行错误好象是日期的格式不匹配，不知道究竟该是2011-7-7和2011-07-07
请高手指教，多谢！
Private Sub 数据备份()
Dim myData As String, myTable As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Long, j As Long
    Dim myCmd As ADODB.Command
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
         Set wb = ThisWorkbook
         Set ws = wb.Sheets("预算使用数据") '指定数据来源
         myData = ThisWorkbook.Path & "\预算数据备份.mdb" '数据库名称
         myTable = "预算执行信息" '数据库表名
         Set cnn = New ADODB.Connection
         With cnn
             .Provider = "microsoft.jet.oledb.4.0"
             .Open myData
         End With
         N = ws.Range("E65536").End(xlUp).Row '本文档中库存数据表的最大行
         For i = 2 To N
             SQL = "select * from " & myTable _
             & " where 登记日期='" & Format(ws.Cells(i, 1).Value, "yyyy-mm-dd") & "'" _
             & " and 单据号='" & ws.Cells(i, 2).Value & "'" _
             & " and 预算期间='" & ws.Cells(i, 3).Value & "'" _
             & " and 预算单位='" & ws.Cells(i, 4).Value & "'" _
             & " and 预算编码='" & ws.Cells(i, 5).Value & "'" _
             & " and 工作任务='" & ws.Cells(i, 6).Value & "'" _
             & " and 具体步骤及内容='" & ws.Cells(i, 7).Value & "'" _
             & " and 预算分类='" & ws.Cells(i, 8).Value & "'" _
             & " and 预算科目='" & ws.Cells(i, 9).Value & "'" _
             & " and 金额='" & ws.Cells(i, 10).Value & "'" _
             & " and 项目编号='" & ws.Cells(i, 11).Value & "'" _
             & " and 供应商合同编号='" & ws.Cells(i, 12).Value & "'" _
             & " and 使用人='" & ws.Cells(i, 13).Value & "'" _
             & " and 备注='" & ws.Cells(i, 14).Value & "'"
             Set rs = New ADODB.Recordset
             rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
             If rs.RecordCount = 0 Then
                 rs.AddNew
                 For j = 2 To rs.Fields.count
                     rs.Fields(j - 1) = ws.Cells(i, j).Value
                 Next j
                 rs.Update
             Else
                 For j = 2 To rs.Fields.count
                     rs.Fields(j - 1) = ws.Cells(i, j).Value
                 Next j
                 rs.Update
             End If
         Next i
         MsgBox "数据保存完毕！", vbInformation + vbOKOnly
          ws.Range("A2:O" & N).ClearContents
        rs.Close
         cnn.Close
         'Set wb = Nothing
         'Set ws = Nothing
         Set rs = Nothing
         Set myCmd = Nothing
         Set cnn = Nothing
End Sub

Renco

没文件怎么看啊？！
你把日期字段改为文本再试试

百岁新手

Renco 发表于 2011-10-11 23:00
没文件怎么看啊？！
你把日期字段改为文本再试试

附件太大了，传不上去呀

Renco

你删除一些嘛。又不要所有的。有几条示例在上面就行了

roych

嗯。的确是日期格式不对。请确定登记日期是日期字段还是文本字段。如果是文本字段则没有问题。如果是日期字段则：
1、把ws.Cells(i, 1)里所有的数据都改成日期格式。
2、把 & " where 登记日期='" & Format(ws.Cells(i, 1).Value, "yyyy-mm-dd") & "'" _改成：
& " where 登记日期=#" & ws.Cells(i, 1).Value & "#" _
不要争，记住这两点就好了：
1、文本格式需要在条件的前后加上单引号（'）
2、日期格式需要在条件的前后加上井号（#）
3、数字格式前后不需要加任何字符。

roych

嗯。的确是日期格式不对。请确定登记日期是日期字段还是文本字段。如果是文本字段则没有问题。如果是日期字段则：
1、把ws.Cells(i, 1)里所有的数据都改成日期格式。
2、把 & " where 登记日期='" & Format(ws.Cells(i, 1).Value, "yyyy-mm-dd") & "'" _改成：
& " where 登记日期=#" & ws.Cells(i, 1).Value & "#" _
不要争，记住这两点就好了：
1、文本格式需要在条件的前后加上单引号（'）
2、日期格式需要在条件的前后加上井号（#）
3、数字格式前后不需要加任何字符。

百岁新手

多谢各位热心相助！
刚学来的：金额的格式也不对，数字的格式与文本的格式写法不一样，不能加单引号