分享Excel表格写入Word表格的方案

loquat

经常会遇到Excel表格要写入到Word中去的情况，如果数据量很大，且数据有可能有后续改动时就牵涉到重复劳动。
于是考虑到将word中的表格链接到原始的Excel中去，尽量保证Word中只负责排版，数据处理变动全部交由Excel完成。

当然邮件合并的方法应该是处理类似问题的最佳方案，但是小弟对邮件合并不太熟悉，不知道怎么在新生成的文件中生成动态的域

这里分享的仅仅只是类似问题小小的一角，欢迎坛子里的大侠们指点

说白了就是LINK域

复制一个Excel里的表格后，在Word执行以上操作就会生成一个LINK域，按ALT+F9可以查看该域的内容
{ LINKExcel.Sheet.8 "C:\\1.xlsx" "Sheet1!R2C1:R4C11" \a \f 4 \h }
查看LINK域的参数：
       \a   :   自动更新
       \f    :   源格式还是目标格式
       \h   :   HTML数据类型

这里使用三种方式可以实现以上代码的编写：
一个公用函数（字符串处理）：

1. Public Function FieldStrs(ByVal aPath$, ByVal aRow%, ByVal aCol%, ByVal bRow%, ByVal bCol%, ByVal aSheet$) As String
   
2. Dim tempStr$
   
3. tempStr = Replace(aPath, "", "\")
   
4. tempStr = "Link Excel.Sheet.8 " & Chr(34) & tempStr & Chr(34) & Chr(32) & Chr(34) & aSheet & "!R" & aRow & "C" & aCol & ":R" & bRow & "C" & bCol & Chr(34)
   
5. FieldStrs = tempStr
   
6. End Function

复制代码

loquat

14年的老帖子没有发出来，在草稿箱待了4年

ming0018

…………。赞一个，审核了4年吗？

loquat

不是，是放在草稿箱，一直忘了发布

innerbeast

这不错，学习了，有没有别的方法实现excel表格到word的更新

七夕、

哈哈哈哈 挖到宝了 谢谢大佬!!