Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46968 / 76737 ←次へ | 前へ→

【34736】Re:IEで現在開いているURLを取得
お礼  初心者  - 06/2/10(金) 20:16 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>こういう感じでしょうか。
>※余計なものもつけてます。
>
>Sub WEB()
> Dim MyShell As Object, MyWindow As Object
>   On Error Resume Next
>     Set MyShell = CreateObject("Shell.Application")
>   For Each MyWindow In MyShell.Windows
>   If TypeName(MyWindow.Document) = "HTMLDocument" Then
>     MsgBox MyWindow.LocationURL & vbCrLf & MyWindow.Document.Title
>     Exit For
>   End If
>   Next
>End Sub

パッセンジャーさんありがとうございました。
0 hits

【34729】IEで現在開いているURLを取得 初心者 06/2/10(金) 16:40 質問
【34734】Re:IEで現在開いているURLを取得 ぱっせんじゃー 06/2/10(金) 20:05 発言
【34736】Re:IEで現在開いているURLを取得 初心者 06/2/10(金) 20:16 お礼
【34735】Re:IEで現在開いているURLを取得 初心者 06/2/10(金) 20:15 お礼

46968 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free