Html Excel VBA宏在网站上上载文件
我正在尝试通过在线转换器将PDF文件转换为excel。为此,我需要通过浏览器按钮上传文件,因此我创建了一个代码,直到单击按钮,但我无法从对话框中选择文件 请帮我输入下面的代码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
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转换为可编辑文本。