| |
▼さち さん：
> □google(http://www.google.com)を開いているブラウザがあったら
> →そのブラウザを最前列に表示
> □なかったら
> →google(http://www.google.com)を開く
立ち上げているかどうかは、Shell.ApplicationオブジェクトのWindowsプロパティで確認できます。
Option Explicit
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Sub test()
IEWindow "http://www.google.co.jp/"
End Sub
Private Sub IEWindow(ByVal url As String)
Dim objWindow As Object
' エクスプローラウィンドウを列挙
For Each objWindow In CreateObject("Shell.Application").Windows
' 可視か
If objWindow.Visible Then
' 対象がInternet Explorerであるか
If TypeName(objWindow.Document) = "HTMLDocument" Then
' 開いているアドレスを確認
If objWindow.Document.Location = url Then
' アクティブに
SetForegroundWindow objWindow.hWnd
Exit Sub
End If
End If
End If
Next
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate url
Do While .Busy
DoEvents
Loop
'' アクティブに
'SetForegroundWindow .hWnd
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
