[分享]自动导出所有表数据为*.mdb格式方法 - 应用技巧 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

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

共有22675人关注过本帖树形打印复制链接主题：[分享]自动导出所有表数据为*.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")

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13147 积分：-89 威望：0 精华：0 注册：2006/8/11 11:14:00

Post By：2007/3/4 13:32:00 [只看该作者]

谢谢！！

liangyu

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：86 积分：0 威望：0 精华：0 注册：2007/1/14 12:36:00

Post By：2007/3/4 15:44:00 [只看该作者]

能解释一下？
SendKeys(docdir+"Boot.xls")andSendKeys("{tab}~{tab}{tab}{tab}~") And Do(5)And SendKeys("+{tab}~")andrun(docdir+"Boot.xls")

Ltdz

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：82 积分：-10 威望：0 精华：0 注册：2007/3/2 23:15:00

Post By：2007/3/4 19:17:00 [只看该作者]

1、Access:
SendKeys(docdir+"Boot.mdb")andSendKeys("{tab}A{tab}~") And Do(5) andMsgBox("数据导出成功",0)

2、单表为excel:
方法1：有点问题哦，无法杀进程！

既然有了方法2，不到千千万，大概是不用方法1的吧！^&^

dongd1

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：1329 积分：40 威望：0 精华：0 注册：2003/12/30 16:34:00

Post By：2007/3/4 22:15:00 [只看该作者]

下面引用由Ltdz在 2007/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)
这样就会不出现覆盖提示了