AI时代，找源码已成为过去式，纪念我过去的十年0(回)
68天前
还有人吗2(回)
85天前会python真的可以为所欲为0(回)
565天前
这里还有人吗2(回)
750天前这里还有人吗0(回)
750天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
975天前Sub HHH()
Dim cn As Object
Dim rs As Object
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\data1.mdb"
rs.Open "select * from CANode", cn
Range("a1").CopyFromRecordset rs
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub