如何更新excell表中的数据到ACESS的表中

rwen123456

由于工作原因。我需要不定期的将excell表中的数据（大量）更新到access表中。不是简单的导入。怎么实现啊各位大虾

enderk

可以把EXCEL表作为access里面的链接表，日后只要在EXCEL里面更新就可以了。

weizhuzhu

请教如何把EXCEL作为ACCESS的链接表？

zhangjimfu

1. Sub UploadExcel()
   
2.     Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
   
3.     Dim myPath$, arrAll(), arrField(), arrValue(), i%
   
4.     myPath = "F:\门店会计工作规划\PYStoreManagerV3.0.mdb"
   
5.     arrAll = Range("k3:q105")
   
6.     arrField = WorksheetFunction.Index(arrAll, 1)
   
7.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & myPath
   
8.     rst.Open "Select * From tblCFValues", cnn, adOpenDynamic, adLockOptimistic
   
9.     For i = 2 To UBound(arrAll) Step 1
   
10.         If Cells(i + 2, "m") <> 0 Then
    
11.             arrValue = WorksheetFunction.Index(arrAll, i)
    
12.             rst.AddNew arrField, arrValue
    
13.         End If
    
14.     Next i
    
15. End Sub

复制代码

代码供参考!