如何使用VBA在“浏览（文件）”对话框中输入数据？

我正在处理网页，并使用VBA单击“浏览”按钮。 功能是上传一个文件。因此，单击“浏览”按钮时，浏览窗口打开，必须输入文件路径名

我正在从Excel工作表复制路径名，并尝试将其粘贴到浏览窗口中

我的问题是无法将文件路径名粘贴到浏览窗口中

在我没有手动干预并将路径输入浏览窗口之前，单击按钮后的行不会执行

我想粘贴路径名并按enter键，以便接受该路径

HTML代码如下所示：

<input type = "file" id="Browse_ID"....>

我尝试使用Do while，但也不起作用：

   'Copy data to be pasted in Browse dialogue box
   ActiveWorkbook.Sheets("Sheet7").Range("D11").Select
   Selection.Copy

   Do while (tagx.Click = True)

   'Paste by sending keys control v
   SendKeys "{^v}"

   'Send Enter key so that the path of the file that is entered is accepted and
    'dialogue box closes
   SendKeys "~"
   Loop

---

请帮忙

尝试直接在Excel中使用WebBrowser对象…然后使用navigate属性..

能否显示链接？该网站仅限于我公司的员工使用：（我只是在检查是否有类似性质的网站。找到了一个。不确定它是做什么的。使用它时要小心：“。您可以使用任何具有文件上载选项且其HTML代码与我提到的类似的网站。

找不到您要查找的页面

如果我没有错，那么在这种情况下，您将不得不使用API。请看，您必须使用类似的逻辑。这并不能回答问题：）我不确定如何做到这一点。你能详细说明一下吗。我不知道如何获得浏览窗口的对象，当我点击浏览文件按钮时，该窗口会弹出。呵呵，有时候教鱼比给鱼好…：）转到开发者菜单-插入-更多对象-选择Microsoft WebBrowser如果你的帖子是正确的，我会第一个投票：）这不能回答问题的两个原因

1

您建议用户使用“.Navigate”，而不是用户要求的。问题是OP无法在浏览窗口中粘贴文件名<代码>2当您使用网络浏览器时&窗口打开，它会以模式打开。这意味着在您处理掉窗口之前不会运行任何代码，这同样是无用的，因此创建IE实例并使用API写入窗口是非常重要的。请参阅OP的Qtn下面的链接

   'Copy data to be pasted in Browse dialogue box
   ActiveWorkbook.Sheets("Sheet7").Range("D11").Select
   Selection.Copy

   Do while (tagx.Click = True)

   'Paste by sending keys control v
   SendKeys "{^v}"

   'Send Enter key so that the path of the file that is entered is accepted and
    'dialogue box closes
   SendKeys "~"
   Loop