Question

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

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

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

点击按钮后的行不会执行，直到我不手动干预并将路径输入浏览窗口。

我想粘贴路径名称并按Enter键以便接受路径。

HTML代码如下所示：

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

我的VBA代码在tagx.Click之后停止并等待手动输入：

set ieDoc = ieApp.document
set Tags = ieDoc.getElementsByTagName("input")

For Each tagx in Tags

If tagx.ID = "Browse_ID" Then

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

   'Click on Browse
   tagx.Click

   '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 "~"

 exit For
 End IF
 Next

我尝试过使用Do，但也没有工作：

   '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

请帮助！

Answer 1

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

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

1 个答案: