|
ご返信ありがとうございました。
以下のサンプルマクロから
"XXXXX" Then 'ここが重要「XXXXX」を変更という部分にURLを入れて変更してみました。ここにはURLを入れてよかったでしょうか?
結果は"JRAホ−ムページが開いていません"というメッセージが出ました。
やはり手作業で「Ctrl」+「A」+「C」で手作業で文字全体をコピーするというアナログのような方法でないと、アクティブなページは取り込めないのでしょうか・・・。
セキュルティーの問題で最終ページが取り込めないのでしょうか。
>
>Sub Sample()
> Dim MyShell As Object, MyWindow As Object, IE As Object
>
> Set MyShell = CreateObject("Shell.Application")
> For Each MyWindow In MyShell.Windows
> If TypeName(MyWindow.document) = "HTMLDocument" Then
> If MyWindow.document.Title = "XXXXX" Then 'ここが重要「XXXXX」を変更る
> MsgBox "JRAホ−ムページが開いていません"
|
|