excel自动获取网页共享链接

如鱼得水2015

在百度网页里输入文本再搜索代码如下：
Private Sub Workbook_Open()
     Dim ie As Object
     Set ie = CreateObject("InternetExplorer.Application")
     ie.Visible = True
     
     ie.navigate "www.baidu.com"
     
     While ie.readyState <> 4 Or ie.Busy = True
         DoEvents
     Wend
     ie.document.getElementById("kw").Value = "hellow world"
     ie.document.getElementById("su").Click
End Sub

网站：https://www.kdocs.cn（先注册，创建文件）



这个没有ID，怎么在这个文本框内填入数据？实现功能：

在搜索框搜索相应的文件名称

显示相应的文件，点击右边的"..."

点击“分享”

点击“创建并分享”

选择“永久有效”，自动获取对应文件链接于excel表

大神们帮棒忙啊（第一步指定搜索都没有解决）～~~~~

zpy2

如果是百度的云盘，有api 可以获取。

如鱼得水2015

有没有办法实现第一步，搜索框没有id的如何通过vba填写值呢

如鱼得水2015

自己定，不要沉了，

1588078/37

如鱼得水2015 发表于 2020-7-20 13:31
自己定，不要沉了，

有解决了吗，

Electree

ie.document.all(1406).value=""
可以给这个输入框赋值，但是你接下来会遇到和我一样的问题，因为没有触发input框的change事件，导致你赋的这个value只存在于浏览器前端