本文档描述了使用VBA通过Internet Explorer执行网页JavaScript查询，并处理文件下载的过程。作者遇到的问题包括：在有其他网页打开时IE无法弹出下载窗口，`FindWindow`返回0；`Workbooks.Open`时出现文件找不到的错误，以及`SendKeys`的不稳定。作者尝试了延迟、`SendKeys`模拟保存操作和关闭IE，发现某些情况下能正常工作，但寻找更稳定的方法，如API或模拟鼠标点击。
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
跪求各位大神，最近因为VBA调用IE的问题弄得焦头烂额，深夜3点还是睡不着，小弟VBA小白一枚，在大量百度各种求救无奈之下发此贴，肯请各位老师帮忙看看下面代码的问题，万分感激，谢谢大家了。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub 测试()
Application.DisplayAlerts = False
Set Wshshell = CreateObject("wscript.shell")
Wshshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1803", 0, "REG_DWORD" '注册表修改文件下载启用
Wshshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\2200", 0, "REG_DWORD" '注册表修改字体下载启用
book = "C:\Documents and Settings\001321\My Document
最低0.47元/天 解锁文章
扫一扫
3023
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
