Excel VBA SendKeys ne pas causer de IE 9 pour enregistrer télécharger

Je suis en train d'écrire une macro pour télécharger un fichier csv à partir de mon site web interne.

Pour de nombreuses raisons, je ne peux pas utiliser tout xmlhttp objets. La macro va télécharger le fichier. Le problème est qu'Internet Explorer 9 invite l'utilisateur à Ouvrir, Enregistrer et Annuler les boutons.

Tandis que dans IE, Alt+Maj+S enregistrer le télécharger, mais je ne peux pas obtenir le Sendkeys "%+s" méthode de VBA Excel pour travailler.

Voici le code correspondant:

Function followLinkByText(thetext As String) As Boolean
   'clicks the first link that has the specified text
    Dim alink As Variant

    'Loops through every anchor in HTML document until specified text is found
    ' then clicks the link
    For Each alink In ie.document.Links
       If alink.innerHTML = thetext Then
            alink.Click
            'waitForLoad
            Application.Wait Now + TimeValue("00:00:01")
            Application.SendKeys "%+s", True

            followLinkByText = True
            Exit Function
        End If
     Next

End Function

Si je ne me trompe pas alors le seul endroit sur le web qui couvre largement sur la façon d'interagir avec le IE Fichier de Téléchargement est ici... siddharthrout.wordpress.com/2012/02/02/...
Si vous avez un lien direct vers le fichier, il est probablement plus facile à l'aide de la URLDownloadToFile la fonction de l'API à la place. Il est l'un des nombreux exemples ici cpearson.com/excel/DownloadFile.aspx
Je doute si c'est un lien direct. BTW, j'ai couvert URLDownloadToFile API function dans la Partie 1 de la le lien ci-dessus.
Il n'est pas un lien direct. C'est une image qui appelle une fonction javascript. J'ai regardé dans de l'appel du javascript directement, mais la page requiert un id qui n'est pas donné jusqu'à ce que l'utilisateur clique sur un lien, qui tire alors l'id à partir d'une base de données et met à la page en utilisant ajax. J'espérais éviter d'avoir à comprendre le javascript car je ne suis pas familier avec javascript en général. @Déroute Ne IE9 ont la même SendMessage limitations précédentes versions IE? IE9 ne prend pas en créer une nouvelle fenêtre, mais plutôt un popup en bas de l'écran. Cette méthode fonctionne de la même manière?
Ce que vous appelez est appelé une barre d'info. Autant que je sache, Il n'est pas un bypass que peu importe ce que vous lisez sur le web. Je suis arrivé qu'en passant l'url d'un exe VB6 l'utilisation de shell. Heureusement, la barre d'info ne fonctionne pas lorsque l'URL est appelée par un webbrowser. En fait j'ai donné beaucoup de solution pour mes clients en fonction de cela. Je peux passer sur ce exe pour vous. Tout ce que vous avez à faire est de shell à partir de VBA et le Téléchargement de Fichier s'ouvre automatiquement avec lesquels vous pouvez interagir à l'aide de l'API. SUITE...

OriginalL'auteur derigible | 2012-07-24

1

Comme je l'ai mentionné dans mes commentaires, Les informations de Sécurité de la barre de fait, il est difficile d'interagir avec la Fenêtre de Téléchargement de Fichier.

Une alternative est d'utiliser le contrôle webbrowser et puis en passant l'URL. Mais le principal problème avec cette méthode est que vous ne pouvez pas avoir le contrôle webbrowser dans la même Instance d'Excel. Une fois la fenêtre Téléchargement de Fichier apparaît, l'ensemble de votre Macro VBA viendra à un arrêt jusqu'au moment où vous ne les jetez pas.

Voici une alternative. Voici un petit exe que j'ai créé en VB6 qui apparaîtra la fenêtre de Téléchargement de Fichier en contournant l'IE Info Barre de Sécurité. Et une fois la fenêtre Téléchargement de Fichier apparaît, vous pouvez interagir avec elle à l'aide de l'Api, comme indiqué dans ma blog article.

Prenons un exemple pour voir comment nous interagissons avec ce fichier exe vb6.

Créer un module dans Excel et collez ce code.

REMARQUE IMPORTANTE: Puisque vous n'avez pas à me donner une URL, je suis prise d'une URL Statique. Merci de le remplacer avec votre lien. Maintenant, selon le lien que vous indiquez, vous pouvez voir l'un de ces deux téléchargement windows. Basé sur la fenêtre de téléchargement que vous voyez, vous aurez à trouver les poignées de fenêtres basé sur le pic indiqué ci-dessous. Plus de détails sur le blog lien que j'ai donné.

Télécharger le fichier ci-joint et de le sauvegarder en dire C:\. Si vous l'enregistrez dans un autre endroit, puis modifier que dans l'instruction Shell ci-dessous.
```
Sub Sample()
    Dim sUrl As String

    sUrl = "http://spreadsheetpage.com/downloads/xl/king-james-bible.xlsm"

    Shell "C:\FDL.exe " & sUrl, vbNormalFocus
End Sub
```
INSTANTANÉ

FICHIER: Le fichier peut être téléchargé ici.

REMARQUE: Si votre url a besoin d'un courant de la session active, alors laissez-moi savoir, je vais télécharger un autre fichier exe. Mais pour cela vous aurez à me donner l'URL de Base du Chemin.
Cette réponse fonctionne très bien! J'apprécie l'aide que vous m'avez donné. Cela m'a permis d'économiser une grande quantité d'effort. J'ai trouvé que pour une raison quelconque, mon sendKeys ne fonctionnait pas à tous pour IE 9, donc j'ai posté une question concernant ce problème, mais cette solution a résolu ce problème.
Pour toute personne intéressée, qu'une nouvelle question est ici.
une chose Siddharth, que si l'info "ouvrir enregistrer annuler" invite de commande est généré en cliquant sur un bouton qui crée le fichier qui affiche ce message (c'est à dire. vous n'avez pas l'emplacement de la source, car il est généré à partir du bouton qui affiche la barre d'infos)

OriginalL'auteur Siddharth Rout

Vous pouvez essayer cela comme il est travaillé pour moi sur IE 11:

De copier le fichier C:\Windows\System32\UIAutomationCore.dll fichier pour les utilisateurs de Documents que j'.e C:\Users\admin\Documents puis ajouter la référence UIAutomationClient pour votre fichier de macro.

Collez code ci-dessous dans votre module:

    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, "Save")

    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

Essayer lors de votre fin.

Salut Il a bien fonctionné pour moi. Mais j'ai besoin d'enregistrer le fichier. Si je le change pour "Enregistrer sous" au lieu de "Enregistrer", c'est jeter de l'erreur. Me suggérer comment entrer dans l'enregistrer en tant Que boîte de dialogue en cliquant sur Enregistrer-en tant Que bouton dans le ruban.

OriginalL'auteur Lifewithsun

0

Je pense que je suis venu avec une solution plus simple: lorsque la barre de chargement s'affiche dans IE9, tout en passe-il en affichant le "réel" Télécharger la fenêtre Pop-Up. Le raccourci "CTRL+J". Tout ce que vous avez à faire est de cliquez sur "Enregistrer" ou "Ouvrir". Il peut être assez façons de le faire, mais j'ai tout simplement envoyer une séquence de touches pour déplacer le focus sur l'option souhaitée, puis appuyez sur entrée.

Voici le code:
```
' Wait for download bar to appear
Application.Wait (Now + TimeValue("0:00:04"))

' Sending CTRL+J to open download pop-up
SendKeys "^j"

' Wait for download popup to appear
Application.Wait (Now + TimeValue("0:00:02"))

' Sending keys sequence to click on "Save" button
SendKeys "{RIGHT}{RIGHT}{RIGHT}~"
```
OriginalL'auteur Rodolphe
0

Votre Application.Sendkeys juste besoin d'un réglage. Ci-dessous le code que je suis en utilisant ce qu'il est testé sur IE11. C'est pour Alt+S sans Maj, qui est le raccourci clavier dans IE11. Laissez-moi savoir si cela ne fonctionne pas et que vous avez besoin de l'aide de l'ajout de la Maj retour en.

Application.SendKeys "%{S}", True

OriginalL'auteur Tony L.

Vous devez vous connecter pour publier un commentaire.