带合并单元格的我word表格如何装入数组

坠网老朱

含有合并单元格的word表格中的值如何完整按照顺序装入数组？


If Selection.Information(wdWithInTable) Then
Set oTable = Selection.Tables(1)
  r = oTable.Rows.Count
  c = oTable.Columns.Count
End If

On Error Resume Next
ReDim arr(1 To r, 1 To c)
For i = 1 To r
   For j = 1 To c
      If Err.Number <> 0 Then
         arr(i, j) = Array("", "")
         Err.Clear
      Else
        arr(i, j) = VBA.Mid(oTable.cell(i, j), 1, VBA.Len(oTable.cell(i, j)) - 1)
     End If
   Next j
Next i

batmanbbs

没有讲清楚什么顺序，只就示例而言，我想到的几种方法，不过都需要根据实际需求来确定
1、遍历所有单元格，判断是否是数字，是数字保存到数组（同时也可以记录索引号，便于处理特殊情况）
2、直接将表格读取到字符串中，然后split成数组，再过滤数组提取数字（这个应该速度较快）
3、容错遍历每一行，因为示例除了表头都不存在合并单元格，如果读取错误，说明是表头，跳过，移动到下一行继续遍历读取数据

lss001

Sub WordTable()
Dim wTable As Table, brr
With ActiveDocument
For Each wTable In .Tables
    s = wTable.Range.Text
    brr = Split(s, Chr(13) & Chr(7))
Next
End With
Set wTable = Nothing
End Sub

坠网老朱

lss001 发表于 2024-10-15 20:08
Sub WordTable()
Dim wTable As Table, s$ , t
With ActiveDocument

怪我没说清楚，我的要求是就是有合并单元格时，视同没有合并单元格，将完整的每行每列装入数组，或者代码出现错误的arr装入空值

lss001

坠网老朱 发表于 2024-10-16 08:22
怪我没说清楚，我的要求是就是有合并单元格时，视同没有合并单元格，将完整的每行每列装入数组，或者代码 ...

所有单元格内容装入数组
参考楼上更新代码