IE10の通知バーの保存ボタンをVBAで制御したい

質問

IE10でダウンロードの際に表示される通知バーの保存ボタンをAccess2010VBAで制御したいと考えており、
http://okwave.jp/qa/q8121989.html
を参考にさせていただきました。

この際、下記コードのように
Const url As String = "ttp://www.xxx.com"と、
urlを定数にするとVBAでIE通知バーのボタンを制御できますが、

Dim url As String
url = "ttp://www.xxx.com"と
urlを変数にして、リンク先を記述するとIEのウィンドウを認識してくれません。

なぜ変数にすると認識されないのか理解できず、質問させていただきました。

また、urlを動的に変化させたいのですが、なにかいい方法はないでしょうか。

どなたかご教示のほど、よろしくお願いいたします。

OS Windows7 32bit
Access2010です。

以下、コードです。

Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Sub hoge2()

Const url As String = "ttp://www.xxx.com"

Dim IE As Object
Set IE = CreateObject("Shell.Application").Windows.FindWindowSW(url, Empty, 1, 0, 1)
If IE Is Nothing Then
msgbox "IEがありません"
Exit Sub
End If

Dim o As IUIAutomation
Dim e As IUIAutomationElement
Set o = New CUIAutomation
Dim h As LongPtr

h = IE.hwnd
h = FindWindowEx(h, 0, "Frame Notification Bar", vbNullString)
If h = 0 Then Exit Sub
Set e = o.ElementFromHandle(ByVal h)

Dim iCnd As IUIAutomationCondition
Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "保存")

Dim Button As IUIAutomationElement
Set Button = e.FindFirst(TreeScope_Subtree, iCnd)

Dim InvokePattern As IUIAutomationInvokePattern
Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
InvokePattern.Invoke

DoEvents
Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "通知バーのテキスト")
Dim iElemFound As IUIAutomationElement
Set iElemFound = e.FindFirst(TreeScope_Subtree, iCnd)
Dim iValuePattern As IUIAutomationValuePattern
Set iValuePattern = iElemFound.GetCurrentPattern(UIA_ValuePatternId)

Do
DoEvents
If iValuePattern.CurrentValue Like "*のダウンロードが完了しました。*" Then
Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "閉じる")
Set iElemFound = e.FindFirst(TreeScope_Subtree, iCnd)
Set InvokePattern = iElemFound.GetCurrentPattern(UIA_InvokePatternId)
InvokePattern.Invoke
Exit Do
End If
Loop

End Sub

回答No.3

kumatti1 · ベストアンサー

> # 参照設定のコードに書き換える手もあります。
こちらは訂正させてください。

参考URL：

http://www.moug.net/faq/viewtopic.php?t=67744

お礼

kumatti1さん、ありがとうございます。
お返事が遅くなり、また、勝手にコードを拝借しましてすいません。
変数をVariant型にすることで解決しました。
ほんと助かりました。ありがとうございます。

回答No.2

kumatti1

えーと、そのコードを書いた本人です。
CStrでもCVarでもいいのでキャストしてください。
# 参照設定のコードに書き換える手もあります。

回答No.1

h_tana_0530

こんばんは。
変数　url　に設定する文字列の先頭に 'h' が足りない、単なるスペルミスのように思えますが・・・・。

お礼

ご指摘ありがとうございます。コードに記載してあるURLは例として記載していますが、先頭に'h'を付け足してしまうと、ハイパーリンクで表示されてしまうので、あえて外しました。