从excel自动向access里传递数据

wantky

大家好，我是access初学者，请帮吗解决一下，
具体的问题我发到vba版里面了，为了不重复特发一个链接，请高手指教，谢谢

http://club.excelhome.net/thread-389874-1-1.html

zez

http://club.excelhome.net/thread-360059-1-1.html

sgrshh29

看流程似乎是你把收集来的营销人员周报表的数据弄到access中，然后在access中做统计各种指标。而不是让营销人员到access中去统计吧？所以只要你会用access就可以了。不存在“我在用ACCESS时发现可以收集数据，但是对外面的营销人员来讲太麻烦了。”这种问题。

wantky

根据zez的模板，
出来后还是有问题，我想给营销员列加入固定值
可结果这一列没有值
n = Application.WorksheetFunction.CountA(Range("B6:B10"))
    For i = 6 To n + 5
        Sql = "select * from " & myTable _
       & " where 营销员='" & ws.Cells(3, 8).Value & "'" _      ’向指定向固定的H3值，其它B6:G10
        & " and 日期=#" & Format(ws.Cells(i, 2).Value, "yyyy-mm-dd") & "#" _
        & " 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 & "'"
        Set rs = New ADODB.Recordset  ’以下部分干嘛，不是在上面已经赋值了吗
        rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
        If rs.RecordCount = 0 Then
            rs.AddNew
            For j = 1 To rs.Fields.Count
                rs.Fields(j - 1) = ws.Cells(i, j).Value  ‘这样一来access的第一个值成了A列的，出来的是空白
            Next j
            rs.Update
        Else
            For j = 1 To rs.Fields.Count
                rs.Fields(j - 1) = ws.Cells(i, j).Value
            Next j
            rs.Update
        End If
    Next i


最后请给逐行注释一下吧，谢谢

sgrshh29

上面的sql语句筛选原数据库中没有的记录，下面的语句是将新记录写入到数据库中。

不过，既然你要用access分析统计，就应该在access中做这个工作，比在excel中做这个工作容易多了。应该有一个通盘的考虑，而不是抓到那里是那里。结果是简单的工作搞的很复杂。

wantky

同样的代码稍作修改后，为什么上传到有的access表中有的有重复值，有的没有？
如何解决