ベストアンサー vbaでIEの名前を付けて保存(A)をしたい 2014/10/23 08:35 VBA で IEの通知バー を操作したいです。 SendKeys で 通知バーの 保存(S) はできたのですが、 保存(s)の右隣の ▼ をクリックするとでてくる、 名前を付けて保存(A) の方法がわかりません。 どのようなキーをおくればよいのでしょうか。 他の質問をみると、SendKeysではなく ○○がよいですよ みたいな内容しか見つからず、 回答をみつけることができなくて困っておりますのでよろしくお願いいたします。 画像を拡大する みんなの回答 (1) 専門家の回答 質問者が選んだベストアンサー ベストアンサー kumatti1 ベストアンサー率60% (73/121) 2014/10/24 08:16 回答No.1 VBAでインターネット上のファイルをダウンロードする方法をまとめてみました。 | 初心者備忘録 http://www.ka-net.org/blog/?p=4855 とか。 質問者 お礼 2014/10/25 01:00 詳しいサイトを教えていただきありがとうございました。うれしいです。 通報する ありがとう 0 カテゴリ [技術者向] コンピュータープログラミング・開発Microsoft ASP 関連するQ&A IE11だと「名前をつけて保存」はできない? 今までIEは9を使用していました。 今までは不自由なく自由に?画像などをクリックし、大きくさせてから右クリックをし、「名前をつけて保存」ができていました。 しかしIE11にした今「名前をつけて保存」ができなくなるものが多い気がします。 特に・・・まず画像があるとします、そのままだと小さいのでクリックして画像を大きくします。 それを名前をつけて保存したいのですが、右クリックしても「名前をつけて保存」の項目がなく保存できません。 元の画像をアップさせることなくそのままだったら「名前をつけて保存」があり保存することができるのですが画像は小さいです。大きくさせて保存したいのですが大きくすると「名前をつけて保存」がなくなるし・・・。 名前をつけて保存するにはどうしたらよいのでしょうか? それかIE11だとできなくなってしまったのでしょうか? IE11使用です。 Excelメニューからの保存時VBA起動方法? Excelメニューからの保存時VBA起動方法? Excelのメニューバーに「上書き保存(S)」、「名前をつけて保存(A)」があります。 これをクリックされたとき自分で作成したVBAを呼び出したいのですがどうしたらよいでしょうか? Excelのバージョンは2003までと2007以降どちらも対応したいのです。 AccessVBAでIEを操作、ページ内のリンク先を"対象をファイルに保存(&A)..."する お世話になります。 インターネットエクスプローラを人が操作して、例えば、OKWaveのトップページのロゴを ダウンロードする場合には、 ロゴを右クリックしてメニューを出し、 "対象をファイルに保存(&A)..."を選択・実行、 「ファイルのダウンロード」、「名前を付けて保存」のダイアログが出て、 所望のフォルダ(C:\temp\)、所望のファイル名(logo.gif)を設定して保存 の手順でダウンロードすることができます。 VBAでの処理では、URLDownloadToFile等で、urlを指定してダウンロードができますが、 人が操作した場合と同様に、「ファイルのダウンロード」等のダイアログを表示して処理する、 というのは可能でしょうか? 1.ページを表示(.navigate) 2.対象のリンクをフォーカス(.focus) 3.右クリックメニューの"対象をファイルに保存(&A)..."を実行 3.については、sendkeys"+{F10}"とsendkeys"a"可能ですが、これは避けたいです。 右クリックメニューのコマンドの実行に関して、invokeverbでプレビューなどができるので、 同様に、ページ内のリンクにフォーカスして右クリックのメニューのコマンドを実行する方法がないかと探しています。 ご存知の方がおられましたら、ご教示の程、よろしくお願いいたします。 IEの「名前をつけて保存」で 「名前をつけて保存」をしようとすると、以前4つあった選択肢が「HTML」と「テキスト」の2つしかなくなってしまいました。 IEの修復や上書きインストールも試しましたが全く変わりません。 スキャンディスクでもエラーはないし、どうしたらいいかわかりません。 IEのファイルや編集のあるバーがたまになくなったりするので、たぶんIEに原因があると思うのですが・・・ OS:win98SE IE:5.5SP2 です。 よろしくお願いします。 VBAでIEのメニューバーを使用・操作したい。 VBAでIEのメニューバーを使用・操作したい。 お世話になります。 現在VBAでIEを起動・操作しようとしています。 そこで下記を教えて頂きたいのです。 IEのメニューバーにある (1)編集→全て選択 (2)編集→コピー を実行したいのですが、 VBAからどのように入力すれば、(1)、(2)ができるのでしょうか? 以上お手数ですがよろしくお願いします。 IE右クリックメニューの画像を保存について。 最近キーボードでIEを操作しようとしてるのですがTABキーで画像を選び, その画像を保存したいのにアプリケーションキーを押して右クリックメニュー を表示させてもそれらしいメニューは出ますがマウス右クリックで出す時にある はずの名前を付けて画像を保存がありません。 何かしら表示させる方法があれば教えて下さいませ。 VBAについて VBA初心者です。 ダブルクリックをしたセルの、右隣セル3つに入っている値を、A1・B1・C1に反映させるVBAを教えて下さい。 例/F1でダブルクリックをしたら、G1とH1とI1の値をA1とB1とC1に反映させる。 ※ダブルクリックをするセルF列のどれかで、反映させる先のセルはA1とB1とC1です。 初心者の為、質問内容が分かりにくいかもしれませんが、ご回答頂けると幸いです。 IE7 「名前を付けて保存」でフォルダはどこにあるのでしょうか? IE7に変更しました後、メニューから「ファイル>>名前を付けて保存」で表示されている サイトをPC内に保存しますと、IE6まではフォルダーも一緒に表れ(DL)されていましたが、 IE7では、フォルダーがありません。写真、イラストなどはサイト通りオフラインで保存した サイトをクリック>>表示されますので、どこかにフォルダーが保存されていると思うのですが、 どこにフォルダーが保存されているのでしょうか? よろしくお願いします。 エクセルVBAで 名前を付けて保存の方法、もしくは・・・ エクセルVBAで名前を付けて保存は、 SaveAsを使って・・・というのは、解っているのですが、 これだと指定した名前しか、保存できないですよね;; 自分的には、エクセルの名前を付けて保存を押すと出てくる、画面を出したいのです。 それか、とあるセルに入っている数字を利用して保存の名前にしたいのですが、どなたかわかる方宜しくお願いいたします。 (本当は下のほうのやり方が良いんですけどね;;) ActiveWorkbook.SaveAs FileName:= ("A1")"月分" 見たいな感じで VBAを打てたら良いのにな・・・と思っています;; 宜しくお願いいたします。 WEBページからのメッセージをVBAで いつもお世話になっております。 エクセルVBAでIE制御についてです。 環境はWIN7、IE 9or11とエクセル2010です。 あるページのリンクをクリックすると、 WEBからのメッセージというダイアログボックスが出てきて、 続行しますか? はい いいえ を聞かれます。 その「はい」をVBAで押したいのですが、 sendkeysメソッドで押そうとしてもうまくいきません。 以下に記載したサイトのOKボタンを押すと出てくるものです。 http://kamicha1.web.fc2.com/Excel/Test20090726.html 以下が書いたコードです。 Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long) Sub test() Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "http://kamicha1.web.fc2.com/Excel/Test20090726.html" Do While ie.Busy Or ie.readyState < 4 DoEvents Loop ie.document.getElementsByClassName("bt2")(0).Click '-ここで止まる Sleep 2000 SendKeys "{Enter}" End Sub ステップ実行していくと、ここで止まると書いた所で、 IE上にダイアログは表示されるのですが、 それ以上ステップ実行ができなくなってしまいます。 ダイアログを自分でOKかキャンセルで消すと続きが動くようになります。 その間はVBEはビジー状態となり操作できません。 そのためそれ以降のsendkeysメソッドに たどり着けない状況かと思われます。 いろいろ調べたところIE8以降はダイアログボックスは IEから出ているのではなくOS?から出ているとの事でした。 上記のサイトはHTML本体にjavaスクリプトが記載されており、 それをVBAから操作すればどうにかOKボタンが押せるらしいのですが、 自分が操作したいページにはそれらしき記載がありませんでした。 対象のアンカータグは <a herl=URL 中略 data-comfirm=続行しますか? > のような感じで記載がありました。 完全に煮詰まっております。 自動でOKをクリックするかEnterキーでOKを押すでも構いません。 どうかご教授お願いいたします。 エクセルVBA IEの操作 こんにちは、 エクセルVBAでIEの操作の質問です。 IEで特定の文字列をクリックするマクロはどのような記述になりますでしょうか? たとえば OKWEBのランキングをクリックする場合はどのようになりますか? http://okwave.jp/mypage から 右上 ランキング という文字をクリックする場合です。 実際にやりたいことは、電子取引ホームページの (PHPで作成されているのかな? 動的なホームページです。)請求書番号を検索してそれを クリックして画面を保存という作業です。イントラなんで ここではURLを公表することが できないため、 OKWEBを一例とさせていただきました。 会社のパソコンでやりたいので UWSC等のフリーソフトも簡単に導入できないし、エクセルならVBA利用は制限されてないので VBAでやろうと考えてます。 Excel 名前を付けて保存のVBA 名前を付けて保存画面を表示して、自分でファイル名を入力して保存をしたいのですが、 以下で名前を付けて保存画面は表示されますが、 実際に保存をクリックしてもファイルが作成されませんでした。 保存されるVBAを教えてください。 Sub test() Save_Filename = "c:\" Save_File = Application.GetSaveAsFilename(Save_Filename, _ FileFilter:="Excelファイル,*.xls") End Sub VBAを使って名前をつけて保存をしたい 例えばデーター管理ファイルAというファイルの中にある 顧客データという名前のエクセルブックを開いて上書き保存をして、 データー管理ファイルBというファイルの中に顧客データ【1016】(1) という名前で(1016とは本日の日付を表しています)保存するとします。 この段階で、ファイルBの中に顧客データ【1016】(1)が入ってる事になりますが、再度本日二回目にAファイルの中にある顧客データをBファイルの中へ保存する場合顧客データ【1016】(2)という名称で保存して さらに本日三回目に同じように保存する場合は【1016】(3)というようにしたいのですが(もし明日保存する場合は、一回目は顧客データ【1017】(1)、二回目は【1017】(2)というように日付が変わると(1)から始めるようにしたいのですが)、VBAでどの様にしたらいいでしょうか? VBAでIE操作 三流君を見てもよくわからなかったので教えてください。 三菱東京UFJ銀行に自動でログインできるようにエクセルVBAで操作していますが パスワードを入れた後のログインがうまく出来ません。 objIE.document.Forms(0).submit だと、サイトが更新されてしまいます。 ソースは <td class="buttons"> <a href="javascript:void(0)" onClick="gotoPageFromAA011(); return false;" tabindex="3"><img src="https://directg.s.bk.mufg.jp/refresh/imgs/DIRECT_IMAGE/LOGINOUT/btn_login.gif" alt="ログイン" onmouseover="this.src='https://directg.s.bk.mufg.jp/refresh/imgs/DIRECT_IMAGE/LOGINOUT/btn_login_over.gif'" onmouseout="this.src='https://directg.s.bk.mufg.jp/refresh/imgs/DIRECT_IMAGE/LOGINOUT/btn_login.gif'"></a> なので、 objIE.document.all.gotoPageFromAA011(); return false;.Click とやりたいところですが、VBAではエラーになってしまいます。 どうすればログインできるのでしょうか? http://www.ken3.org/cgi-bin/group/vba_ie_form.asp#Input_button_Click を見てみましたが私がうまく出来てないのか出来ませんでした。 ご回答よろしくお願いします。 VBAでアクティブなIEを操作 現在VBAでIEを操作しようとしております。 URLやタイトルから指定してIEを操作することはできるようになりました。 今度はデスクトップの最善面にあるIEを操作したいと考えています。 下記を参考にして考えていますが、Hwndプロパティが読み取り専用らしく ハンドルから操作するIEを指定することができません。 http://okwave.jp/qa/q2147057.html そもそもVBAで可能なのかについても よく分からないのですが、恐れ入りますが代案を含め方法があれば教えてください。 ひとまず、煮詰まっていますが、 今残っているコードを載せておきます。 Public Declare Function GetForegroundWindow Lib "user32" () As Long ’--------------- Sub shell_test() Dim objie As Object Dim a as long Set obj = CreateObject("shell.application") a = GetForegroundWindow Debug.Print a End Sub win8&ie10でのダウンロード通知バー 当方の勘違いでしたら、ご指摘ください。 ie10にてファイル等をダウンロードする際、 ブラウザ画面の下部に「ダウンロード通知バー」が現れるかと思います。 先日まで、ブラウザに表示された画像を右クリック「名前を付けて画像を保存」する際も、 上記「ダウンロード通知バー」が現れていたかと思うのですが、 ある時から表示が現れなくなりました。 再度表示が現れますよう、設定変更を行いたいのですが、 どちらを確認すればよろしいのでしょうか? ちなみに、フリーソフトなど、ファイルのダウンロードを行います場合は、 引き続き「ダウンロード通知バー」は現れております。 そもそも、「名前を付けて画像を保存」では、 最初から「ダウンロード通知バー」は現れていなかったのでしょうかね… 何卒よろしくお願いいたします。 VBAでブック内のワークシートを名前をつけて保存 エクセルVBAで作業中のブックの一部のワークシート(2枚)を名前をつけて保存する方法を教えてください。 (例) 《ブックA》 sheet1 sheet2 sheet3 10/5 10個 10,000円 4個 25,000円 東京 25個 18,500円 6個 42,000円 というブックから『10/5 東京』というブックでsheet2,sheet3の内容を 保存したいのですが・・・ VBAは勉強し始めでほとんどわからないので教えてください。 VBAからIEを動かしてタブをクリックする方法 すいません、ここ10日間くらい悩んでいます。 VBAからIEを動かして所定の場所にログインをした後以降の作業でつまづいています。ソースコードを記載しております。その後のタブをクリックする以降の作業を以下に記載いたしました。 ⇒どうしてもタブが押せません。 ーーーーーーーーーーーーーーーーー Sub ***() Dim objIE As InternetExplorer 'IEオブジェクトを準備 Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット objIE.Visible = True 'IEを表示 Dim strURL As String '次ページのURL strURL = "https://*****" objIE.navigate strURL 'IEでURLを開く Application.Wait [Now()+"00:00:03"] SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "{Tab}" SendKeys "***" ’IDの入力 SendKeys "{Tab}" SendKeys "***" ’パスワードの入力 SendKeys "{Tab}" SendKeys "{Enter}" ’ENTERの入力 Application.Wait [Now()+"00:00:05"] Dim objA As Object Dim i As Integer 'For Each objA In objIE.document.all.tags("a") 'Set objA = objIE.document.all.tags("a") 'Set objA = objIE.document.all.outerHTML Set objA = objIE.document.getElementsByTagName("a") 'If objA.outerHTML = "ドキュメント" Then Then '押したいタブの名称 objA.Click End If Next 'ここから先はまだ考えていない End Sub ーーーーーーーーーーーーーーー 1.Javascriptの以下のような"javascript:void(null);"のタブの部分のを自動化でクリックしたい。 ここが上記のドキュメントの部分。 <a href="javascript:void(null);" onclick="return !1;" class="TabTitle" role="tab" title="ドキュメント" style="width: auto;">ドキュメント</a> 2.以下の”ZGBL_DLV_SOM_RP0442_SLS_ORD”のハイパーリンクをクリックする。 ここ以降はまだ考えていない。 <div id="ListingURE_detailView_listColumn_1_0_1" style="overflow: hidden; padding: 2px 0px 2px 4px;">ZGBL_DLV_SOM_RP0442_SLS_ORD</div> 3.以下の”Enter Value(s) for Sales Order Creation Date”をクリックする。 <span>* Enter Value(s) for Sales Order Creation Date (From):</span> 4.小さな小窓をクリックする。 <div id="IconImg_calendar_promptLovZone_RightZone_oneTextField_date0" class="imo" style="width: 15px; height: 20px; background-image: url("https://btblc-prdbobi.jnj.com/BOE/portal/1610160145/AnalyticalReporting/webiDHTML/viewer/../dhtmllib/images/skin_standard/menuelements.png"); background-position: 0px -130px; margin-top: 0px; cursor: pointer;"></div> 5.以下のソースコードで今日というボタンをクリックしたい。 <nobr id="Btn_iconMenu_menu_calendar_promptLovZone_RightZone_oneTextField_date0_t" class="wizbutton">今日</nobr> 6.OKをクリックする。 <td width="64" id="BtnCImg_OK_BTN_promptsDlg" align="center" class="btnBase btnMidBase btnMFocus"><button style="overflow: visible; cursor: pointer;" class="wizbuttoninner" id="RealBtn_OK_BTN_promptsDlg" title="OK"><nobr id="Btn_OK_BTN_promptsDlg" class="wizbutton" title="O 仕事で使うので困っております。どうにかお礼をできればしたいとも思います。 何卒宜しくお願いします。 VBA 名前を付けて保存の方法について VBAのコードにて名前を付けて保存のやり方ができません。 現在開いているファイルを 名前を付けて保存したいのですが ファイルの指定方法が間違っているのか保存できません。 やりたいこと 現在開いているファイル内のシート(設定画面)の A1セルとA2セルの文字を "G:¥●エクセル¥ソフト¥計画"のドライブにて 保存する(A1セルとA2のセルの文字をくっつけて名前を付けて保存したい) 例:元のbook1のファイル名をA1セルとA2セルの文字をくっつけた 名前にしてから保存したい。 保存先のドライブの指定方法が分からなかったため マクロの記録にてそのドライブへ名前を付けて保存してみて ドライブの名前の指定をしました。(この方法も間違っていますか?) コードを下記に記載しています。 すいませんがうまく動くコードを記載してもらえると 助かります。 回答よろしくお願いします。 Sub macro1() Dim wb As Workbook Dim ws As Worksheet Dim hozonPath As String Dim FolName As String Dim FilName As String Set wb = ThisWorkbook Set ws = Worksheets("設定画面") hozonPath = "G:¥●エクセル¥ソフト¥計画" FolName = ws.Range("A1").Value FilName = ws.Range("A2").Value wb.SaveAs fileName:=hozonPath & FolName & "¥" & FilName End Sub IE操作時、ファイルのダウンロードボタンの押下 IEをvb.netから操作しています。 webからファイルのダウンロードを自動で行いたいのですが、どのようにすればいいのかわからず悩んでいます。 画像の赤枠で括ってあるボタンの押下を、vb.netからの操作で行いたいのですが、どのようにすれば良いでしょうか。 InternetExplorer.Applicationに何らかのメンバ関数のようなものがあるのか、sendkeysを使うしかないのか、sendkeysを使うなら、具体的にどのキー操作を送れば良いのかなど、お教えいただけないでしょうか。 よろしくお願いします!
お礼
詳しいサイトを教えていただきありがとうございました。うれしいです。