|
>手動でそのURLをIEに入れてやるとログインするために開いたIE→正しく表示できる
>新規に開いたIE→そのURLを入れても、ログインが認識されていないのかアクセス不可
つまり、ログインするためのIDなりパスワードを入力する "窓" があるサイトは
マクロで開くことができる。しかしログイン後のURLを、直接 IE の Navigate に
渡しても、セキュリティでブロックされてしまう。
ということでしょーか ? それなら窓があるサイトを開いて、IEメニューの
「表示」「ソース」を選択して
input type="text" name="×××" value="○○○"
などのタグを探してみて下さい。
それが入力用の窓であれば、IEのインスタンスに対して例えば
With IE
'ここへ窓のあるサイトを開くコードを書く
With .Document
.All("×××").Value = パスワード等の文字列
.Forms(0).Submit
End With
Do While .Busy: Loop
Do Until .ReadyState = 4: Loop
End With
などとして、ログインした先のサイトに入れるはずです。
それから・・
>マクロでIEを新規に開いて、そこにリンク先を入れてやって閲覧する
が出来るなら、SendKeys "^(a)", True で全文を選択状態にし、
Application.Wait Time + TimeValue("00:00:01") とインターバル
を入れてから SendKeys "^(c)", True でコピー。これでクリップ
ボードに全文の文字列が入りますから、あとは DataObject なんかを使って
Dim MyData As DataObject
Dim GetSt As String, MyF As String
Set MyData = New DataObject
MyData.GetFromClipboard
GetSt = MyData.GetText(1)
With Application
.CutCopyMode = False
MyF = .DefaultFilePath & "\MyPDF.txt"
End With
Open MyF For Output Access Write As #1
Print #1, GetSt
Close #1
Set MyData = Nothing
などとテキストファイルに落として保存すれば良いかと思います。
|
|