●★将Excel数据写入Word模板★●

gwfzh · 发表于 2010-9-9 16:36

原帖由 热浪2006 于 2009-9-1 14:14 发表
　
很多网友关心如何将Excel数据写入Word文档，故在此做了些小东东，供参考...（运行时请关闭Word模板和已生成的Word文件)

注：如果仅复制或改写代码到新工作簿里，请别忘了在工程里引用Word对象！

热浪2006老师能帮忙将sheet1表a1:h35区域内的文字直接保存为word文档吗！也就是将a8：b27区域内的文字复制到模板“主要问题：”指定的位置中。第二个附件有模板：

督导记录.zip (36.83 KB, 下载次数: 112)

[ 本帖最后由 gwfzh 于 2010-9-9 16:50 编辑 ]

zyxvic1981 · 发表于 2010-9-16 11:39

学习，学习，不错的东西

zyxvic1981 · 发表于 2010-9-16 14:08

下来研究研究

sunxh · 发表于 2010-9-16 14:26

赞一个！学习了。

dengxu · 发表于 2010-10-8 11:23

我的出现同样问题但是在另外一台机器上完全正确，经过艰苦的思索和努力上微软网站终于找到原因：微软解释如下
  当您所使用的进程外客户端应用程序使用早期绑定来使 Word 97 或更高版本自动运行时，该应用程序可能会由于存在访问冲突而崩溃，出现我们遇到的错误消息：
  该问题会在某些计算机上持续发生，但在另一些计算机上却可能永远不会发生。安装新的应用程序或 Microsoft Excel Service Pack 可能导致先前正常工作的计算机遇到该问题。
要解决此问题，请执行下列操作之一：
修改您的代码，在上面列出的任何 Word 接口上调用方法或属性时都使用晚期绑定。
- 或 -

在发生该问题的系统上重新注册 Word 类型库。
建议您使用晚期绑定解决方案。因为两种类型库均描述了实现 IDispatch 接口的接口，所以对任何 IDispatch 方法的调用都将有效，而与最后在系统上注册哪个类型库无关。这是确保您的代码不会在您未管理的系统上遇到此错误的唯一方法。

对于所使用的客户端应用程序无法重新编译为使用晚期绑定的客户，在大多数情况下，可以通过重新注册 Word 类型库来解决该问题。由于在再次重新注册 Excel 5.0 库时会重新出现该问题，因此这不是理想的解决办法。不过，由于重新注册 Excel 5.0 库的可能性很小，因此此方法对于大多数用户来说是可行的。

要重新注册 Word 类型库，请找到系统上安装的 Word 版本的相应类型库：

然后，在命令行中将 Regtlib.exe 与类型库的完整路径一起使用以向 COM 重新注册该库。Regtlib.exe 将在传入的类型库（.tlb 或 .olb）文件上调用 LoadTypeLib 和 RegisterTypeLib 应用程序接口 (API)。COM 会修复错误配置的注册表项。或使用以下代码替换 Selection 对象的早期绑定声明以使用晚期绑定：
Dim oSel As Object
（注意：  Dim oSel As Word.Selection
   osel在本程序中=Word对象.selection）
我采用的是代码替换解决了这个问题

iamtheman · 发表于 2010-10-21 16:32

好强啊，膜拜一下！
可以自动生成协议书了

iamtheman · 发表于 2010-10-21 16:35

如果有重复的数据，需要以新的数据填入哦！不过这样已经足够用了

nineboxes · 发表于 2010-10-28 22:01

这是我特别需要掌握的代码

gaozhifu007@163 · 发表于 2010-11-1 17:28

帮我看下怎么编写实现写入。谢谢了！！

guzhen9315 · 发表于 2010-11-2 18:01

执行到以下一句时，
If .Selection.Find.Execute(Str1) Then

出错：
方法execute作用于find时失败

[ 本帖最后由 guzhen9315 于 2010-11-2 18:02 编辑 ]

		自动登录	找回密码
密码			免费注册

[原创] ●★将Excel数据写入Word模板★●

回复 1楼热浪2006 的帖子

回复 28楼 deweyfbi 的帖子

[原创] ●★将Excel数据写入Word模板★●

回复 1楼 热浪2006 的帖子

回复 28楼 deweyfbi 的帖子

回复 1楼热浪2006 的帖子