À l'aide de VBA Excel, ouvrez une page web et ensuite de l'enregistrer

Je suis en train d'écrire une macro qui va ouvrir une URL donnée et d'effectuer un Fichier >> enregistrer sous... L'URL renvoie un fichier XML de sortie sur l'écran et je veux l'enregistrer. Alors je peux avoir Excel ouvrir le fichier et de travailler sur elle (cette partie je peux le faire).

Voici en gros ce que je veux faire et ça marche, sauf pour les SaveAs bits:

Sub Main()
REM Reference to "Microsoft Internet Controls" is being used.
Dim objIE As InternetExplorer

Set objIE = New InternetExplorer

With objIE
    .Visible = True
    .navigate "http://exampleURL.comany.com/ServerOutput/XmlFile.xml"
    Do Until .readyState = 4
        DoEvents
    Loop

    REM The next line fails
    .SaveAs "C:\temp\test.xml"

    .Application.Quit
End With

Set objIE = Nothing
End Sub

Un simple "Enregistrer" est bien si c'est tout ce qui va fonctionner. Simplement à la recherche d'un moyen de sauver la sortie sur l'écran. Merci!

  • Probablement parce que objIE n'ont pas de SaveAs propriété? Est GETting le XML, pas possible?
InformationsquelleAutor Air_Cooled_Nut | 2013-12-06
  1. 1

    Peut-être quelque chose comme cela peut l'aider?

    Public Sub GetXML()

    Dim oXML As New MSXML2.XMLHTTP60
    Dim xURL As String

    'Retrieve XML.
    xURL = "http://exampleURL.comany.com/ServerOutput/XmlFile.xml"
    oXML.Open "GET", xURL, False
    oXML.send

    'Put into sheet.
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = oXML.responseXML.XML

End Sub

    EDIT: assurez-vous que la référence à Microsoft XML, v3.0 est activé pour cette.

    • BK, merci. Malheureusement, l'utilisateur n'a pas dites-moi l'URL réelle ne s'exécute que lorsque l'on se connecte d'abord, qui ne peut être fait avec les informations de connexion intégrées 🙁 Désolé pour perdre votre temps, mais je vous remercie pour votre aide, je suis sûr que je vais être en mesure d'utiliser cette autre endroit.
    • J'ai testé avec un fichier enregistré localement et utilisés que. Votre code ne fonctionne pas, cependant, oXML.responseText contient le texte du fichier, donc c'est bien. De toute façon, j'ai une autre façon de lire & parse un fichier XML donc je vais utiliser cette méthode.
    InformationsquelleAutor Jerome Montino