タイトル | : WinInetによるログイン |
記事No | : 15920 |
投稿日 | : 2014/07/04(Fri) 13:14 |
投稿者 | : K34 |
VBA API 初心者です。 現在、下記の要領でExcelアドインを作成しています。 @URLを指定して業務システムへ自動でログイン AURLを指定してエクセルファイルをダウンロード Bその後ファイルを任意の場所に解凍。
とあるサイトを見て、以下のコードを書きましたが 恐らくログインができていないのか、ZIPファイルは取得されますが、 中身のエクセルファイルは数字が入っていない状態です。 ※レイアウトと数式も表示されます。
'WinInetを初期化 hOpen = InternetOpen("Excel VBA", _ INTERNET_OPEN_TYPE_DIRECT, _ vbNullString, vbNullString, 0)
'URLを開く hConnect = InternetOpenUrl(hOpen, _ url, _ vbNullString, 0, _ INTERNET_FLAG_RELOAD, 0)
VBA初心者であるため、ほとんどWEBからコピーしてきたものですが、HTTP_Postを行った 場合は正常にログインできています。しかし、その後のWininetを利用したURL関連の操作に ログイン情報が引き継がれていないためログインされていないものとして処理されていると 思われます。このログインをWininetを利用したものに変更するか、もしくは他の方法で 先述の処理ができればと考えています。 ※コードを提供していただければ、後はこちらで解析して見ます。
非常に困っておりますので、どなたかのアドバイスをいただきたくお願いいたします。
|