Set objShell = CreateObject("Shell.Application")
For n = 1 To objShell.Windows.count
Set objie = objShell.Windows(n)
If Right(UCase(objie.FullName), 12) = "IEXPLORE.EXE" Then
If (0 < InStr(objie.LocationURL, "要访问的地址(
http://localhost:8080/test/login.jsp
)")) Then
'objie 就是要访问的ie对象
end if
end if
next n
'打开页面
'方法一
objie.navigate(ipAddress, 1, "ExcelSubmitWin")
'方法二 非active打开
objie.navigate2（ipAddress, &H1000, "ExcelSubmitWin"）
'设置页面项目的值 （页面的boolean类型可以直接赋值TRUE）
objie.Document.GetElementById("userID").Value = "root"
'多条数据设置
web页面List项目
<ui:repeat id="recordList" value="#{testDto.records}" var="rcd">
<h:inputHidden id="recordData" value="#{rcd.content}" />
</ui:repeat>
vba访问web页面List项目
For i = 0 To count
dataID = "sendForm:recordList:" & i "recordData"
objie.Document.GetElementById(dataID).Value = “strContent”
next
如果strContent又是List类型，将strContent中数据用特殊符号隔开拼接成字符串，然后java侧再解析
'触发页面按钮
objie.Document.GetElementById("buttonID").Click
'等待请求终了
Do While objie.Busy
DoEvents
Loop
'等待画面刷新完了
Do While objie.Document.readystate <> "complete"
DoEvents
Loop
shell32可以方便的获取文件信息《用于脚本和 Microsoft Visual Basic的 Shell 对象》
目录获取单个文件的所有信息获取音频、视频文件时长按视频时长移动至文件夹
获取单个文件的所有信息
Sub 获取文件信息()
'MsgBox弹出单个文件的所有信息，《注意文件名不能有空格》
filename = "D:\media\movie\飞驰人生.mp4"
Dim fso As Object, shl As Object, shfd As Object, f As
工作里面需要处理上百个Word文档，所以就开始在网上查找宏相关的代码
由于第一次接触宏相关的代码，所以写得肯定不会很好。不过，最后勉强算是解决了问题，为了以后方便查找，就把代码贴上来。
开启、编写宏
勾选上图中的开发工具，就可以显示宏相关的菜单栏了
点击红框内按钮，就可以开始编写和运行宏了
Sub 批量
操作
WORD()
Application.ScreenUpdating = False '冻结屏幕，打开各个文件及关闭
Sub SetClipboardText(Text)
Set objIE = CreateObject(“
Internet
Explorer
.Application”)
objIE.Navigate(“about:blank”)
objIE.Document.ParentWindow.ClipboardData.SetData “text...
（2）组合键win+r，cmd
操作
，输入ipconfig，查找自己电脑的IP
（3）打开手机设置，找到手机端无线网络，进行手动代理设置，填入自己电脑IP，以及fiddler端口号
（4）fiddler中点击AutoResponder工具，进行如下
操作
如：第一个输入框输入“taobao”
（5）如图第四步选择红框选项（之所以选择这个选项，是因为这个选项可以
一个小马龙:
linux ssh授权 无密码登录
Tisfy:
