Excel VBA切换识别IE窗口

摘要： Dim objShell As Object Dim objIE As Object Dim n As Integer Set objShell = CreateObject("Shell.Application") For n = objShell.Windows.Count To 1 Step -1 Set objIE = objShell.Windows(n - 1) If objIE Is Nothing Then Exit F...

Dim objShell As Object
Dim objIE As Object
Dim n As Integer
Set objShell = CreateObject("Shell.Application")
For n = objShell.Windows.Count To 1 Step -1
Set objIE = objShell.Windows(n - 1)
If objIE Is Nothing Then
Exit For
End If
If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then
Debug.Print objIE.document.URL
If objIE.document.URL = http://www.office26.com Then
End If
End If

Excel VBA切换识别IE窗口的下载地址：

本地下载

Excel HyperLink函数 发送邮件、打开本文件目录、链接指定位置

链接本工作表某位置（F4切换绝对引用$）：=HYPERLINK([SUBSTITUTE(CELL(filename,$A$1),[,)!CELL(address,$A$1),$A$1)链接当前工作簿另一工作表某位置=HYPERLINK([SUBSTITUTE(SUBSTITUTE(LEFT(CELL(filename),FIND([,