excel通过脚本抓取access的数据
首先打开excel,然后右键点击“sheet1”,选择菜单最下方的“查看代码”,复制下边的脚本到vbscript编辑器内,之后 點“工具-引用”再找到Microsoft ActiveX Date Objects 2.8勾选一下,点击确定,之后运行代码就行了。
Public Function daadfa()
'首先引用ado --------- 點“工具-引用”再找到Microsoft ActiveX Date Objects X.X Library
Dim conn As New ADODB.Connection, connstr As String, db As String, rs As New ADODB.Recordset, i As Long, rows As Long
db = "C:\1\db.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
On Error Resume Next
conn.Open connstr
rs.Open "select * from userinfo", conn, 1, 3
If rs.EOF Or rs.BOF Then
MsgBox "It is nothing."
Else
'如果access中username的值等于Seven,那么就把當前記錄的userid值放入excel表的第10行第10列內
'If rs("username") = "Seven" Then
'Worksheets("sheet1").Cells(10, 10).Value = rs("userid")
'End If
'將access中沒一列的標題用循環抓取過來,并將其存放到excel的sheet1工作表的第一行內
rows = 1
For i = 0 To rs.Fields.Count - 1
Worksheets("sheet1").Cells(1, rows).Value = rs.Fields(i).Name
Next i
'將access中每一列對應的數據用循環抓取過來
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1
Worksheets("sheet1").Cells(i + 2, rows).Value = rs(i)
Next i
rows = rows + 1
rs.MoveNext
Loop
End If
End Function
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 现代计算机视觉入门之:什么是图片特征编码
· .NET 9 new features-C#13新的锁类型和语义
· Spring AI + Ollama 实现 deepseek-r1 的API服务和调用
· 《HelloGitHub》第 106 期
· 数据库服务器 SQL Server 版本升级公告
· 深入理解Mybatis分库分表执行原理
· 使用 Dify + LLM 构建精确任务处理应用