☰

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

tag-icon • tag-icon microsoft-excel vbscript microsoft-word-2016
根据单元格的值将单元格数据从 MS Word 表复制到 Excel

我有一份相当大的 Word 问卷。它包含几个类似的不规则表格（即有些行有合并单元格，有些没有）。我需要读取每个表格中的 3 个特定值，并在下一个单元格中获取答案，然后将其移动到新的 Excel 电子表格中，以便我可以将该数据导入 Access。

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
objWord.DisplayAlerts = False
objWord.Documents.Open "C:\Users\TheRev\Desktop\AllObj.docx", False, True
Set objDoc = objWord.ActiveDocument

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False
objExcel.Workbooks.Add
Set objSheet = objExcel.ActiveSheet

dstRow = 0
For Each tbl In objDoc.Tables
    For srcRow = 1 To tbl.Rows.Count
        col = 0
        For Each cell In tbl.Rows(srcRow).Cells
            If cell = "Family number" then 
            wscript.echo "Found it"
        Else 
        col = col + 1
                objSheet.Cells(dstRow+srcRow, col).Value = Left(cell.Range.Text, Len(cell.Range.Text)-1)
        End If
        Next
    Next
    dstRow = dstRow + SrcRow
Next
objExcel.ActiveWorkbook.SaveAs "C:\Users\TheRev\Desktop\SurveyResults.xlsx"
objExcel.Quit

将我的所有表格转换为 Excel 工作簿。这不是我需要的。

我需要做什么：

如果单元格值为“目标编号”，则将下一个单元格的数据（3.9.1）复制到 Excel 电子表格的 A 列，然后将下 2 个单元格的数据（技术放在此处）复制到 Excel 的 B 列，然后将下一个单元格的数据（问题放在此处）复制到 Excel 的 C 列。重复此操作，直到 Word 文档结束。

我该如何做呢？

部分问卷截图

完整问卷截图

测试文件下载。右键单击另存为。

相关内容