Excel VBA質問箱 IV

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

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


8186 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【34729】IEで現在開いているURLを取得
質問  初心者  - 06/2/10(金) 16:40 -

引用なし
パスワード
   さきほどKeinさんに教えていただいたものです。

IEに入力するというのは、ユーザーIDとパスワードを入力したかったので、Keinさんの方法でログインできました。

ログインしたページのURLを取得することはできるでしょうか?
ある一定のところまでは毎回同じURLなのですが、ログインするたびに少しURLが変わります。規則性は見つけられません。

【34734】Re:IEで現在開いているURLを取得
発言  ぱっせんじゃー  - 06/2/10(金) 20:05 -

引用なし
パスワード
   こういう感じでしょうか。
※余計なものもつけてます。

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

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

引用なし
パスワード
   ▼初心者 さん:
>さきほどKeinさんに教えていただいたものです。
>
>IEに入力するというのは、ユーザーIDとパスワードを入力したかったので、Keinさんの方法でログインできました。
>
>ログインしたページのURLを取得することはできるでしょうか?
>ある一定のところまでは毎回同じURLなのですが、ログインするたびに少しURLが変わります。規則性は見つけられません。

いろいろ自分で検索したら分かりました。
LocationURLで取得できました。

【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

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

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