如何将access中将数据导入excel,用VBA编程实现

 我来答
SungChul_Cui
2011-05-13
知道答主
回答量:17
采纳率:0%
帮助的人:0
展开全部
Public Sub ImportData()
Dim mydata As String, mytable As String, SQL As String
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
ActiveSheet.Cells.Clear
mydata = ThisWorkbook.Path & "\成绩管理.mdb" '指定数据库
mytable = "考试成绩" '指定数据表
'建立与数据库的连接
Set cnn = New ADODB.Connection
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.Open mydata
End With
SQL = "select 班级,avg(数学) as 数学平均,avg(语文) as 语文平均," _
& "avg(物理) as 物理平均,avg(化学) as 化学平均,avg(英语) as 英语平均, " _
& "avg(体育) as 体育平均,avg(总分) as 总分平均 " _
& "from " & mytable & " group by 班级"
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
'复制字段名
For i = 1 To rs.Fields.Count
Cells(1, i) = rs.Fields(i - 1).Name
Next i
'复制全部数据
Range("A2").CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
__________321
2011-05-12 · TA获得超过1087个赞
知道小有建树答主
回答量:549
采纳率:0%
帮助的人:546万
展开全部
录制下 操作过程
数据 导入数据 新建连接数据源
找到
其他里面 有 odbc access的,具体按部就班,选择好后确定
停止录入
查看录入好的过程,
只需要更改其中 access文件路径部分 就是你需要的vba过程
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
邱博威wen
2011-05-12 · TA获得超过293个赞
知道小有建树答主
回答量:206
采纳率:0%
帮助的人:123万
展开全部
找到表>>右键>>导出>>保存类型>>Microsoft excel>>导出
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
XMOIZ
2011-05-12
知道答主
回答量:6
采纳率:0%
帮助的人:0
展开全部
在Access菜单栏中有转换设置,帮助中有详细解决方法。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
huhang2004
2011-05-12
知道答主
回答量:51
采纳率:0%
帮助的人:24万
展开全部
用专门的软件
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式