从多个文件中的表格里提取制定标题行的数据

mousecat03

各位新年好， 我有个问题很着急，我想从多个文件中的表格里提取指定标题行的数据，将提取的数据自动填写到统计表格中，请问怎么做？ 例如 多个文件中含有个人简历的表格，我现在要将表格里的姓名和性别提取出来，制成一张总表。

守柔

上传一个示例文件，应与原文件格式相符，内容可随意写一下，我们好帮你。

mousecat03

简单做了个例子，内容很简单，但是由于我有几个文件中含有近似格式的表。 我想把几个文件的内容汇总到一个文件中的总表，请指教！ JtJFfRKo.zip (2.83 KB, 下载次数: 76)

2006-2-5 16:40 上传

点击文件名下载附件
从多个文件中的表格里提取制定标题行的数据

守柔

Sub Example()
Dim myTable As Table, i As Byte
With ActiveDocument
Set myTable = .Tables(1)
For i = 1 To 3
MsgBox .Range(myTable.Cell(2, i).Range.Start, myTable.Cell(2, i).Range.End - 1).Text
Next
End With
End Sub

你可以此链接中的类似代码

http://club.excelhome.net/viewthread.php?tid=148655

做一个遍历WORD文件的代码，将其中的单元格内容提取写到THISDOCUMENT的表格单元格中（目标文档）

mousecat03

如何依次将一个目录下的文件打开和关闭？

守柔

以下是引用[I]mousecat03[/I]在2006-2-6 11:04:28的发言：[BR]

顶

以下代码供参考： Option Explicit Sub NewNames() Dim MyDialog As FileDialog, vrtSelectedItem As Variant Dim oDoc As Document, myTable As Table, oTable As Table Dim i As Byte, myString As String, N As Integer ' On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '清除所有文件筛选器中的项目 .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件' .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 Application.ScreenUpdating = False Set myTable = ThisDocument.Tables(1) N = 1 For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环 Set oDoc = Documents.Open(fileName:=vrtSelectedItem, Visible:=False) With oDoc If .Tables.Count = 0 Then Exit Sub Set oTable = .Tables(1) N = N + 1 myTable.Rows.Add myTable.Rows(N) For i = 1 To 3 myString = .Range(oTable.Cell(2, i).Range.Start, oTable.Cell(2, i).Range.End - 1).Text Debug.Print myString myTable.Cell(N, i).Range = myString Next .Close False End With Next End If End With Application.ScreenUpdating = True End Sub MOYpUHvf.zip (15.22 KB, 下载次数: 109)

2006-2-6 12:06 上传

点击文件名下载附件
从多个文件中的表格里提取制定标题行的数据

金云来

不错，应该对我也有很大帮助