求助：利用VBA 导入excel数据到access数据库！

zimb

各位大侠：
   参考坛子上的帖子，自己弄了一个程序，把excel数据导入到access数据库里：
运行过程中错误提示如图所示：
跟踪SQL变量的值，如下：
   "select * from CSSR where date=#2011-07-07# and BSC='Bsc70_Zhmurovo' and sector_name='Zhm_Test-BTS_0' and lac='13803' and CI='5' and time=00:00"

这个SQL语句好像也没有什么语法错误，也没有缺少"operator".
请大家帮帮看看!
程序如下：
Public Sub data_input(str_filetype As String)
    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 Object 'ADODB.Connection
    Dim rs As Object 'ADODB.Recordset
         Set wb = ThisWorkbook
         Set ws = ActiveWorkbook.Sheets("sheet1")
         myData = wb.Path & "\" & "bwc.mdb"
         myTable = str_filetype
         'Set cnn = New object 'ADODB.
          Set cnn = CreateObject("adodb.connection")
          cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myData
        ' With cnn
          '  .Provider = "microsoft.jet.oledb.4.0"
           '  .Open myData
       '  End With
         N = Range("a65535").End(xlUp).Row
         For i = 11 To N
             If myTable = "Rx_qual" Then
            
              SQL = "select * from " & myTable _
                & " where date=#" & Format(ws.Cells(i, 6).Value, "yyyy-mm-dd") & "#" _
                & " and BSC='" & ws.Cells(i, 1).Value & "'" _
                & " and sector_name='" & ws.Cells(i, 2).Value & "'" _
                & " and lac='" & ws.Cells(i, 3).Value & "'" _
                & " and CI='" & ws.Cells(i, 4).Value & "'" _
                & " and time=" & Format(ws.Cells(i, 7).Value, "hh:mm") _
                & " and trx='" & ws.Cells(i, 5).Value & "'"
             Else
             SQL = "select * from " & myTable _
                & " where date=#" & Format(ws.Cells(i, 5).Value, "yyyy-mm-dd") & "#" _
                & " and BSC='" & ws.Cells(i, 1).Value & "'" _
                & " and sector_name='" & ws.Cells(i, 2).Value & "'" _
                & " and lac='" & ws.Cells(i, 3).Value & "'" _
                & " and CI='" & ws.Cells(i, 4).Value & "'" _
                & " and time=" & Format(ws.Cells(i, 6).Value, "hh:mm") _
            
             End If
            
             Set rs = CreateObject("ADODB.Recordset")
             rs.Open SQL, cnn, 1, 3
             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

zhangjimfu

请上传Access文档!
提供一个链接供参考
http://club.excelhome.net/thread-743856-1-1.html

zimb

access 附件上传，多谢！

zhangjimfu

bwc.rar (39.8 KB, 下载次数: 120)

2011-7-21 09:13 上传

点击文件名下载附件

1. Sub test()
   
2.     Dim cnn, rst, sql$, myPath$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     Set rst = CreateObject("ADODB.Recordset")
   
5.     sql = "Select * From[Sheet1$A:A]"
   
6.     myPath = "C:\Documents and Settings\jfliu\桌面\bwc\BSC.xls"
   
7.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & myPath
   
8.     Set rst = cnn.Execute(sql)
   
9.     While Not rst.EOF
   
10.         sql = "Insert into CSSR(BSC) Values('" & rst("BSC") & "')"
    
11.         DoCmd.RunSQL sql
    
12.         rst.MoveNext
    
13.     Wend
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16.     Set rst = Nothing
    
17. End Sub

复制代码

zimb

感谢！代码确实简单多了，但这样导入是否会导入重复的记录？
谢谢！

zimb

我把原始数据也上载下。

zhangjimfu

在导入时用DISTINCT去除重复值

zimb

您好！
我把代码拷进去准备执行，发现一个问题：
好像没有打开access数据库的代码呀？
另外distince 怎么加，我对access不熟悉，主要是BSC，sector name，lac，ci,date, time不能有重复。
谢谢！

zimb

大侠们出出手吧！
多谢！

zimb

再顶一顶，麻烦各位大侠引导下，多谢！