设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2327|回复: 11
打印 上一主题 下一主题

[宏/菜单/工具栏] 关于导入

[复制链接]
跳转到指定楼层
1#
发表于 2009-2-3 22:17:39 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
用宏导入Excel时,在设计时就要确定好路径和文件名,怎样才能实现通过路径对话框来选择导入?搜索了好多贴子没有可用的,故恳请高手指点!谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
12#
发表于 2009-2-6 21:24:50 | 只看该作者
再次感谢todaynew朋友!您所给的贴子十分好用,成功解决了我一直没能解决的问题,真是收获大大的啊,高兴极了!!!
蓝天8390 发表于 2009-2-6 21:22


功劳要归功写代码的同志,我也是拿来使用。能对你有帮助很高兴。
11#
 楼主| 发表于 2009-2-6 21:22:55 | 只看该作者
再次感谢todaynew朋友!您所给的贴子十分好用,成功解决了我一直没能解决的问题,真是收获大大的啊,高兴极了!!!
10#
 楼主| 发表于 2009-2-6 21:00:36 | 只看该作者
十分感谢!真热心,我试试看,要是不会弄再请教.
9#
发表于 2009-2-6 20:42:57 | 只看该作者
本帖最后由 todaynew 于 2009-2-6 20:50 编辑
谢谢todaynew的帮助,可是找到文件后没有导入按钮啊?
蓝天8390 发表于 2009-2-6 18:23


呵呵,自己加个按钮。在按钮单击事件中写类似这样的命令:

DoCmd.TransferSpreadsheet acImport, , "表名称", Me.路径, True, ""

表名称:对应你access中的一个数据表的名称,它的字段结构应该和Excel表一致。

me.路径:是窗体上文本框的名称,你看也可改成其他名字。
8#
 楼主| 发表于 2009-2-6 18:23:02 | 只看该作者
谢谢todaynew的帮助,可是找到文件后没有导入按钮啊?
7#
发表于 2009-2-6 17:27:30 | 只看该作者
本帖最后由 todaynew 于 2009-2-6 17:33 编辑



需要说明的是这些代码不是我写的,是从一个版友的问题实例中拷贝来的。



第一个按钮:



第二个按钮:



函数在模块1中:


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
6#
 楼主| 发表于 2009-2-6 17:09:50 | 只看该作者
谢谢版主!不过所给地址好象是一个查询,还是用不上啊.
5#
发表于 2009-2-4 09:18:28 | 只看该作者
近来讨论这个问题的人很多啊~~但似乎没有找到一个完整的解决方案~
ty_1029 发表于 2009-2-4 08:47


把问题分成两部分,两个了问题。
1。 如何利用windows公共对话框来实现文件的选择。
2。 如何导入一个EXCEL文件SHEET中的记录到ACCESS的表中。
然后在本站的搜索中会有很多相应的例子。



******************
*  一切皆有可能  *
******************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
4#
发表于 2009-2-4 08:47:44 | 只看该作者
近来讨论这个问题的人很多啊~~但似乎没有找到一个完整的解决方案~
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 14:28 , Processed in 0.104472 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表