Office中国论坛/Access中国论坛

标题: 【源码示例】数据导出时只导出选中字段 [打印本页]

作者: 红尘如烟 时间: 2010-12-11 19:41
标题: 【源码示例】数据导出时只导出选中字段
本帖最后由红尘如烟于 2010-12-12 17:36 编辑

帮一个网友做一个特殊的查询功能时用到了这样的功能，其实这样的功能在Access的内置向导中就早就有了。
实现的效果：
选择记录源后，自动将字段名加到可用字段列表框。
通过在列表框中双击使对应的列表项在2个列表框中相互移动。
能够实现自动根据列表框的数据设置相关按钮是否可用。
列表项移动到另一个列表时自动添加到另一个列表框选中项的后面，而不是整个列表的最后面。
右边列表框中列表项可以任意调整位置，最后可以将选中的字段导出到Excel.
[attach]44357[/attach]
[attach]44351[/attach]

作者: wanshan 时间: 2010-12-11 20:30
不错，收藏了！

作者: tmtony 时间: 2010-12-11 21:26
好功能,收藏了

作者: 82077802 时间: 2010-12-12 08:23
不错，收藏

作者: yodong 时间: 2010-12-12 09:20
不错收藏

作者: ycxchen 时间: 2010-12-12 09:30
谢谢分享，学习！

作者: 简 时间: 2010-12-12 11:01
好，我就是要这样的功能呢。
我想再问，如果我想把右边的列表框导出成excel表，又怎么处理呢？

作者: xie62 时间: 2010-12-12 13:16
谢谢分享，学习！

作者: 红尘如烟 时间: 2010-12-12 17:37

简发表于 2010-12-12 11:01
好，我就是要这样的功能呢。
我想再问，如果我想把右边的列表框导出成excel表，又怎么处理呢？

重新修改了一下，现在可以实现你的这个要求了

作者: yihesmxx 时间: 2010-12-14 10:42
学习学习

作者: t小宝 时间: 2010-12-14 15:53
很实用的功能！

作者: hjb016 时间: 2010-12-14 15:55
不错，收藏了！

作者: asklove 时间: 2010-12-14 16:09
收藏

作者: iamee 时间: 2010-12-14 20:15
PFPF~~~~~

作者: roych 时间: 2010-12-15 16:05
以前在《Access 2002宝典》里见过这个例子，当时看了下好像是用SelectedItem和Listcount来获取相关信息吧，不过光盘找不到了~~书中只有部分代码。O(∩_∩)O~这次居然找到实例了

作者: 红尘如烟 时间: 2010-12-15 20:44

zmt 发表于 2010-12-15 15:11
请问"红尘如烟"版主,在"导出"键的代码的后面部分(见下)是啥作用,能详细讲解一下吗!谢谢!
Exit_btnOK_Click ...

这个是错误处理代码：
3012是保存新对象时，同名对象已存在的错误，代码中是遇到这个错误，先删除已有对象，再继续
2501是操作被取消错误，比如使用文件选取对话框时点了对话框上的取消按钮

作者: ycxchen 时间: 2010-12-17 15:05
我想知道为什么3021、2501分别代表下面意义，其出处在什么地方？
3012是保存新对象时，同名对象已存在的错误，代码中是遇到这个错误，先删除已有对象，再继续
2501是操作被取消错误，比如使用文件选取对话框时点了对话框上的取消按钮

作者: 红尘如烟 时间: 2010-12-17 15:12

ycxchen 发表于 2010-12-17 15:05
我想知道为什么3021、2501分别代表下面意义，其出处在什么地方？
3012是保存新对象时，同名对象已存在的错 ...

这个是由系统定义好的，当出错时，系统会自动设置Err对象，我们只需要读取Err对象的相关属性就能知道出现了什么错误，并基于此进行处理
Err.Number 错误号（由于Number是Err对象的默认属性，所以一般可以省略，写成Err）
Err.Description 错误描述

作者: ycxchen 时间: 2010-12-17 15:22
谢谢指教！我不明的是3012为什么能起到“保存新对象时，同名对象已存在的错误，代码中是遇到这个错误，先删除已有对象，再继续”这个作用？用3011不行？

作者: wgh3g 时间: 2010-12-17 17:45
非常好用，向您学习！

作者: li08hua 时间: 2010-12-17 18:08
红尘的作品就是实用！

作者: huangyz_xy 时间: 2010-12-17 19:27
不错不错，好东西，收藏了....

作者: roych 时间: 2010-12-17 19:48
我改了下，用来处理链接表了。
——本来打算导入后再处理，只是字段中含有点符号（.），直接用宏导入时会发生错误，只能使用链接表了……/(ㄒoㄒ)/~~

作者: 红尘如烟 时间: 2010-12-17 21:07

ycxchen 发表于 2010-12-17 15:22
谢谢指教！我不明的是3012为什么能起到“保存新对象时，同名对象已存在的错误，代码中是遇到这个错误，先删 ...

前面不是说了么，这个错误码是系统定义好的

作者: LJB 时间: 2010-12-18 12:16
回复红尘如烟的帖子

如烟版主:
表是SQL server 的连接表,如何实现?

作者: xie62 时间: 2010-12-21 07:41
好东西，收藏了....

作者: termisss 时间: 2010-12-21 09:27
很好的功能,.

作者: wufeng980114 时间: 2011-1-16 22:09
收藏了，谢谢

作者: miracle-y 时间: 2011-1-16 23:01
学习了

作者: 简 时间: 2011-2-9 19:24

我再问问，如果我导出时采用复选框的形式，如下图所示，又该如何处理呢。

[attach]44780[/attach]

作者: 简 时间: 2011-4-11 18:07
我想请教三个问题：

1.导出时，如何指定导出文件的保存路径，比如说我要把导出的文件保存在E:\11\中，例子中缺省的是“我的文档”。

2.导出l时，对于时间格式的字段导出至excel时，其excel会显示格式出错，需要在excel中进行格式设置，还有文本格式在excel中，单元格左上角会显示绿色小三角形符号，挺烦的，能不能导出时避免这些问题呢？

3.当导出的是查询时，对于查询中的0，导出在excel中也是以0来显示，所以想问问，在导出在excel中，是0的单元格都显示为NULL。

作者: yanwei82123300 时间: 2011-4-25 09:53
交叉表学习的好例子！

作者: 秦灭六国 时间: 2011-7-13 10:57
好功能,收藏了

作者: qqxypp 时间: 2011-8-10 04:50
不错，收藏了！

作者: kdjifir34562 时间: 2011-8-11 13:04
谢谢分享！感谢

作者: jinzhanxi 时间: 2011-8-23 09:54
谢谢分享

作者: xxiaoxin321 时间: 2011-12-26 09:16
很强大的功能，谢谢！~~

作者: fffox 时间: 2015-6-10 16:33
感谢分享，收藏

作者: Alashome 时间: 2015-6-26 15:16
good

作者: Alashome 时间: 2015-6-30 08:20
good

作者: Alashome 时间: 2015-6-30 08:21
good

作者: purplerose 时间: 2015-7-25 20:50
不错，好示例，按自已所选的字段导出，牛人

作者: xxd36xxd 时间: 2015-9-29 20:01
学习中,谢谢了!

作者: WFH6898 时间: 2015-12-1 09:59
不错，收藏了！

作者: purplerose 时间: 2016-3-20 20:37
嗯，不错，收藏一下，谢了

作者: jun_hai 时间: 2016-4-14 16:07
谢谢

作者: YXH_YXH 时间: 2017-12-14 17:49
多谢分享！！！

作者: utalents 时间: 2018-6-7 09:31
好功能,收藏了

作者: yxrlqy 时间: 2021-12-14 23:13
老师，请教你下，因为数据都存在data文件，组合框怎么才能获取data的链接表，谢谢！

作者: yxrlqy 时间: 2021-12-14 23:16

roych 发表于 2010-12-17 19:48
我改了下，用来处理链接表了。
——本来打算导入后再处理，只是字段中含有点符号（.），直接用宏导入时会 ...

你好，请教下，怎么才能处理链接表，谢谢！

作者: roych 时间: 2021-12-16 09:48

yxrlqy 发表于 2021-12-14 23:16
你好，请教下，怎么才能处理链接表，谢谢！

年代久远，例子已经没了。如需处理，请上传你的附件，我抽空看看。

作者: yxrlqy 时间: 2021-12-17 11:24

roych 发表于 2021-12-16 09:48
年代久远，例子已经没了。如需处理，请上传你的附件，我抽空看看。

老师，数据都存在data，数据导出时只导出选中字段，通过创建链接表1，表2的方式打开数据表，现需要在cboTbl，组合框，获取链接表1，表2,的数据表格式，麻烦了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)