[已解决]如何实现将excel里的数据写入word模板当中

tiancaizcx

比如excel里面有名字、身份证号、地址、电话
对应的word模板里面也有这4项
如果实现读取excel这4个信息，并且写入word里面呢

最佳答案

月排行榜 / 总排行榜

漫星闪

2022-8-3 11:21:02

你如果用excel表的vba编译器的话,请先将word的组件引用"工具--引用--Microsoft Word XX library.." 确定

如果你是用word的vba编译器的话,先将excel的组件引用"工具--引用--Microsoft Excel XX library.." 确定

然后右键左边的vba project 插入 模块(module),将以下代码复制之后,稍加修改就可以用

1. Sub Test()
   
2. '
   
3. '宏 从excel复制每行指定的单元格内容到word,每行生成一个word文档
   
4. '
   
5. Application.ScreenUpdating = False      '关闭屏幕刷新
   
6. 
   
7. '定义excel的部分
   
8. Dim aApp     As Application
   
9. Dim aBook     As Workbook
   
10. Dim aSheet     As Worksheet
    
11. Set aApp = CreateObject("excel.application")
    
12. 'aApp.Visible = True
    
13. Set aBook = aApp.Workbooks().Open(Filename:="C:\Documents and Settings\Jully\桌面\export.xls")
    
14. Set aSheet = aBook.Worksheets.Item(1)
    
15. 
    
16. '定义word部分
    
17. Dim aWrd As Word.Application
    
18. Set aWrd = CreateObject("word.application")
    
19. 'aWrd.Visible = True
    
20. 
    
21. 
    
22. 
    
23. Dim aRow As String   '记录excel的有效行数
    
24. Dim i As Integer
    
25. Dim temp As String   '取excel的指定单元格数据
    
26. 
    
27. 
    
28. aRow = aSheet.Range("A1").CurrentRegion.Cells.Rows.Count
    
29. 
    
30. For i = 1 To aRow
    
31.     temp = aSheet.Cells(Trim(i), 2) & aSheet.Cells(Trim(i), 5) & aSheet.Cells(Trim(i), 5)   '取单元格每一行的第2.3.5列的内容
    
32.     aWrd.Documents.Add                                                                      '添加新文档
    
33.     aWrd.Documents(1).Activate                                                              '获取焦点
    
34.     aWrd.Selection.TypeText Text:=temp                                                      '输出
    
35.     aWrd.Documents(1).SaveAs Filename:="C:" & Trim(i) & ".doc"                             '保存
    
36.     aWrd.Documents(1).Close                                                                 '关闭
    
37. Next i
    
38. 
    
39. aApp.Quit                                           '退出excel
    
40. aWrd.Quit                                           '退出word
    
41. 
    
42. Application.ScreenUpdating = True                   '恢复屏幕刷新
    
43. 
    
44. End Sub

复制代码

跳转到最佳答案楼层

tiancaizcx

tommyyu 发表于 2022-8-3 16:04
https://fishc.com.cn/forum.php?mod=forumdisplay&fid=319&filter=typeid&typeid=722

这是读写excel，但是没有读写word！

tiancaizcx

漫星闪 发表于 2022-8-3 11:21
你如果用excel表的vba编译器的话,请先将word的组件引用"工具--引用--Microsoft Word XX library.." 确定

...

谢谢了，我研究一下

tiancaizcx

漫星闪 发表于 2022-8-3 11:21
你如果用excel表的vba编译器的话,请先将word的组件引用"工具--引用--Microsoft Word XX library.." 确定

...

你好，我想问一下，我是新手，希望你别见怪哈，因为你得代码我还没细细研究。
如果我要实现将excel里的数据写入一个word得合同模板中，比如这个合同模板里面又名字，地址，电话这3条要素需要EXCEL中对应得导入，这个应该改哪里呢？

tiancaizcx

漫星闪 发表于 2022-8-4 06:44
用VBA的话，就先将要写入的地方一一标记，在用Excel把要导入的数据命名，比入我要写入通知书，把标记命名为 ...

你太给力了，我慢慢学下！