易表在线答疑技术与交流应用技巧 → [分享]自动导出所有表数据为*.mdb格式方法


  共有22719人关注过本帖树形打印复制链接

主题:[分享]自动导出所有表数据为*.mdb格式方法

美女呀,离线,留言给我吧!
dongd1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:1329 积分:40 威望:0 精华:0 注册:2003/12/30 16:34:00
[分享]自动导出所有表数据为*.mdb格式方法  发帖心情 Post By:2007/3/4 12:09:00 [显示全部帖子]

自动导出所有表为Access:
SendKeys(docdir+"Boot.mdb")andSendKeys("{tab}{down}{up 10}~{tab}~{tab}~")  And Do(5) andMsgBox("数据导出成功",0)

自动导出单表为excel:
方法1:
SendKeys(docdir+"Boot.xls")andSendKeys("{tab}~{tab}{tab}{tab}~")  And Do(5)And SendKeys("+{tab}~")andrun(docdir+"Boot.xls")
方法2:
ExportDBFile(docdir+"Boot.xls",6,gridname)and Run(docdir+"Boot.xls")


 回到顶部
美女呀,离线,留言给我吧!
dongd1
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:1329 积分:40 威望:0 精华:0 注册:2003/12/30 16:34:00
  发帖心情 Post By:2007/3/4 22:15:00 [显示全部帖子]

下面引用由Ltdz2007/03/04 07:17pm 发表的内容:
1、Access:
SendKeys(docdir+"Boot.mdb")andSendKeys("{tab}A{tab}~")  And Do(5) andMsgBox("数据导出成功",0)
2、单表为excel:
方法1:有点问题哦,无法杀进程!
...

1、Access:
SendKeys(docdir+"Boot.mdb")andSendKeys("{tab}A{tab}~tab}~")  And Do(5) andMsgBox("数据导出成功",0)
这样就会不出现覆盖提示了


 回到顶部
美女呀,离线,留言给我吧!
dongd1
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:1329 积分:40 威望:0 精华:0 注册:2003/12/30 16:34:00
  发帖心情 Post By:2007/3/5 9:23:00 [显示全部帖子]

问问老师SendKeys函数和中文输入法有冲突可以解决吗

 回到顶部
美女呀,离线,留言给我吧!
dongd1
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:1329 积分:40 威望:0 精华:0 注册:2003/12/30 16:34:00
  发帖心情 Post By:2007/3/5 18:38:00 [显示全部帖子]

学习是个好方法

 回到顶部