



免费预览已结束,剩余1页可下载查看
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
Word的“邮件合并”功能可以让众多数据自动按照自己的要求插入到文档中。但假如又有另外一个要求:在同一个A4页面中要打印多项数据,这个时候“邮件合并”功能就不能满足了,因为合并功能不能在一页中设置多项数据(譬如完整的一个信封-包括收件人地址、收件人姓名、寄件人地址等就被视为一页,而不能在同一页中打印两份信封。) 要从Excel中引用数据,首先要知道的是其中数据单元格的表示方法。主要有两种方式,即A1和R1C1引用样式。前者是软件默认的方式,即第一个字母表示表格中的列数,第二个数字表示行数,例如A1就表示A列第一个单元格。而在R1C1引用样式中,Excel使用“R”加行数字和“C”加列数字来指示单元格的位置。例如,R1C1即指该单元格位于第1行第1列。在Word中调用Excel数据,有两种方式,一种是OLE(对象的链接和嵌入)和DDE(动态数据交换)。这里我们要讲的是后面一种。DDE是一个协议,它允许两个应用程序通过一个DDE“通道”连续自动地进行数据交换。要控制两个应用程序之间的DDE会话,需要建立一个通道,选定一个主题,请求并传送数据,然后关闭通道。现在,我们有名称为“1.xls”的Excel数据表,要将其中的数据以个人为单位在Word中打印出来。通过在Word中创建一个名称为“获取数据”的宏,使用DDE方法即可调用出“1.xls”中的数据。下面就来看看具体的代码:Sub 获取数据()Dim i As Integer 代表行号Dim j As Integer 代表列号Dim r As StringDim c As String For i = 2 To 4 For j = 1 To 3 chan = DDEInitiate(app:=Excel, topic:=system) 打开一个DDE通道 DDEExecute channel:=chan, Command:=open( & Chr(34) & d:.xls & Chr(34) & ) 在一个应用程序中执行打开.xls文件命令,需要指出的是,系统要求所需文件必须放在D盘。 DDETerminate channel:=chan 关闭DDE通道 chan = DDEInitiate(app:=Excel, topic:=1.xls) 打开一个DDE通道 dse = r + CStr(i) + c + CStr(j) 确定单元格位置 b = 教育硕士姓名: e = 准考证号: f = 地址: If j = 1 Then a = b + Space(3) + DDERequest(channel:=chan, Item:=dse) 需要显示的文字加上三个空格以及按指定单元格获取到的数据,下同 End If If j = 2 Then a = e + Space(3) + DDERequest(channel:=chan, Item:=dse) End If If j = 3 Then a = f + Space(3) + DDERequest(channel:=chan, Item:=dse) End If 通过判断列号选择显示的文字 Selection.InsertAfter (a) 在鼠标停留位置插入获得数据 With Selection.Font 对前面显示的数据进行字体设置 .NameFarEast = 宋体 .Name = 宋体 .Size = 14 .Bold = True End With Next j Next i DDETerminateAll 关闭所有以及打开的DDE通道End Sub这是一个使用DDE的简单例子,在WIN2
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025国考试题真题及答案解析
- 心电国考试题及答案
- 福安语文期中考试题及答案
- 蒙城六中开学考试卷子及答案
- 达标测试人教版八年级上册物理《机械运动》定向测评练习题(含答案详解)
- 达标测试人教版八年级上册物理物态变化《升华和凝华》同步练习练习题(含答案解析)
- 后营会计考试题及答案
- 难点详解人教版八年级上册物理声现象《声音的特性》章节练习试题(含答案解析)
- 考点解析-人教版八年级上册物理《长度和时间的测量》章节测试试题(含答案解析版)
- 2025护士往年考试真题及答案
- 2022年上海市经济信息中心(上海市公共信用信息服务中心)招聘笔试备考题库及答案解析
- TCTCA 13-2023 凉感织物席规程
- 心血管急救药物用法总结
- 1新疆大学考博英语历年考博真题20-21年
- GB/T 17194-1997电气导管电气安装用导管的外径和导管与配件的螺纹
- GB/T 12224-2005钢制阀门一般要求
- GA/T 1481.2-2018北斗/全球卫星导航系统公安应用第2部分:终端定位技术要求
- 科技项目研发经费归集课件
- TB T2075-《电气化铁道接触网零部件》
- 杨青山版-世界地理第第六章-亚洲(原创)课件
- 基础教育改革专题课件
评论
0/150
提交评论