IE上に表示されたイメージアイコンをクリックすると、図に示す画面が現われます。
これをVBA制御により「名前を付けて保存」ボタンを押したいのですがうまくいかずご教授頂きたいです。
(なお、恐縮ながらSendkeysを利用する方法は求めておりません。また、こちら社内システムででてくる画面であるためリンクを示すことができません、申し訳ございませんがご理解願います。)
質問は↑につきますが、やってみたこと①②について補足で示します。
①SendMessageを利用する場合
https://oshiete.goo.ne.jp/qa/1809850.html
→コピペでやりたいことにかなり近いことができましたが、「開く(O)」ボタンを押してしまっています。若干理解不足ではありますが、このソースでは、「名前を付けて保存」、又は「保存」という記述しかないのに、なぜ「開く」ボタンが押さる挙動となるのかわかっていません。
②UIAutomationを利用する場合
https://oshiete.goo.ne.jp/qa/9622324.html
→エラーがでてしまい、うまくボタンをおすところまで行きませんでした。
わからないなりにUIAutomation関連の知識を入れながらパラメータを変えての試行錯誤しましたがギブアップです。うまくボタンをとらえることができません。(いや、知識不足がかなり大きいです。。)
こちらは、以前「通知バー」制御に関する投稿させて頂いた内容で、うまくいった経緯があること、また、「名前を付けて保存」ボタンが押下が成功したら、後の「名前を付けて保存ダイアログボックス」制御がそのまま利用できそうなので試してみた次第です。
No.1ベストアンサー
- 回答日時:
こんな感じですかね。
---
Option Explicit
'参照設定 UIAutomationClient
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Sub hoge()
Dim o As IUIAutomation
Dim e As IUIAutomationElement
Set o = New CUIAutomation
Dim h As LongPtr
h = FindWindowEx(0, 0, "#32770", "Internet Explorer")
If h = 0 Then Exit Sub
Set e = o.ElementFromHandle(ByVal h)
Dim iCnd As IUIAutomationCondition
iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "名前を付けて保存(A)")
Dim Button As IUIAutomationElement
Button = e.FindFirst(TreeScope_Subtree, iCnd)
Dim InvokePattern As IUIAutomationInvokePattern
Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
InvokePattern.Invoke
End Sub
ありがとうございます!
大変感謝しています。
下記、Set iCnd ,Set Buttonに修正して完璧でした。
iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "名前を付けて保存(A)")
Button = e.FindFirst(TreeScope_Subtree, iCnd)
別件でもう一つUIAutomation関連で質問をする予定ですのでよろしければお願いします。
通知バーAutomation処理、反応が遅い場合があり改善したいというものです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Excel(エクセル) アンケート集計用VBAについて教えて下さい。 約100人にアンケート内容が入ったExcelファイルを 1 2022/07/27 13:12
- 写真・ビデオ Snowの写真保存について 1 2023/04/06 07:29
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Word(ワード) Wordのデータが毎回破損してしまう 1 2022/08/24 11:30
- アプリ Edgeを操作するアプリについて 4 2023/05/11 22:48
- Word(ワード) Word のマクロについての質問です。 ボタンを押すと登録したブックマーク先にジャンプする機能(リン 3 2023/08/16 12:17
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
vbaでIEの名前を付けて保存(A)をしたい
Microsoft ASP
-
ダウンロードダイアログをVBAから操作するには?
Visual Basic(VBA)
-
IEのダウンロード通知バーのVBA制御(保存他)
Visual Basic(VBA)
-
-
4
VBA IE操作でダイアログ表示後、ファイルを開くボタンが押下できない
Visual Basic(VBA)
-
5
VBA IE通知バーの制御 バー内のボタン 開く/保存/キャンセルを押す
Visual Basic(VBA)
-
6
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
7
Alt+P,Alt+NをPostmessageで送るには
Visual Basic(VBA)
-
8
VBA URLDownloadToFileについて
Visual Basic(VBA)
-
9
ExcelVBAでリンク先の対象のファイルを保存
Visual Basic(VBA)
-
10
ExcelVBAでAPIを使って外部ウインドウのエディットテキストを取得する方法
Visual Basic(VBA)
-
11
VBAでIEを操作、ポップアップされた画面の処理(Enter)を行いたい
Visual Basic(VBA)
-
12
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
13
IE操作時、ファイルのダウンロードボタンの押下
Visual Basic(VBA)
-
14
【VBA】UI Automationコンボボックスを制御したい
Visual Basic(VBA)
-
15
今更、VBAでRPA、キーボード操作自動化ってどうやるの?
Visual Basic(VBA)
-
16
ウィンドウにキー送信で ENTER を送りたい
Visual Basic(VBA)
-
17
(UWSC) 「#32770」の意味わかりますか?
その他(プログラミング・Web制作)
-
18
VBAでIEの「ファイルのダウンロード」ダイアログを制御
Visual Basic(VBA)
-
19
WEBページからのメッセージをVBAで
Visual Basic(VBA)
-
20
VBAでIEのファイルを自動的にダウンロードしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
フォームの再読み込み
-
.NET(VB)でボタンの連打を防止...
-
VBAで多数のプログラムを一つの...
-
VBでのエラー音の消し方
-
ダウンロードダイアログをVB...
-
[Excel VBA]コマンドボタンの入...
-
C#で動的に作ったtextboxを消す。
-
セルをマクロのボタンにしたい。
-
C#プログラムで、ボタンをショ...
-
VB.net でトグルボタンを実現し...
-
ボタンの状態
-
Access VBA でデータペーストを...
-
vb.net タイマーに引数を渡す
-
エクセルVBAでユーザーフォーム...
-
コマンドボタンやイメージにマ...
-
他のアプリケーションとの連携
-
excel シート上のボタンが動かない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
Excel VBA Application.caller...
-
VBAのボタンの位置が変わって困...
-
Access VBA でデータペーストを...
-
プロシージャからイベントをコ...
-
他のアプリケーションとの連携
-
閉じると「+」になり開くと「-...
-
C#で動的に作ったtextboxを消す。
-
ボタンをマウスで押し続けたと...
-
VBA でのボタンの移動について
-
ボタン
-
CommandButtonのCaptionを変化...
-
TextBoxでEnterキーを押すと、...
-
VB.net でトグルボタンを実現し...
おすすめ情報