[[20070425105449]]　『開いているWEBページのURL、タイトルを取得したい』（カービー）　ページの最後に飛ぶ

『開いているWEBページのURL、タイトルを取得したいです。』（カービー）

IEで開いているサイトのURLとページタイトルを、エクセルのsheet1のセルA1、B1に各々表示させたいのですが、どのような方法がありますか？

よろしくおねがいします。

 自動取得等は私には無理なので…(^_^;)
 WEBページを右クリック→プロパティ→必要範囲を選択→コピーペースト

 (Ohagi)

Ohagiさん

やはり、自動取得は難しいんですね…。
ありがとうございました。

 参考です。

 Dim mywindow As Object
 Dim w As Object
  Set mywindow = CreateObject("Shell.Application")
  For Each w In mywindow.Windows
   If UCase(Right(w.FullName, 12)) = "IEXPLORE.EXE" Then
      MsgBox w.document.Title & vbCrLf & w.LocationURL
   End If
  Next
 (MARBIN)

コメント返信：

[ 一覧(最新更新順) ]

[[20070425105449]] 『開いているWEBページのURL、タイトルを取得したい』（カービー） ページの最後に飛ぶ

[[20070425105449]]　『開いているWEBページのURL、タイトルを取得したい』（カービー）　ページの最後に飛ぶ