Visual Basic表对象：获取特定行的列数

Question

我正在尝试将表格中的值从Word文档复制到Excel工作表中。 我被困在从具有每行不同列数的表中读取值。 例如，第二行有3列，但第一行只有2列。 因此.Columns.Count为3并导致

索引超出范围

在第一排。

我认为应该是这样的： .Rows(1).Columns.Count

但我在在线文档或论坛中找不到任何内容。

这是（精简后的）代码：

Set wdDoc = GetObject(wdFileName) ' (path to .docx)

With wdDoc
TableNo = wdDoc.tables.Count
If TableNo = 0 Then
    MsgBox "Word-Dokument enthält keine Tabellen", vbExclamation
End If

' Loop through all tables
For iTable = 1 To TableNo

    With .tables(iTable)

        ' Check if table contains correct headlines
        Dim columnsNo As Integer
        'columnsNo = .Rows(1).Columns.Count ' this it should be but doesnt exist

        For iCol = 1 To .Columns.Count ' this Count returns 3 although 1st row has only 2 columns
            If (.cell(1, iCol) = sAlias) Then
                containsAlias = True
            End If
        Next iCol
    End With
Next iTable
End With

Set wdDoc = Nothing

我希望代码足够清晰，粘贴到stackoverflow可以弥补空白。 谢谢你的帮助。

Answer 1

在另一天进行第二次查看后，我自己找到了解决方案。 要从Table对象（Word）获取特定行中的列数（=单元格数） ，可以使用

.Rows(1).Cells.Count

我发现它似乎很明显。