Edgeでの複数ファイルを自動でダウンロード時に表示されるポップアップを許可したい | |
---|---|
[196275] Edgeでの複数ファイルを自動でダウンロード時に表示されるポップアップを許可したい- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ けんじけんじ -(2024/08/29(14:54)) □U R L/ Edgeでの複数ファイルを自動でダウンロードを実行していると ↓複数ファイルのダウンロード [許可] [ブロック]'のポップアップが表示されてしまいます。 許可したいのですが方法がわかりませんよろしくお願いいたします。 SendKeys "{ENTER}" では無理でした。 Edgeの設定/Cookie とサイトのアクセス許可/ 自動ダウンロー/許可 サイトの追加は試してみましたが上手くいきませんでした ++++++++++++++++++++ OS ⇒Windows XP Version⇒Excel 2007 ++++++++++++++++++++ |
[196276] Re[1]: Edgeでの複数ファイルを自動でダウンロード時に表示されるポップアップを許可したい- ■ / 記事引用/メール受信=OFF■ □投稿者/ けんじけんじ -(2024/08/29(16:21)) □U R L/ Dim Assert As New Assert Dim wsh As Object: Set wsh = CreateObject("WScript.Shell") wsh.SendKeys "{ENTER}" '■ これでならenterをクリック出来ましたが【許可】、【ブロック】の ブロックの位置に選択があるので 【ブロック】をクリックしてしまいます。 許可の方に変えてからenterをクリックさせたいです。 よろしくお願いいたします。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒Windows 10 Version⇒Office365 ++++++++++++++++++++ |
[196277] Re[2]: Edgeでの複数ファイルを自動でダウンロード時に表示されるポップアップを許可したい- ■記事引用/メール受信=OFF■ □投稿者/ hatena -(2024/08/31(14:56)) □U R L/ ボタンが【許可】【ブロック】の順で並んでいるのなら、 Shift+Tabで【許可】の方にフォーカス移動すると思うので、 wsh.SendKeys "+{TAB}{ENTER}" でどうだろうか? |
[196278] Re[3]: Edgeでの複数ファイルを自動でダウンロード時に表示されるポップアップを許可したい- ■ / 記事引用/メール受信=OFF■ □投稿者/ けんじけんじ -(2024/09/02(13:24)) □U R L/ 教えて頂きました通り フォーカスが移動させてenterキーを押すことが出来ました。 有り難うございました。何ヶ月も悩んでいたので助かりました。 |
このトピックに書きこむ |
---|