ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: lraz

如何引用excel的数据

[复制链接]

TA的精华主题

TA的得分主题

发表于 2002-3-29 14:23 | 显示全部楼层
啊,那你就应该趁此机会学VBA了,一边学一边结合实际解决工作上的问题,这种学习方法的效率和效果是最好的了,有什么问题就在论坛上提,我们会尽力为你解答的.

TA的精华主题

TA的得分主题

发表于 2002-3-29 10:58 | 显示全部楼层
呵呵,除第1步是手工操作外,其余步骤全部是代码完成,不知道这样够不够自动. 别看到移动光标和复制粘贴就以为是手工操作,这些操作完全可以用代码来控制,比如移动光标就可以用Selection.GoTo或Selection.Move 其实关键在第5步,理解了这一步,其它基本不成问题了,建议你录制一段宏研究一下."插入"菜单如果没有"数据库"这一项,可以右击工具栏,选"自定义",然后选"插入",在右边的框中将"数据库"拖到"插入"菜单中. 自动产生合计项只是小儿科,简单得很,录制表格求和的宏就可得出代码. 不知你想生成什么格式?

TA的精华主题

TA的得分主题

发表于 2002-3-28 16:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

完全可行

有两种方法: 1.用ADO,考虑到这种方法要对ADO比较熟悉,所以略下不表. 2.用Word里面的"插入数据库"功能,现在说说这种方法. 主要思路如下: 1.将公共部分("根据应收贷款利息..."到"...单位:元"之间的内容)存为一个文件(.doc) 2.定义一个数组,里面保存经办行的名称,如bank(0)="仙岳分理处",bank(1)="湖里支行"等 3.打开刚才保存的文件 以下是一个循环 4.将内容复制过来,将光标移到"根据..."的上面,Selection.TypeText bank(0) & ":" 5.移动光标到你要插入表格的位置,插入表格.以下代码是关键所在,是通过修改录制宏得来的. Selection.Range.InsertDatabase Format:=36, Style:=191, LinkToSource:=False _ , Connection:="整张电子表格", SQLStatement:= _ "SELECT 账号, 贷款户名, wdm, 金额 FROM C:\Documents and Settings\Administrator\桌面\Help\tz\clcj.xls WHERE (wdm = '" & bank(0) & "')" _ & "", PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument _ :="", WritePasswordTemplate:="", DataSource:= _ "C:\Documents and Settings\Administrator\桌面\Help\tz\clcj.xls", From:=-1, _ To:=-1, IncludeFields:=True 6.移动光标到"你行"和"等单位"之间,读取表格中"贷款户名"到这里. 7.增加一页,重复刚才的步骤,直到处理完数组bank的最后一个元素.

TA的精华主题

TA的得分主题

发表于 2002-3-27 17:05 | 显示全部楼层
你是否想把经办行相同的记录列成一个表格作为一页打印输出? 是不是一定要在Word中完成?我觉得这个问题在Excel中完成会简单点。

TA的精华主题

TA的得分主题

发表于 2002-3-25 20:10 | 显示全部楼层
不是很清楚你的要求,最好把文件及具体问题上传
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-1 20:41 , Processed in 0.028219 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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