如何将excel表格中指定的单元格的数据自动导入到word文档中指定位置？

liu-aguang

blackfire 发表于 2014-3-21 17:11
兄弟，我试了真不错，还有点细节想请教。给我留个Q吧，我的邮箱是zhang7836@126.com

1. Sub test()
   
2.     Dim filename, arr, wdapp, cel, i%, n%
   
3.     '提示用户选择要填充数据的word文档,文档名赋予变量filename;如果用户取消选择,那么就直接退出程序.
   
4.     filename = Application.GetOpenFilename _
   
5.         (FileFilter:="word Files (*.doc),*.doc," _
   
6.         & "Word Files (*.docx),*docx", _
   
7.         Title:="请选择需要填充数据的word文件")
   
8.     If filename = False Then Exit Sub
   
9.    
   
10.     '把工作表中的数据赋予数组arr,放进数组下面循环取值更快.
    
11.     arr = Sheets(1).[a1].CurrentRegion
    
12.    
    
13.     '定义绑定一个word应用实例,要在excel中打开word文档必须这样,是标准语句.
    
14.     Set wdapp = CreateObject("word.application")
    
15.     wdapp.Visible = True
    
16.    
    
17.     '打开上面选择的word文档
    
18.     With wdapp.Documents.Open(filename)
    
19.         
    
20.         '以下语句是确定word表格已有数据的行数
    
21.         
    
22.         '选择文档中的第一个表格(tables(1))的第一列(columns(1)),所以如果你的文档中要填充数据的表格不是第一个,就要修改
    
23.         .Tables(1).Columns(1).Select
    
24.         '从上至下遍历第一列中的单元格,直到找到空单元格,最后得到的n值,就是表格中已经有数据的行数.
    
25.         For Each cel In .Parent.Selection.Cells
    
26.             n = n + 1
    
27.             If cel.Range.Text = Chr(13) & Chr(7) Then    'word工作表中空单元格里的字符是chr(13)与chr(7)
    
28.                 n = n - 1
    
29.                 Exit For
    
30.             End If
    
31.         Next
    
32.         
    
33.         '比较excel表格的数据行与word表格的数据行,如果excel的数据行少于或等于word表格的数据行,表明没有新的数据,代码执行直接转到over以下的语句.
    
34.         If UBound(arr) <= n Then GoTo over
    
35.         
    
36.         '以下语句是把excel表格第n行以下的数据传送到word表格的n行以下区域.
    
37.         
    
38.         '首先在word表格的第n行以下增加unound(arr)-n行空行.这个行范围就是需要传送的数据行
    
39.         .Tables(1).Rows(n).Select
    
40.         .Parent.Selection.InsertRowsBelow UBound(arr) - n
    
41.         '从excel的n+1后开始循环,分别把序号/n+1行第一列单元格/第6列单元格的值赋予word相应行列
    
42.         For i = n + 1 To UBound(arr)
    
43.             .Tables(1).Cell(i, 1).Range = i - 1
    
44.             .Tables(1).Cell(i, 2).Range = arr(i, 1)
    
45.             .Tables(1).Cell(i, 3).Range = Format$(arr(i, 6), "percent")
    
46.         Next
    
47.         
    
48.         '保存并关闭已经填充完毕的word文档
    
49. over:
    
50.         .Save
    
51.         .Close wdSaveChanges
    
52.         wdapp.Quit
    
53.     End With
    
54. End Sub
    

复制代码

592rmb

呵呵，自动化公文，不错，其实可以弄成全自动的，只需要在excel中输入原始数据就行了，其它都交给VBA，不过需要稍微学习一下

blackfire

592rmb 发表于 2014-4-11 09:24
呵呵，自动化公文，不错，其实可以弄成全自动的，只需要在excel中输入原始数据就行了，其它都交给VBA，不过 ...

我们公司比较大，官方办公平台叫做“WPS”，所以我尽量避免写vba代码。不过基于各种需求越来越多，我终于还是大规模用了vba，真爽啊！

ndyzx

liu-aguang 发表于 2014-3-22 21:27

谢谢来学习。

zlnzln7

刚好也需要这方面的资料来参考一下，先谢谢了

ws2013

学习中。是否可以把同一行的数据转换为固定形式的excel表格？

弹指百年

liu-aguang 发表于 2014-3-21 16:15

您好，看了您发的几个贴子，觉得您太厉害了，有个问题想请您解决，不知您有没有时间，如果有的话请加我973234830，谢谢！

lbkk

感谢分享~~~~~~

target9989

ws2013 发表于 2016-5-5 07:50
学习中。是否可以把同一行的数据转换为固定形式的excel表格？

不知道这个问题解决了没有？再追加一个条件，比如说：把同一行不同列的的单元格数据导入到ppt中指定的单元格中，比如把A2单元格的内容（A1显示某个日期），导入到PPT中m*n的表格中，日期随意的一处格中的下方。谢谢，

啊嘉

liu-aguang 发表于 2014-3-21 16:13
请测试......

你好，我也想请教您一个问题