VBA Internet Explorer Automatisation - Comment Sélectionner “Ouvrir” Lors du Téléchargement d'un Fichier

C'est ma première question, ici, sur stackoverflow!

J'ai été la recherche d'une solution à ce problème depuis un certain temps et n'ai pas trouvé d'aide. Je peut juste utiliser les mauvais mots-clés dans mes recherches, mais jusqu'à présent je n'ai pas eu de chance. Voici la question:

En VBA, comment puis-je sélectionner l'option "Ouvrir" dans le fichier de la boîte de dialogue de téléchargement dans Internet Explorer?

Juste pour plus de précisions, je parle du jaune-orange de la barre qui s'affiche en bas de l'écran dans IE9 lorsqu'un fichier est téléchargé.

Je fais une automatisation VBA pour télécharger des centaines de fichiers Pdf sur le web à l'aide d'Internet Explorer, mais il y a une étape intermédiaire où un .dff fichier doit être ouvert avant d'en arriver à la réelle PDF. J'ai donc d'abord nécessaire de sélectionner l'option "Ouvrir" afin que je puisse passer à la prochaine étape de l'automatisation. Comme je l'ai dit plus tôt, j'ai fait beaucoup de recherche et pas eu de chance jusqu'à présent.

J'ai essayé d'utiliser SendKeys dans l'espoir de frapper Entrée, et qui a été un ultime effort, cela ne fonctionne pas.

Merci d'avance pour l'aide!

+ 1 bonne question 🙂
Avez-vous envisagé d'utiliser URLDownloadToFile pour récupérer directement les fichiers? vbaexpress.com/forum/showthread.php?t=33145
En fait, j'ai essayé URLDownloadToFile, mais tous ces fichiers sont sur un site protégé par mot de passe et je n'étais pas en mesure de comprendre comment transmettre des informations d'identification.
Le 1er lien que j'ai donné ci-dessous couvre également l'API URLDownloadToFile.
Vous essayez de télécharger depuis un site ftp?

OriginalL'auteur Lane Sawyer | 2012-05-01

4

J'ai couvert cette profondeur ici.

Sujet: VBA/VB.Net/VB6–Cliquez sur Open/Save/Cancel sur IE fenêtre de Téléchargement – PARTIE I

Lien: http://www.siddharthrout.com/2011/10/23/vbavb-netvb6click-opensavecancel-button-on-ie-download-window/

et

MODIFIER (IMP) Si vous utilisez IE 9 N'oubliez pas de lire la PARTIE 2, qui comprend et couvre la structure de fenêtre de IE 9 fenêtre de téléchargement

Sujet: VBA/VB.Net/VB6–Cliquez sur Open/Save/Cancel sur IE fenêtre de Téléchargement – PARTIE II

Lien: http://www.siddharthrout.com/2012/02/02/vbavb-netvb6click-opensavecancel-button-on-ie-download-window-part-ii/

Les liens ci-dessus, de discuter sur comment utiliser l'API pour réaliser ce que vous voulez.

À partir du 1er lien...

Comme vous et moi, nous avons tous les deux noms, de même les fenêtres ont des “poignées” (hWnd), etc Classe. Une fois que vous savez ce que hWnd est, il est plus facile d'interagir avec la fenêtre.

Findwindow API trouve le hWnd d'une fenêtre en utilisant le nom de la classe et de la légende de la fenêtre“Téléchargement de Fichier”) dans ce cas. La “Ouvrir“, “Enregistrer” et “Annuler”, les boutons sont windows en lui-même, mais ils sont l'enfant de windows de la fenêtre principale qui est de “Téléchargement de Fichiers“. Cela signifie que chacun de ces aura également un hWnd 🙂 Pour retrouver l'enfant de windows, nous n'avons pas utiliser la fonction FindWindow, mais l'utilisation FindWindowEx. Tous les trois boutons “Ouvrir“, “Enregistrer” et “Annuler” ont la même classe qui est “ Bouton”.

Je suis assez nouveau dans VBA, donc je ne suis pas sûr de la façon d'utiliser le FindWindowEx API. J'ai mis de la déclaration de la fonction dans mon code et il a dit qu'il avait besoin d'être mis à jour pour un système 64 bits.
Vous avez déjà fini de le lire? 🙂
Juste ajouté le PtrSafe attribut, qui semble arranger les choses. Je vais aller donner un coup de feu maintenant.
Je vous recommande ce lien 🙂 jkp-ads.com/articles/apideclarations.asp
I'll go give it a shot now Gr8. Crois-moi savoir si vous êtes coincé.

OriginalL'auteur Siddharth Rout

Poste similaire: lien

    Option Explicit
    Dim ie As InternetExplorer
    Dim h As LongPtr
    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 Download()
    Dim o As IUIAutomation
    Dim e As IUIAutomationElement
    Set o = New CUIAutomation
    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, "Open")

    Dim Button As IUIAutomationElement
    Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
    Dim InvokePattern As IUIAutomationInvokePattern
    Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
    InvokePattern.Invoke
End Sub

Ce n' Dim o As IUIAutomation mais plus tard Set o = New CUIAutomation, donc l'un des deux semble mauvais pour moi? Je sais très peu de choses sur VBA, donc je ne suis pas sûr de ce qui doit être ajusté 😉

OriginalL'auteur user2444791

1

J'ai envoyé les touches de raccourci de l'application. Ici, ils sont pour IE11. Désolé j'ai pas pu tester dans IE9. Si vous maintenez la touche Alt, il peut vous montrer l'autre clé de la combo comme IE11.

Remarque: le code ne sera pas exécuté comme vous vous attendez si IE n'est pas la fenêtre active sur votre machine pour qu'elle ne fonctionne pas en mode débogage.
- Touche de raccourci:Alt+O
- VBA: Application.SendKeys "%{O}"
OriginalL'auteur Tony L.

Vous devez vous connecter pour publier un commentaire.