Foxtable(狐表)用户栏目专家坐堂 → 导出窗口显示为Excel


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

主题:导出窗口显示为Excel

帅哥哟,离线,有人找我吗?
yangwenghd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
导出窗口显示为Excel  发帖心情 Post By:2015/1/25 15:42:00 [只看该作者]

Dim ex As New Exporter
ex.SourceTableName = Tables("窗口1_Table1")'指定导出表
ex.FilePath = "F:\新建文件夹" '指定目标文件
ex.Format = "Access2007" '导出格式为Access 2007
ex.Export() '开始导出
谢谢 能帮我看看这个代码吗? 
导出"窗口1_Table1“显示的内容  指定目标文件改为临时选择路径 
感谢 感谢 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/25 16:07:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
yangwenghd
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2015/1/25 16:13:00 [只看该作者]

感谢 可以导出了  谢谢 
如果改为 窗口1Table1当前显示的内容应该怎么改啊 !感谢 感谢 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/25 16:22:00 [只看该作者]

 直接写 Tables("窗口1_Table1") 啊

 回到顶部