Word表格复制到Excel报错：The requested member of the collection does not exist

嘿，我来帮你分析这个问题～你遇到的报错大概率和Word表格里的合并单元格有关，咱们一步步拆解：

为什么前3行正常，第4行报错？ #

你用wdDoc.Tables(1).Cell(m, l)直接访问单元格时，Word会严格按照“未合并的原始单元格索引”来查找。如果第4行第1列和上方的单元格（比如第3行第1列）合并了，那这个位置的独立单元格其实已经不存在了——合并后的单元格会占用多个行/列的索引，但只能通过合并区域的第一个单元格索引访问，这时候你调用Cell(4,1)就会触发“请求的集合成员不存在”的错误。

另外，直接把Word的Cell对象赋值给Excel单元格也有隐患：Cell对象包含了格式、Range等额外信息，不是纯文本内容，容易触发类型不匹配或访问错误。

解决方案 #

方案1：获取单元格纯文本内容（适用于无合并单元格的情况） #

把代码改成读取单元格的文本内容，同时去掉Word单元格自带的结束符（每个Word单元格末尾会有两个隐藏字符：一个是单元格标记，一个是段落标记）：

For m = 1 To 15
    For l = 1 To 4
        ' 读取单元格文本并去除末尾的隐藏字符
        Dim cellText As String
        cellText = wdDoc.Tables(1).Cell(m, l).Range.Text
        ActiveSheet.Cells(m, l) = Left(cellText, Len(cellText) - 2)
    Next l
Next m

方案2：适配合并单元格的遍历方式 #

如果你的表格确实存在合并单元格，建议用逐行逐单元格的遍历方式，自动处理合并单元格的跨列/跨行问题：

Dim wdRow As Word.Row
Dim wdCell As Word.Cell
Dim excelRow As Integer, excelCol As Integer

excelRow = 1
' 遍历Word表格的每一行
For Each wdRow In wdDoc.Tables(1).Rows
    excelCol = 1
    ' 遍历当前行的每个单元格（合并单元格会被视为一个Cell对象）
    For Each wdCell In wdRow.Cells
        ' 写入纯文本内容
        ActiveSheet.Cells(excelRow, excelCol) = Left(wdCell.Range.Text, Len(wdCell.Range.Text) - 2)
        ' 合并单元格跨几列，就跳过对应的Excel列
        excelCol = excelCol + wdCell.Columns.Count
    Next wdCell
    excelRow = excelRow + 1
Next wdRow

额外检查步骤 #

你可以先手动打开Word文档，选中第4行第1列，右键查看“表格属性”里的“单元格”选项卡，确认是否是合并单元格；也可以用VBA代码快速判断：

Debug.Print wdDoc.Tables(1).Cell(4, 1).MergeCells ' 返回True就是合并单元格

内容的提问来源于stack exchange，提问作者joehua