[求助]请问怎么把EXCEL 中的数据写到ACCESS中？？

ptter

请教各位高手，怎么把EXCEL 中的数据写到ACCESS中？？我想把EXCEL中的某个单元格的内容及单元格的地址写入ACCESS中，且下次想根据ACCESS里存入单元格地址和相应的内容读取填入EXCEL中，请问各位高手指点！！最好能给个例子，多谢！！

djyjysxxs

可以参照以下代码：

Sub wr()    '以下为将行号为hh列号为lh的单元格存入access
Dim db1 As database
Dim rs1 As Recordset
ku = "Db.mdb"
Set db1 = OpenDatabase(ThisWorkbook.Path & "\" & ku)
Set rs1 = db1.OpenRecordset(Name:="表1", Type:=dbOpenDynaset)
hh = 5
lh = 6
rs1.AddNew
rs1.Fields("nr").Value = Cells(hh, lh).Value
rs1.Fields("hh").Value = hh
rs1.Fields("lh").Value = lh
rs1.Update
db1.Close
End Sub
Sub re()    '以下为将最后一次存入的一个单元格内容恢复到excel对应单元中
Dim db1 As database
Dim rs1 As Recordset
ku = "Db.mdb"
Set db1 = OpenDatabase(ThisWorkbook.Path & "\" & ku)
Set rs1 = db1.OpenRecordset(Name:="表1", Type:=dbOpenDynaset)
rs1.MoveLast
n = rs1.Fields("hh").Value
i = rs1.Fields("lh").Value
Cells(n, i).Value = rs1.Fields("nr").Value
db1.Close
End Sub

zzq0101

Dim t, ts
t = 0
ts = 0
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\123.MDB;"
cnn1.ConnectionTimeout = 5
cnn1.Open
sqlstr = "SELECT *  from zu ;"
sqlasd = "SELECT *  from zi;"
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs3 = New ADODB.Recordset
Set rs4 = New ADODB.Recordset
rs1.Open sqlstr, cnn1, adOpenKeyset, adLockOptimistic
rs2.Open sqlasd, cnn1, adOpenKeyset, adLockOptimistic

rs1.AddNew
rs1.Fields("编号") = Range("d1")
rs1.Fields("主表名称") = Range("d2")
rs1.MoveLast
rs1.Update
Range("d1") = rs1.Fields("编号")
Range("d2") = rs1.Fields("主表名称")

sqlasdas = "Delete from zi where 编号='" & Range("d1") & "';"
rs3.Open sqlasdas, cnn1, adOpenKeyset, adLockOptimistic

Range("d10").Select
Do While ActiveCell <> ""
rs2.AddNew
rs2.Fields("编号") = Range("d1")
rs2.Fields("子表名称") = ActiveCell
rs2.MoveLast
rs2.Update
ActiveCell.Offset(1, 0).Select
Loop
rs2.Requery
If rs2.RecordCount > 0 Then
rs2.MoveFirst
End If

sqlasdas = "SELECT *  from zi where 编号='" & Range("d1") & "';"
 rs4.Open sqlasdas, cnn1, adOpenKeyset, adLockOptimistic

 Range("A10:z8000").ClearContents
Do While rs4.EOF <> True
Cells(10 + ts, 4) = rs4.Fields("子表名称")

rs4.MoveNext
ts = ts + 1
Loop

tangj_2005

有意思

sunsoncheng

这样的例子太多了,搜下本论坛,一箩也不止,而且有一步一步教的视频呢

zhqang

我没有搜索到，请告诉一下关键字

54beryl

有需要时再来看一下

[em06]

leo_zp_yang

如何能直接进行数据交换?

DHL2004

请做个文件，让我们学习学习

sqlszb

对啊！做个实例来学习一下啊！

另：不知道怎样制作excel和access合成的数据库，知道的介绍一下啊！

急！