hyfm.net
当前位置:首页 >> ExCElvBA填写worD模板 >>

ExCElvBA填写worD模板

参考这个:sub exceltoword() ' 利用word程序创建文本文件 dim wordapp as object dim records as integer, i as integer dim region as string, salesamt as string, salesnum as string, strtitle as string set wordapp = createobject("word.application"

sub text() dim wd as new word.application set wd = createobject("word.application") with wd .visible = true .documents.add end with activedocument.range.text = "123456789" end sub以上代码在excel模块当中写入,新建word,并向其中写入字符"123456789" 注意:需要在引用中勾选word 14.0 如图

如果说填写,这个比较复杂,而且很难实现,因为word的VBA都是跟跟键盘操作,和界面操作有关的.所以,如果可能,可以考虑用VBA来复制表格,然后粘贴到EXCEL中,对于比较简单的表格,内容是可以完全匹配的.首先,你要知道如何

可用CreateObject函数创建对EXCEL的引用,然后就可打开EXCEL工作簿,将表格中的数据复制到WORD中,参考代码如下:Set xlapp = CreateObject("excel.application") With xlapp.Open("带路径的EXCEL文件名") .Sheets(1).Range("A1:H8").Copy '粘贴到WORD指定位置 End With xlapp.Quit

换行符的是可以的.不知道你N,3单元个有什么特殊的格式.你可以把只含有N,3 单元个的表格发上来,研究一下.

去百度文库,查看完整内容> 内容来自用户:madmlwt 在EXCEL中用VBA创建WORD文档表格 编辑:madmlwt1.在新建WORD空白文档中创建一个表格 【要求】 新建一个WORD空白文档,在新文档中创建一个4行5列的空白表格,在空白表格

步骤一、先进入Excel表格,然后选中需要导入到Word文档中的区域,按下复 Ctrl+C 复制;步骤二、打开Word2003,然后选择菜单栏的“编辑”中的“选择性粘贴”,在“形式”下制面选中“Microsoft Office Excel 工作表 对象”然后确定; 此

如果可以的话,建议将表格截图上传看看.如果表格有相应的“标题项”名称,可以考虑用“查找和替换”来进行定位,再将相应的“数据”录入到其后的单元格即可.

忘记说了,要加入word的Object library才行的.方法:在excel的vb编辑器菜单中,选“工具”---“引用”---在那列表中往下找“Microsoft Word 9.0 Object Library”,把它前面的框勾上,确定.这样执行就没错了.Sub Macro1() Dim appWD As

简单的做法是采用word的邮件合并功能,不用编程.

pdqn.net | jtlm.net | 90858.net | zmqs.net | 5213.net | 网站首页 | 网站地图
All rights reserved Powered by www.hyfm.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com