如何从EXCEL单元格中链接数据到 WORD文本中？

excelzfsn

作项目报告时，先用excel做大量的数据分析，然后把数据分析结果与相应的参数再写进word文字行中。有办法将数据连接到word文字中吗？

见8楼图示

wx486

可以的，请楼主上传附件，并写出尽量详细的要求。

jsxjd

将结果通过“链接”方式插入到 Word

lhdcxz

没有附件。建议
1、邮件合并
2、参考http://club.excelhome.net/thread-838620-1-1.html

excelzfsn

工程.rar (54.72 KB, 下载次数: 403)

2013-8-12 12:59 上传

点击文件名下载附件

word文档内容格式、excel表格计算内容每个项目大体都一样的。word文档中的红色数字从excel表里链接过来，每次有项目时就用这套连接好的word文档和xecel作，在word里修改部分数据和文字，大部分连接过来的数据省去了输入操作。
感谢楼上的朋友！！{:soso_e179:}

dajiahaoxinku12

插入超链接              

excelzfsn

dajiahaoxinku12 发表于 2013-8-12 13:41
插入超链接

超链接是链接的文本名吧

excelzfsn

wx486

excelzfsn 发表于 2013-8-12 16:15

如果WORD文档中其它文本都整理好，在EXCEL文档数据整理出来后，只需要将红色数据输出到WORD文档是可以的。但须保证WORD文档中格式不能变。

wx486

excelzfsn 发表于 2013-8-12 16:15

请测试。
桌面.zip (32.94 KB, 下载次数: 319)

2013-8-12 18:28 上传

点击文件名下载附件

1. Sub test111()
   
2.     Dim mat, arr, i%, j%, ex As Object, wb
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = "[\d\.]+(?=万元)"
   
6.         ActiveDocument.Content = .Replace(ActiveDocument.Content, " ")
   
7.         .Pattern = ".(?=万元)"
   
8.         Set mat = .Execute(ActiveDocument.Content)
   
9.     End With
   
10.     ReDim arr(1 To mat.Count)
    
11.     Set ex = CreateObject("excel.application")
    
12.     Set wb = ex.workbooks.Open(ActiveDocument.Path & "\液处理站工程.xls")
    
13.     With wb
    
14.         arr(1) = .sheets(2).[c28]
    
15.         arr(2) = .sheets(2).[c5]
    
16.         arr(3) = .sheets(2).[c15]
    
17.         arr(4) = .sheets(2).[c26]
    
18.         arr(5) = .sheets(3).[c15]
    
19.         arr(6) = .sheets(2).[c29]
    
20.         arr(7) = .sheets(3).[c8]
    
21.         arr(8) = .sheets(3).[c12]
    
22.         For i = 9 To 12
    
23.             arr(i) = .sheets(1).Cells(i - 2, "r")
    
24.         Next
    
25.         arr(13) = .sheets(1).[r17]
    
26.         arr(14) = .sheets(1).[r18]
    
27.         arr(15) = .sheets(1).[r21]
    
28.         arr(16) = 1.5
    
29.         arr(17) = .sheets(1).[r22]
    
30.         .Close False
    
31.     End With
    
32.     ex.Quit
    
33.     Set ex = Nothing
    
34.     With ActiveDocument.Content.Find
    
35.         .Text = " 万元"
    
36.         Do While .Execute
    
37.             j = j + 1
    
38.             .Parent = arr(j) & "万元"
    
39.             .Parent.Collapse wdCollapseEnd
    
40.         Loop
    
41.     End With
    
42.     MsgBox "OK"
    
43. End Sub
    

复制代码