将表从 word 导出到 excel 时出现错误 432

Question

I'm trying to export a word doc. tables to an excel file. Expected result:

1. export only the first row for every column (avoiding the rest of the table content)
2. no space between tables

I tried with this but I get this 432 error on "Set wdDoc = GetObject(wdFileName)":

432 error

Can someone help me?

Sub Trouble()

    Dim word_app As Object, word_doc As Object, word_table As Word.Table, wdFileName As Variant, wdDoc As Object

    Set word_app = CreateObject("Word.Application")
    ActiveSheet.Calculate

    wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", , _
    "Browse for file containing table to be imported")

    If wdFileName = False Then Exit Sub 
    ActiveSheet.Range("A:A").ClearContents

    Set wdDoc = GetObject(wdFileName)
    word_app.Visible = True
    wdDoc.Activate

    excel_row = 1
 
    On Error Resume Next

    For Each word_table In wdDoc.Tables
        Err.Clear
        For i = 1 To word_table.Rows.Count
            
            For j = 1 To word_table.Columns.Count
                part = word_table.Rows(i).Cells(j).Range.Text
                part = Left(part, Len(part) - 1)
                part = Replace(part, vbNewLine, "")
                
                Sheet2.Cells(excel_row, j).Value = part
            Next j
            excel_row = excel_row + 1
        Next i
    Next word_table

    MsgBox "done"

    wdDoc.Save
    'word_app.Quit
    Set wdDoc = Nothing
    Set word_app = Nothing

End Sub

Answer 1

This works for me (just the word-related parts):

Sub Trouble()

    Dim word_app As Object, wdFileName As Variant, wdDoc As Object

    Set word_app = CreateObject("Word.Application")
    

    wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", , _
                             "Browse for file containing table to be imported")

    If wdFileName = False Then Exit Sub
    
    Set wdDoc = word_app.documents.Open(wdFileName)
    word_app.Visible = True
    wdDoc.Activate
    
End Sub