|
▼Kein さん:
>「IEを開いてないなら開いて変数に入れる、既に開かれているならそれを変数に入れる」
>という処理なら・・
>
>Dim MyShell As Object, MyWindow As Object, objIE As Object
>
>Set MyShell= CreateObject("Shell.Application")
>For Each MyWindow In MyShell.Windows
> If TypeName(MyWindow.document) = "HTMLDocument" Then
> Set objIE = MyWindow: Exit For
> End If
>Next
>If objIE = Nothing Then
> Set objIE = CreateObject("InternetExplorer.Application")
>End If
>Set MyShell = Nothing
>
>というようなコードなります。
早速のRES本当にありがとうございます。
これからずっとEXCEL勉強しようと思っていますので
またお願いするやもしれません。
よろしくお願いします。(__)
|
|