设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

[查询] ACCESS对象--查询表中的数据如何导入指定的EXCEL表中

[复制链接]
跳转到指定楼层
1#
发表于 2008-12-1 23:47:54 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
VBA方法求教????
谢谢!!!!

(注:用菜单导出方法,本菜会一点,但、在实操中速度不快,并且还无法导入指定的EXCEL表中)


双手
致谢
走过路过的
热心无私的
网络编程高手!!!

[ 本帖最后由 lym321321 于 2008-12-2 00:08 编辑 ]

本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
14#
发表于 2010-7-16 22:02:56 | 只看该作者
收下,3K
13#
发表于 2010-7-6 14:29:34 | 只看该作者
顶贴学习啊
12#
发表于 2009-3-12 17:44:41 | 只看该作者
这是讲的导出到EXCEL模版的问题吧,下载学习先。谢谢!
11#
发表于 2009-3-6 16:11:12 | 只看该作者
顶帖学习中
10#
发表于 2009-3-6 16:10:58 | 只看该作者
顶帖学习中
9#
发表于 2009-2-13 12:09:18 | 只看该作者
看不懂
8#
发表于 2009-2-12 17:43:06 | 只看该作者
学习学习,谢谢分享。
7#
发表于 2009-2-12 15:11:56 | 只看该作者
Private Sub Command41_Click()
Dim Expath As String
Dim n As Object
Expath = CurrentProject.Path & "\"
'debug.print Expath
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "工资汇总", Expath & "工资表.XLS", True, "汇总表"
1002 Set n = CreateObject("EXCEL.APPLICATION") '呼叫Excel
1004 n.Visible = True  '显示在屏幕上
1007 n.Workbooks.Open Expath & "工资表.XLS"
End Sub
6#
发表于 2009-2-9 14:28:31 | 只看该作者
要好好学习一下!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-2-21 03:44 , Processed in 0.107534 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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