以文本方式查看主题

-  易表在线答疑  (http://www.egrid2000.com/dvbbs/index.asp)
--  应用技巧  (http://www.egrid2000.com/dvbbs/list.asp?boardid=3)
----  [分享]自动导出所有表数据为*.mdb格式方法  (http://www.egrid2000.com/dvbbs/dispbbs.asp?boardid=3&id=137)
--  作者：dongd1
--  发布时间：2007/3/4 12:09:00
--  [分享]自动导出所有表数据为*.mdb格式方法
自动导出所有表为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
--  发布时间：2007/3/4 13:32:00
--  
谢谢！！
--  作者：liangyu
--  发布时间：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
--  发布时间：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
--  发布时间：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)
这样就会不出现覆盖提示了
--  作者：czy
--  发布时间：2007/3/5 1:24:00
--  
1、Access可以再减少一个SendKeys，不过如果窗口只设一个自定义按钮，在公式前最好加上CloseWindow()，不然就象4楼所说只有杀进程了。

SendKeys(docdir+"Boot.mdb{tab}A{tab}~") And Do(5) and MsgBox("数据导出成功",0)

--  作者：dongd1
--  发布时间：2007/3/5 9:23:00
--  
问问老师SendKeys函数和中文输入法有冲突可以解决吗
--  作者：czy
--  发布时间：2007/3/5 10:47:00
--  
下面引用由dongd1在 2007/03/05 09:23am 发表的内容：
问问老师SendKeys函数和中文输入法有冲突可以解决吗

好象还没办法解决。
--  作者：Ltdz
--  发布时间：2007/3/5 18:10:00
--  
本机的解决方法：事先定义各输入法的切换热键，如英文半角：SHIFT+CTRL+1，

那么：SendKeys("+(^1)")

--  作者：dongd1
--  发布时间：2007/3/5 18:38:00
--  
学习是个好方法