Excel VBA質問箱 IV

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

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


39999 / 76732 ←次へ | 前へ→

【41837】Re:会員制サイトのダウンロードができないの...
発言  Kein  - 06/8/23(水) 22:20 -

引用なし
パスワード
   >手動でその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

などとテキストファイルに落として保存すれば良いかと思います。
0 hits

【41830】会員制サイトのダウンロードができないの... koma 06/8/23(水) 20:33 質問
【41831】Re:会員制サイトのダウンロードができない... マクロマン 06/8/23(水) 20:40 発言
【41832】Re:会員制サイトのダウンロードができない... かみちゃん 06/8/23(水) 20:42 発言
【41837】Re:会員制サイトのダウンロードができない... Kein 06/8/23(水) 22:20 発言
【41861】Re:会員制サイトのダウンロードができない... koma 06/8/24(木) 15:52 発言
【41867】Re:会員制サイトのダウンロードができない... koma 06/8/24(木) 17:34 発言

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