关于从EXCEL提取考场和座位号到WORD准考证中，有没有这个可能！！

木鸭

我有一份EXCEL表，里面有姓名、考场、----、座位号，而准考证是WORD文档，里面有好几百份准考证。准考证上面的姓名、准考证号等都有了，就是要我们自已安排考场和座位号。在工作表安排好后还要一个一个输入准考证，如果这样输不知要输到什么时候。请问有没有办法和EXCEL数据比对后自动匹配里面的姓名把相对应的考场和座位号自动填写进WORD表格中的考场和座位号空格里面。

sunya_0529

使用邮件合并就可以了。最好上传一个附件，这样好有针对性地解决你提出的问题。

木鸭

上传文件请求帮忙！！！就是把excelL里的考场和座位号批量导入WORD文件准考证里的考场和座位号的空格里。

sunya_0529

看了一下你的附件，就这样的情况，是不方便使用邮件合并的。要使用邮件合并，你只需要在Word里设计一张空表，把变动的项目全部留空，仅保留固定格式的文字。然后把Excel表中的数据补充完整，用作数据源。具体两个文档的格式设置如附件所示。

按照你所上传的附件，在Word中使用VBA也能完成填充，不过你的Excel表中有重名，循环提取时会出错。

木鸭

sunya_0529 发表于 2012-6-14 16:48
看了一下你的附件，就这样的情况，是不方便使用邮件合并的。要使用邮件合并，你只需要在Word里设计一张空表 ...

谢谢你的帮助，我只想要考场号和座位号的数字，因为WORD里有的人是不用考试的。所以能让它自动比对把那两个号码填在准考证里面。

sunya_0529

木鸭 发表于 2012-6-14 17:31
谢谢你的帮助，我只想要考场号和座位号的数字，因为WORD里有的人是不用考试的。所以能让它自动比对把那两 ...

那姓名里有重复的，如何对应呢？

木鸭

sunya_0529 发表于 2012-6-14 21:01
那姓名里有重复的，如何对应呢？

现在我想把WORD表里的第二行的姓名提取到EXCEL表格要怎样做？

sunya_0529

木鸭 发表于 2012-6-15 11:56
现在我想把WORD表里的第二行的姓名提取到EXCEL表格要怎样做？

在Excel里添加一个按钮，代码如下所示：

1. Option Explicit
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4. On Error Resume Next
   
5. ActiveSheet.Cells.ClearContents
   
6. Dim wdApp As Word.Application, doc As Document, tbl As Table, arrName(), i%, j%
   
7. Set wdApp = CreateObject("Word.Application")
   
8. Set doc = wdApp.Documents.Open(Filename:=ThisWorkbook.Path & "\01.doc")
   
9. j = doc.Tables.Count
   
10. ReDim arrName(1 To j)
    
11. For i = 1 To j
    
12.   arrName(i) = doc.Tables.Item(i).Cell(2, 2).Range.Text
    
13. Next
    
14. [A1].Resize(UBound(arrName), 1) = Application.Transpose(arrName)
    
15. doc.Close
    
16. Set doc = Nothing
    
17. wdApp.Quit
    
18. Set wdApp = Nothing
    
19. End Sub

复制代码

木鸭

sunya_0529 发表于 2012-6-15 18:53
在Excel里添加一个按钮，代码如下所示：

谢谢你的帮助，可以在代码标注一下说明吗？因为我是刚接触VBA，想学习一下。比如说我想多提取准考证号和姓名，应该怎样修改代码！！！

sunya_0529

木鸭 发表于 2012-6-15 23:34
谢谢你的帮助，可以在代码标注一下说明吗？因为我是刚接触VBA，想学习一下。比如说我想多提取准考证号和姓 ...

修改上面附件中的代码如下，已经添加了注释。

1. Option Explicit
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4. On Error Resume Next '设置错误处理
   
5. ActiveSheet.Cells.ClearContents '清空结果存放区域
   
6. Dim wdApp As Word.Application, doc As Document, tbl As Table, arrName(), i%, j%
   
7. Set wdApp = CreateObject("Word.Application") '定义Word对象
   
8. Set doc = wdApp.Documents.Open(Filename:=ThisWorkbook.Path & "\01.doc") '打开“01.doc”
   
9. With doc.Tables
   
10.   j = .Count '统计Word文档中的表格数量
    
11.   ReDim arrName(1 To j, 1 To 2) '重新定义结果存放数组的维数
    
12.   For i = 1 To j
    
13.     arrName(i, 1) = .Item(i).Cell(1, 2).Range.Text '提取Word文档中每个表格中的准考证号
    
14.     arrName(i, 2) = .Item(i).Cell(2, 2).Range.Text '提取Word文档中每个表格中的姓名
    
15.   Next
    
16. End With
    
17. [A1].Resize(UBound(arrName, 1), UBound(arrName, 2)) = arrName '将结果存放数组中的数据填充到工作表中
    
18. '以下代码打扫战场
    
19. doc.Close
    
20. Set doc = Nothing
    
21. wdApp.Quit
    
22. Set wdApp = Nothing
    
23. End Sub

复制代码