会python真的可以为所欲为0(回)
352天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
762天前到处都是羊，不想上班0(回)
842天前
鸽子
0(回)
846天前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 |
