利用VBA 将access中的所有数据导入到指定的excel中
在线等,有什么问题可能随时提,谢谢,我现在是没着了提示:得在EXCEL中新建个按钮,之后为按钮编程,实现导入数据库功能...
在线等,有什么问题可能随时提,谢谢,我现在是没着了
提示:得在EXCEL中新建个按钮,之后为按钮编程,实现导入数据库功能 展开
提示:得在EXCEL中新建个按钮,之后为按钮编程,实现导入数据库功能 展开
6个回答
展开全部
有个示例,可以模仿。
1、选择菜单中【工具】→【引用】命令项,即可弹出对话框,在下拉列表框中查找并勾选项目“Microsoft ActiveX Data Objects 2.1 Library”,即可完成对ADO的引用。
2、程序:
与Access2007数据库连接语句
在“模块1”中声明公共变量“Public Conn As ADODB.Connection”,方便各个宏对数据库连接变量“Conn”的引用。
宏过程中对数据库连接的定义、打开语句如下:
StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\DbPrice.accdb" & ";Persist Security Info=False"
Set Conn = New ADODB.Connection
Conn.Open StrConn
Sql = "select colno,colname from colno where showmark='1' order by colno"
Set Rs1 = Conn.Execute(Sql)
'将记录集中的数据写到ComboBox1组合下拉列表框中
Do While Not Rs1.EOF
activesheet.cells(i,j).value=Rs1 ("colno")
Rs1.MoveNext
Loop
1、选择菜单中【工具】→【引用】命令项,即可弹出对话框,在下拉列表框中查找并勾选项目“Microsoft ActiveX Data Objects 2.1 Library”,即可完成对ADO的引用。
2、程序:
与Access2007数据库连接语句
在“模块1”中声明公共变量“Public Conn As ADODB.Connection”,方便各个宏对数据库连接变量“Conn”的引用。
宏过程中对数据库连接的定义、打开语句如下:
StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\DbPrice.accdb" & ";Persist Security Info=False"
Set Conn = New ADODB.Connection
Conn.Open StrConn
Sql = "select colno,colname from colno where showmark='1' order by colno"
Set Rs1 = Conn.Execute(Sql)
'将记录集中的数据写到ComboBox1组合下拉列表框中
Do While Not Rs1.EOF
activesheet.cells(i,j).value=Rs1 ("colno")
Rs1.MoveNext
Loop
展开全部
仅仅实现利用VBA 将access中的所有数据导入到指定的excel中就须要很高的软件熟练度了,尼还要设置按键,编程,祈祷微软的软件工程师能看到你这个问题吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
vba也比较复杂,用到宏工具,录制宏,然后给宏指定按钮,或者快捷键就可以了。
<br>qq48134262
<br>qq48134262
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
启动excel
1) 菜单-》工具-》宏-》录制新宏
2)菜单-》数据-》导入外部数据-》导入数据
3)选择你的mdb文件,然后按提示导入
4)点“结束录制”按钮,菜单-》工具-》宏-》vb编辑器,检查vba代码
5)回工作簿,清空所有数据,在适当位置添加按钮,在按钮的click事件里调用宏所对应的方法
1) 菜单-》工具-》宏-》录制新宏
2)菜单-》数据-》导入外部数据-》导入数据
3)选择你的mdb文件,然后按提示导入
4)点“结束录制”按钮,菜单-》工具-》宏-》vb编辑器,检查vba代码
5)回工作簿,清空所有数据,在适当位置添加按钮,在按钮的click事件里调用宏所对应的方法
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询