设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1139|回复: 7
打印 上一主题 下一主题

[窗体] 怎么将查询的内容导出到excl指定单元格?

[复制链接]
跳转到指定楼层
1#
发表于 2007-11-21 21:52:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在主窗体中输入分数,单击查询,子窗体中即显示各班大于等于这个分数的人数,问题是能不能将这个子窗体的内容导入到Excl指定的单元格呢? 这个代码该怎么写?

本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2007-11-22 13:10:23 | 只看该作者
sql = "SELECT b1.班级, Count(*) AS 人数" & _
        " FROM b1" & _
        " WHERE b1.总分 >=" & [Txtone] & _
        " GROUP BY b1.班级;"
   
rst.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

先做一个查询字串,用这个查询产生记录集.
3#
 楼主| 发表于 2007-11-22 16:06:22 | 只看该作者
非常感谢kangking,问题解决。
4#
发表于 2007-11-23 08:24:05 | 只看该作者
Dim wj1, wj2
Dim x, y As Integer
Dim dd As QueryDef
CurrentDb.Execute ("drop table dd1")
b3 = "TRANSFORM max([人数]) SELECT 1 FROM (SELECT [班级], Count(*) AS 人数 FROM b1 WHERE [总分]>= " & [Forms]![主窗体]![Txtone] & " GROUP BY [班级] ) GROUP BY 1 PIVOT [班级] & '班'"
Set dd = CurrentDb.CreateQueryDef("dd1", b3)
path = CurrentProject.path
b1 = "模板.xls"
b2 = "表1.xls"
wj1 = path & "\" & b1
wj2 = path & "\" & b2
FileCopy wj1, wj2
Set myxl = GetObject(wj2, "excel.sheet")
   myxl.Application.Visible = False
    myxl.Parent.windows(1).Visible = True
    rst.Open "dd1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    myxl.Sheets(1).Range("a2").CopyFromRecordset rst
MsgBox "导出完毕"
myxl.Save
myxl.Application.Quit
Set myxl = Nothing

将XLS文件中第1列删除即可
5#
 楼主| 发表于 2007-11-23 12:42:42 | 只看该作者
谢谢,怎么将代码复制后,运行提示表'dd1'不存在!
6#
发表于 2007-11-23 13:15:54 | 只看该作者
学习下。呵呵,支持。。
7#
发表于 2007-11-23 13:58:15 | 只看该作者
自己加个判断 OR 捕获错误,存在则删除查询DD!,否则建立
8#
 楼主| 发表于 2007-11-23 18:14:11 | 只看该作者
加了捕获错误,怎么什么都导不出?能将附件传上吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-1-26 17:05 , Processed in 0.217802 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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