如何使用 Excel 宏 VBA 自动填写 Web 表单

Question

我已经尝试编写自动化的网络表单填写

Sub Test1()

    Dim IE As Object
    Dim doc As HTMLDocument
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = True
    IE.navigate "my website"
    
    Do While IE.Busy
       Application.Wait DateAdd("s", 1, Now)
    Loop
    
    Set doc = IE.document
    doc.getElementById("existmid").Value = ThisWorkbook.Sheets("DATA").Range("A2").Value
    
    If ThisWorkbook.Sheets("DATA").Range("B2").Value = "Marine" Then
        doc.getElementById("fty").Value = "M"
    ElseIf ThisWorkbook.Sheets("DATA").Range("B2").Value = "Inland" Then
        doc.getElementById("fty").Value = "I"
    End If
        
    If ThisWorkbook.Sheets("DATA").Range("D2").Value = "Male" Then
        doc.getElementById("gen").Value = "1"
    ElseIf ThisWorkbook.Sheets("DATA").Range("D2").Value = "Female" Then
        doc.getElementById("gen").Value = "2"
    End If
    
        
    doc.getElementById("mnam").Value = ThisWorkbook.Sheets("DATA").Range("C2").Value

我需要从网页表格中选择性别类别？为此，我在上面写了第二个 if 条件