求助高手：用VBA生成ACCESS查询表后导回到EXCEL中

gxyinqiang · 发表于 2006-11-17 11:26

过程：我将原始数据表链接到access中，并设置好了access的操作，可生成报表。现我想实现在excel点击按钮后

1、access执行查询中的 “生成法人汇总表” 及 “追加个人汇总表”

2、access打开查询中的 “查询1” 并将报表导出到excel中

我是新手，试编了程序，没能实现，请高手帮忙，不胜感激！

怎么没有附件，附件不是放在文件上传中上传吗？

[此贴子已经被作者于2006-11-17 11:29:52编辑过]

yehf · 发表于 2006-11-17 11:40

我也想知道哦,在通常我是在ACCESS做以上操作,但在EXCEL里代码就不会写咯.

gxyinqiang · 发表于 2006-11-17 11:54

Option Explicit

Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

Const accmdselectallrecords = &H6D
Const accmdcopy = &HBE
Const acCmdClose = &H3A
Const acEdit = 1
Const acNormal = 0
Const Target As String = "E:\bbsj.mdb"

'这是我想实现的功能，生成新汇总表并在其基础上生成查询，导出到电子表中

Private Sub CommandButton1_Click()
Dim accessobject As Object

    Set accessobject = CreateObject("access.application")
    accessobject.docmd.OpenQuery "汇总生成法人部分", acNormal, acEdit
    accessobject.docmd.OpenQuery "汇总表追加个人部分", acNormal, acEdit
    accessobject.docmd.OpenQuery "查询1"
    accessobject.docmd.runcommand.accmdselectallrecords
    accessobject.docmd.runcommand.accmdcopy
    accessobject.docmd.runcommand.acCmdClose

    AppActivate "Microsoft Excel - 利率清单.xls"
    Worksheets("浮动表1").Range("a1").Select
    ActiveSheet.PasteSpecial
End Sub

’这是我用来测试是否能从access中取出查询结果到电子表中

Private Sub CommandButton2_Click()
    Dim Stpath As String
    Dim strSQL As String
    Set Cnn = New ADODB.Connection
    Set Rst = New ADODB.Recordset
    Stpath = ThisWorkbook.Path & "\bbsj.mdb"
    Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & "123"
     strSQL = "SELECT * FROM 查询1 "
    Rst.Open strSQL, Cnn
     Worksheets("浮动表1").Range("A2:BB1000").ClearContents
     Worksheets("浮动表1").Range("A2:BB1000").CopyFromRecordset Rst
    Rst.Close
    Set Rst = Nothing
    Set Cnn = Nothing
End Sub

gxyinqiang · 发表于 2006-11-17 16:12

请高手帮忙一下啊

爱歌学习 · 发表于 2006-11-18 11:21

输入路径后，要点“上传”，才可上传附件～

gxyinqiang · 发表于 2006-11-20 11:56

KPL6zp1m.rar (26.72 KB, 下载次数: 171)

没有人帮助？真郁闷。

经过努力，这个问题我自己解决了大部分了，现有个瓶颈！！我在access中查询操作生成一个access表，access提示“执行查询之前将删除已有的表”，须点击确定。我在在VBA代码中无法实现点击确定这个难题，每次执行操作到此则无法执行了，如果剔除生成表这个操作其它都没问题了。现要问的是如何在VBA中实现ACCESS的生成表操作？十分诚挚，恳请帮助。

另还有个小问题，我在vba中无法操作某些access代码（已用注释区别出来），只好在access中编了“宏2”，然后在vba中执行“宏2”,什么原因呢？

yehf · 发表于 2006-11-20 12:11

在access中可以加入docmd.setwaring false

skylark · 发表于 2006-11-20 12:50

这样可以:

Sub ccc()
    Dim stpath As String
    dbpath = ThisWorkbook.Path & Application.PathSeparator
    stpath = dbpath & "db1.mdb"
    Set acapp = CreateObject("access.application")
    acapp.OpenCurrentDatabase stpath
    acapp.Visible = False


    With acapp

    .DoCmd.SetWarnings False

    '.DoCmd.RunMacro "ºê2"

    .DoCmd.OpenQuery "Éú³É±í", 0, 1
    .DoCmd.OpenQuery "×·¼Ó±í", 0, 1
    .DoCmd.OpenQuery "abc", 0, 1
    .DoCmd.RunCommand acCmdSelectAllRecords
    '.DoCmd.RunCommand.SelectAllRecords
    .DoCmd.RunCommand acCmdCopy
    .DoCmd.RunCommand acCmdClose
    .DoCmd.SetWarnings True

   'AppActivate "Microsoft Excel - book1.xls"
   Worksheets("sheet5").Range("a1").Select
   ActiveSheet.PasteSpecial
   End With
   acapp.Quit
   Set acapp = Nothing

End Sub

gxyinqiang · 发表于 2006-11-20 13:13

真好，实现了！！

感谢yehf!!!!

gxyinqiang · 发表于 2006-11-20 13:18

感谢skylark!!!!

这个论坛真是好啊！！

		自动登录	找回密码
密码			免费注册

求助高手：用VBA生成ACCESS查询表后导回到EXCEL中

最新热点 /1