No.2ベストアンサー
- 回答日時:
ログインは出来ている、ということですね?
私が書いたコードで説明すると
変数lctURLにログインしたページのURLを取得しています。
そこで、QueryTables.AddメソッドのConnectionを
Connection:="URL;" & lctURL
とすればどうでしょうか。
この回答への補足
回答ありがとうございます
教えていただいた通りやってみたところ、エクセルには
Yahoo! JAPAN
Yahoo! JAPAN - ヘルプ
重要なお知らせ
さらに使いやすく便利になった「ログインアラート」があなたのYahoo! JAPAN IDを守ります!いつでもどこでも不正ログインを検知できるようにケータイのメールアドレスを設定しよう!
続けるにはパスワードを
再入力してください。
パスワードの再確認
フィッシングの危険を回避フィッシングの危険を回避
ログインシールを設定しましょう。
ログインシールとは?
パスワード再確認フォーム
Yahoo! JAPAN ID:
~~~~~~~'ID
パスワード:
SSLで保護されています
別のYahoo! JAPAN IDでログイン
Yahoo! JAPAN IDガイドYahoo! JAPAN IDガイド
パスワードの再確認について
ログインできない
パスワードの再確認とは?
セキュリティー保持のため、定期的にパスワードの再確認を行っています。
詳しくはこちらをご覧ください。
表示されているYahoo! JAPAN IDは正しいですか?
~~~~~~~さんではない場合は、正しいIDでログインしなおしてください。
別のYahoo! JAPAN IDでログイン
プライバシーの考え方 - 利用規約 - ガイドライン - ご質問・お問い合わせ
Copyright (C) 2010 Yahoo Japan Corporation. All Rights Reserved.
見にくくてすみません
上記のように表示され 外部データの更新 を押しても変化ありませんでした
パスワード: 下の SSLで保護されています がわからないのですが
もしかしてセキュリティー上、設定できないと言うことなのでしょうか
すみません!出来ていました!
ありがとうございます!
大変助かりました
教えていただいたものをもとにもう少し勉強したいと思います
ありがとうございました
No.3
- 回答日時:
----------------------------------------
この前も出ていましたね。回答を書きかけて、しょせん、回答内容が、クレームをつけるようなスタイルになってしまうので、やめてしまいました。VBAの相当の実力がないとできないと思いますが、単刀直入にいうと、Web クリエにいれるなど、無理だと思ったほうがよいです。Web クエリは、一定のオープンURLの表形式になっているものを取得するものです。
それと、VBAで、Webメールを受信するのに、ログインして、そこを取ることは、ありえないとは言わないけれども、Webメールの一覧までは取り出せても、その先が簡単にできないはずです。
どうやら、VB6と書いていたので、別の方法があると思いましたが、VBAのようなのですが、プログラミングをするなら、MAPIで取るか、Basp21を使えばよいのではないでしょうか?それをExcelに出すなら、そちらに出せばよいと思います。セキュリティが気になるなら、MAPIの方がよいと思いますが、Basp21のほうが、取り扱い易いです。しかし、それと当時に、JIS以外のDecode やHTMLメールのことも考えなくてはなりません。
回答ありがとうございます
実際にやりたいことはyahooメールではなく他のことなんです
具体的な例えを用いたほうが説明をしやすいと思い今回はyahooメールを上げさせていただきました
例えクレームのような形でも新たな閃きに繋がることもございますので目に止まった時に一言いただきたかったです
今回は xls88さん のおかげで解決を見ることができました
まだまだ初心者ですので新たに質問させていただくこともあるかとは思いますが、再度目にした際は厳しい意見でも、クレームでも結構です。お時間が許すようでしたらご回答ください。よろしくお願いします
No.1
- 回答日時:
どこまでできているのですか?
とりあえず。ログインは下記でどうでしょうか。
Dim myIE As Object
Dim myURL As String
Dim lctURL As String
Dim myTime As Variant
myURL = "https://login.yahoo.co.jp/config/login_verify2?. …
Set myIE = CreateObject("InternetExplorer.application")
myIE.Visible = True
myIE.Navigate2 myURL
Do While myIE.Busy = True And myIE.ReadyState <> 4
DoEvents
Loop
With myIE
'//ID、パスワード
.Document.all.tags("input").Item(23).Value = "xls88"
.Document.all.tags("input").Item(24).Value = "********"
'//ログイン
.Document.all.tags("input").Item(26).Click
End With
Do While myIE.Busy = True And myIE.ReadyState <> 4
DoEvents
Loop
lctURL = myIE.LocationURL 'Webクエリに登録するURL
'Webクエリ
Set myIE = Nothing
この回答への補足
回答ありがとうございます
CreateObject("InternetExplorer.Application")をつかい、Navigate にて ID と pass を入力しログインするところまではたどり着いたのですが、そのログインしたページをwebクエリに登録する方法がわかりませんでした
webクエリは マクロの記録 を使い取得したものを参考に
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://login.yahoo.co.jp/config/login?.src=www& … _
, Destination:=Range("A1"))
.Name = "www.yahoo.co.jp"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
"URL;https://login.yahoo.co.jp/config/login?.src=www& … の部分をいじるなどして思考錯誤したのですが、どうしてもログイン前のページが表示されてしまい完成には至りませんでした
説明不足ですみません
CreateObject("InternetExplorer.Application")をつかいログインしたページを webクエリ に登録する方法をよろしくお願いします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(gooサービス) dアカウントを登録できません 1 2023/03/03 23:35
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Gmail 10年以上使ってるGoogleアカウント (gmail、YouTube)に、久しぶりにパソコンからロ 3 2022/07/03 03:43
- Yahoo!メール Yahooアカウントにログインできなくなって困っています。 2 2023/05/16 02:28
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- 所得税 電子税?のメールについて教えてください 8 2022/09/04 21:38
- Android(アンドロイド) スマホでの認証コード入力について 10 2023/03/25 11:21
- Java JavaでWebページ作成 7 2023/07/21 21:09
- Outlook(アウトルック) OCN WEBメールについて 1 2022/05/18 23:33
- サーバー メールサーバーについて詳しい方、メールサーバーの管理業務経験のある方、教えてください。 3 2022/11/12 18:24
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
ログイン画面後のページの表取り込みWebクエリ実行について
Access(アクセス)
-
Excel Webクエリ
Excel(エクセル)
-
WEBクエリが使えない場合のHPデータの取り込み方
Access(アクセス)
-
-
4
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
5
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
6
イントラネット上のデータをエクセルに取り込むには?
その他(Microsoft Office)
-
7
EXCELのwebクエリが反映されない。
Excel(エクセル)
-
8
VBAでHTTPログイン
Visual Basic(VBA)
-
9
EXCELの外部データ取得ができない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
一度聞いたかも知れないのをっ...
-
送信エラーの際、CCには届い...
-
URLをコピーしてメールにリ...
-
失礼な文とは分からず、先生に...
-
通帳口座番号 メールで送っても...
-
"***@***.ocn.ne.jp"の"@***"は...
-
Beckyでのメーリングリスト
-
Winmail.dat ファイルが開けない
-
株式会社NSCと言う所から、現金...
-
メール送信すると以下のような...
-
iphoneからメールで写真を送付...
-
送信しても『Mail System Error...
-
windowsメールとOutlookメール...
-
一つのメールアドレスで色んな...
-
メールの一斉送信で非対象者に...
-
エクセルを更新したらメールが...
-
空メールって何も書かなくてい...
-
メールの書き方 保護者から先生へ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
受信メールの添付ファイル忘れ...
-
お祝い金を徴収するメールの書き方
-
失礼な文とは分からず、先生に...
-
windowsメールとOutlookメール...
-
送信エラーの際、CCには届い...
-
URLをコピーしてメールにリ...
-
Winmail.dat ファイルが開けない
-
"***@***.ocn.ne.jp"の"@***"は...
-
メール送信すると以下のような...
-
株式会社NSCと言う所から、現金...
-
一度聞いたかも知れないのをっ...
-
通帳口座番号 メールで送っても...
-
iphoneからメールで写真を送付...
-
訳せる方お願いします!!
-
送信しても『Mail System Error...
-
メールの書き方 保護者から先生へ
-
OUTLOOK2016(「メッセージが変...
-
相手にメールを送信したら、 Ea...
-
既婚者の異性とメールするのは...
-
詐欺メールでしょうか?
おすすめ情報