vba ACCESS EXCEL 导入数据 导出查询

maxili1983

怎么在Excel用VBA把数据导到access里，并把查询结果导出回来到Excel中

Sub 按钮1_Click()
'我要导入到 “D:\Myfund2010.accdb” 数据库下面的 “2010年11月1日 表”

'if(如果此数据库文件不存在）then 先创建这个文件
Else
    导入相应的表中
'    if（指定的表存在）then 询问“是否把原来的表删掉，替换成新表？”
'     在导入时，我要可以设定我的Excel 名称，Sheet名字，区域，以及每列的数据类型，有文本 数字 日期 3种格式。
'     如果不能自己定义，自己能识别出Excel原有的数据类型也可以。
   
End If

End Sub
Sub 按钮2_Click()
'   我要把导入数据后的Access 文件，更新相应的查询，，更新之后，把查询结果导入到我的Excel文件的第二个sheet 指定的区域
' 整个过程希望不要打开Access文件，就是点一下按钮，看不出来打开关闭Access

End Sub

maxili1983

并且最好能设置一个密码，没有我的密码，谁都能看见ACCESS 数据库，但是打不开。

guojianlin1985

坛子里有实例你自己搜索一下吧，具体的网址我忘记了。goog luck

taller

不明白为什么要Excel-Access-Excel？

maxili1983

因为access擅长于查询功能.几万条的数据运行较快.
附件只是我举例中的一个查询,实际工作中还有很多.
如果用Excel那就太慢了.

我又不能直接用access,因为我从某个系统导数据出来只有excel的,而且,我查询完了要做成美观的格式发给领导.
手工来回操作挺麻烦的.希望有个VB 程序能实现.

zez

http://club.excelhome.net/thread-360059-1-1.html

maxili1983

学习了，还有个问题，涉及到密码。
我的密码是 “abc”


Public Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
'将指定Excel数据文件的指定sheet 导入到指定Access 中
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
  Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM[" & sSheetName & "$] ")
  
MsgBox "导入成功！", vbInformation
End Sub

mengshu

楼上想表达什么呢？