根据单元格的值将单元格数据从MS Word表复制到Excel

因此,我有一个相当大的Word调查表。它中有几个类似的不规则表(意味着有些行合并了单元格,有些则没有)。我需要读取每个表中的3个特定值,并在下一个单元格中获取响应并将其移至新的Excel电子表格中,这样我才能将该数据导入Access中。自从我在vbscript中进行此类操作以来,这确实是一个乡村时光。我从另一个线程收集了此脚本,但是我不记得该怎么做。

[码] 设置objWord = CreateObject(“ Word.Application”) objWord.Visible = False objWord.DisplayAlerts = False objWord.Documents.Open“ C:\ Users \ TheRev \ Desktop \ AllObj.docx”,False,True 设置objDoc = objWord.ActiveDocument

设置objExcel = CreateObject(“ Excel.Application”) objExcel.Visible = False objExcel.DisplayAlerts = False objExcel.Workbooks.Add 设置objSheet = objExcel.ActiveSheet

dstRow = 0 对于objDoc.Tables中的每个tbl     对于srcRow = 1到tbl.Rows.Count         col = 0         对于tbl.Rows(srcRow).Cells中的每个单元格             如果单元格=“家庭号”,则             wscript.echo“找到了”         其他         col = col + 1                 objSheet.Cells(dstRow + srcRow,col).Value =左(cell.Range.Text,Len(cell.Range.Text)-1)         万一         下一个     下一个     dstRow = dstRow + SrcRow 下一个 objExcel.ActiveWorkbook.SaveAs“ C:\ Users \ TheRev \ Desktop \ SurveyResults.xlsx” objExcel.Quit [/码]

这基本上将我所有的表都转换为excel工作簿。不是我所需要的。

我需要做的是读取每个Word表的第一列,特别是每一行的第一个单元格数据,如果该单元格显示“ Objective number”,则需要将下一个单元格的数据复制到Excel电子表格的A列中,然后将Word doc的数据从第一个复制的文本向下2个单元格(技术)中复制到Excel的B列中,并将Word doc的下一个单元格向下(问题)复制到Excel列C中。然后,它需要继续读取Word doc的第一列,直到它会找到下一个“目标编号”文本,并重复执行直到它位于Word文档的末尾。

谢谢你一百万

牧师

我随附了330个目标问卷的样本,因此您可以了解我正在尝试做的事情。

Questionaire

评论