|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
由于工作需要需要登录下面网址:https://uniportal.huawei.com/uniportal/?redirect=http%3A%2F%2Funiportal.huawei.com%2Fsaaslogin%2Fidp%3Fprovider%3Dnetsuite-transient&lang=en&msg=1&v=v3.33账号:cnwx399535
密码:huawei1##11
登录进入后,进入网页的另外一个网址(登录上面网址才能看到这个网址的数据):https://system.eu2.netsuite.com/app/site/hosting/scriptlet.nl?script=385&deploy=1&internalid=7866775&item_id=10965
复制该网址的所有文本到excel
请问有哪位大神可以帮忙,十分感谢
手动登录该网页后,用navigate打开第二个网址“https://system.eu2.netsuite.com/app/site/hosting/scriptlet.nl?script=385&deploy=1&internalid=7866775&item_id=10965”不能显示数据,估计我navigate填少信息了,打开时候等于没有登录进入那个网址
sub aa()
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://system.eu2.netsuite.com/app/site/hosting/scriptlet.nl?script=385&deploy=1&internalid=7866775&item_id=10965"
end sub
最后如何复制该网页的全部文本,不能用 Application.SendKeys "^a" Application.SendKeys "^c" ,有其他方法吗?因为这个方法出错率很高,很多都复制不了
|
|