单击浏览按钮后如何在弹出窗口中插入值

Question

单击浏览按钮后，我试图输入文本文件路径。单击窗口后弹出，但是我无法在其中输入任何内容，代码也无法继续进行，因此我无法在此处使用发送键。我尝试将路径直接输入到浏览器中，但是它不起作用。下面是相同的代码和html。让我知道我是否清楚自己的问题。谢谢。

<INPUT size=40 type=file name=FILE_NAME> 'Browse option

For Each element In doc.frames(1).Document.getElementsByTagName("Body")(0).getElementsByTagName("input")
        If InStr(1, element.Name, "FILE_NAME", vbTextCompare) > 0 Then
             element.Click
             element.Value = "xyz"
             Sleep (2000)

'            Sleep 1000 'sleep one second
        '    SendKeys "{Backspace}"
            Sleep 1000 'sleep one second
            SendKeys "XYZ.pdf"
            Sleep 2000  'sleep one-tenth second
            SendKeys "{Enter}"[![Browse Option][1]][1]


'             element.Value = "D:\DISDWLD__F_DONE.txt"
             Exit For
        End If