首先得明确一个核心限制：所有现代浏览器都禁止脚本直接设置<input type="file">的value属性，这是浏览器的安全机制，目的是防止恶意代码未经用户授权就访问本地文件系统。这就是你直接赋值WD.document.getElementById("fileUpload").Value = "filepath"完全无效的原因——浏览器会直接忽略这个赋值操作，不会把文件路径写入到元素的value里。

接下来针对你的场景，给你两个可行的解决方案：

方案1：用Windows API自动操控文件选择对话框（适合VBA环境） #

你提到调用WD.document.getElementById("fileUpload").Click会弹出系统文件选择窗口，虽然手动操作麻烦，但可以通过Windows API来自动完成这个对话框的输入和确认操作。以下是一个VBA的示例实现思路：

1. 先声明需要用到的Windows API函数：

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Private Const WM_SETTEXT = &HC
Private Const BM_CLICK = &HF5

2. 编写函数来自动处理文件选择对话框：

Sub AutoSelectFileAndUpload()
    Dim fileUploadElem As Object
    Dim dialogHWnd As LongPtr
    Dim editHWnd As LongPtr
    Dim buttonHWnd As LongPtr
    Dim filePath As String
    
    ' 设置你要上传的文件路径
    filePath = "C:\Your\File\Path\example.txt"
    
    ' 触发文件选择对话框
    Set fileUploadElem = WD.document.getElementById("fileUpload")
    fileUploadElem.Click
    
    ' 等待对话框弹出（可以根据实际情况调整等待时间）
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 找到文件选择对话框的句柄
    dialogHWnd = FindWindow("#32770", "打开") ' 中文系统是“打开”，英文系统是“Open”
    
    If dialogHWnd <> 0 Then
        ' 找到输入文件路径的编辑框
        editHWnd = FindWindowEx(dialogHWnd, 0, "Edit", vbNullString)
        ' 设置文件路径到编辑框
        SendMessage editHWnd, WM_SETTEXT, 0, ByVal filePath
        
        ' 找到“打开”按钮并点击
        buttonHWnd = FindWindowEx(dialogHWnd, 0, "Button", "打开") ' 英文系统替换为"Open"
        SendMessage buttonHWnd, BM_CLICK, 0, 0
        
        ' 等待文件加载完成后提交表单
        Application.Wait Now + TimeValue("00:00:01")
        WD.document.getElementById("frmUpload").submit
    End If
End Sub

注意：这个方案依赖Windows系统的窗口标题和控件类名，不同语言的系统可能需要调整对应的窗口文本（比如英文系统的对话框标题是"Open"，按钮文本也是"Open"）。另外，PtrSafe是为了兼容64位Office，如果是32位Office可以去掉PtrSafe，把LongPtr换成Long。

方案2：如果是浏览器脚本环境（比如Tampermonkey） #

如果你是在浏览器的用户脚本里操作，可以使用File API来构造File对象，但这种方式仍然需要用户的交互（比如拖放文件，或者通过<input type="file">选择后获取），无法直接从本地路径创建File对象（同样是安全限制）。不过如果你的场景允许用户先选择文件，或者可以从Blob生成文件，这种方式更灵活，但显然你的场景是VBA控制网页，所以方案1更适合你。

最后再补充一下：你调用WD.document.getElementById("frmUpload").submit时弹出“文件未找到”提示，是因为表单提交时<input type="file">没有选中任何文件，后端或者前端验证会拦截这个请求，所以必须先让元素正确关联到本地文件才能提交成功。

内容的提问来源于stack exchange，提问作者AJR