Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/html/74.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Html Excel VBA宏在网站上上载文件_Html_Excel_Vba - Fatal编程技术网

Html Excel VBA宏在网站上上载文件

Html Excel VBA宏在网站上上载文件,html,excel,vba,Html,Excel,Vba,我正在尝试通过在线转换器将PDF文件转换为excel。为此,我需要通过浏览器按钮上传文件,因此我创建了一个代码,直到单击按钮,但我无法从对话框中选择文件 请帮我输入下面的代码 Sub autoIE() Dim ie As Object Dim Hdoc As HTMLDocument Worksheets("Sheet6").Activate Range("B1").Copy Set ie = CreateObject("InternetExplorer.Application") ie.na

我正在尝试通过在线转换器将PDF文件转换为excel。为此,我需要通过浏览器按钮上传文件,因此我创建了一个代码,直到单击按钮,但我无法从对话框中选择文件

请帮我输入下面的代码

Sub autoIE()

Dim ie As Object
Dim Hdoc As HTMLDocument
Worksheets("Sheet6").Activate
Range("B1").Copy
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "https://www.pdftoexcelconverter.net/"
ie.Visible = True
While ie.Busy
DoEvents
Wend

Set Hdoc = ie.document
Hdoc.all("Filedata").Click

Hdoc.Value = ("C:\Users\kiranm\Desktop\2019\11.pdf")

End Sub

您需要使用
FindWindow
FinwindowEx
API将文件名放入该对话框,然后您需要
SendMessage
API单击
Open
按钮我7年前就写过一篇关于此的博客。现在它在我的网站上不可用。要查看旧内容,您可能希望看到该示例显示如何在对话框中输入文件另存为名称并单击“保存”按钮。您必须遵循相同的逻辑。@SiddharthRout不幸的是,Microsoft在发布IE11时弄乱了按钮的手柄,因此
FindWindowEX
无法再识别它们。如果您想这样做,您将无法使用
SendKeys
。我不想使用SendKeys,因为它不可靠,您说Microsoft在这方面弄乱了句柄,所以我们是否可能使用不同的浏览器?对于其他浏览器,您必须使用Selenium,因为它们没有COM API。另一种方法是使用Word打开PDF并将所需信息转换为Excel。Word将PDF转换为可编辑文本。