Importer des Données dans Excel à partir d'un tableau créé par un script dans une Page web

Je suis en train de créer une macro qui automatiquement se connecter à une page web et de les importer dans excel les données d'une table. Mon problème est que Excel, un outil de Requête ne reconnaît pas le tableau, je pense parce que c'est créer par un script dans la page, et donc je ne peut pas utiliser la méthode standard.
Pour l'instant, je suis en utilisant cette méthode:

  1. Copier les données dans le presse-papiers
  2. Exécuter une macro vba que reçoit les données à partir du presse-papiers et les importations dans Excel

Cependant, j'ai plus de 20 pages web pour importer tous les temps et je voudrais un "standalone" macro qui, compte tenu de l'url de la page, pouvez importer les données dans excel.

La page web m'intéresse, c'est:
http://www.investing.com/indices/us-30-historical-data
J'utilise excel 2010

Quelqu'un peut m'aider?

"importer dans excel les données d'une table" - pouvez-vous expliquer le contexte de la table... voulez-vous dire un tableau HTML, contenant les données?
Pour faire suite à mon commentaire - recherche à la page web je suppose que vous voulez faire une page web "démolition", l'extraction de données à partir d'une page web et de faire quelque chose d'intelligent sabots avec elle. Aucune manière Excel Requête va le faire pour vous. Ce que vous voulez, c'est une sorte d'intermédiaire de l'outil que l'écran gratter, le met dans un formulaire Excel Requête peut accéder, par exemple, un fichier CSV.
Ce que j'aimerais faire, c'est l'équivalent de la copie du tableau dans le presse-papiers à l'aide d'une macro
Quelle table? Le tableau HTML sur ces sites web? Je crois que j'ai déjà couvert à vos questions. Vous souhaitez écran-gratter - c'est peut-être possible de le faire en VBA, mais sa non-trivial... en utilisant le presse-papiers est juste complique les choses. Une fois dans la carte de clip - alors quoi?
Le tableau avec les dates et les prix est celui que je suis intéressé. Si je peux mettre les données dans le presse-papiers, puis je peux utiliser la macro que j'ai écrit pour importer des données à partir du presse-papiers. Cependant, ce qui m'intéresse, c'est uniquement pour importer les données de ce tableau dans excel à l'aide d'une macro, si je ne peux ignorer le presse-papiers, il est ok pour moi.

OriginalL'auteur MeSS83 | 2014-01-10

  1. 4

    Essayer cette 

    Sub Dow_HistoricalData()

    Dim xmlHttp As Object
    Dim TR_col As Object, TR As Object
    Dim TD_col As Object, TD As Object
    Dim row As Long, col As Long

    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    xmlHttp.Open "GET", "http://www.investing.com/indices/us-30-historical-data", False
    xmlHttp.setRequestHeader "Content-Type", "text/xml"
    xmlHttp.send

    Dim html As Object
    Set html = CreateObject("htmlfile")
    html.body.innerHTML = xmlHttp.ResponseText

    Dim tbl As Object
    Set tbl = html.getElementById("curr_table")

    row = 1
    col = 1

    Set TR_col = html.getelementsbytagname("TR")
    For Each TR In TR_col
        Set TD_col = TR.getelementsbytagname("TD")
        For Each TD In TD_col
            Cells(row, col) = TD.innerText
            col = col + 1
        Next
        col = 1
        row = row + 1
    Next
End Sub
    Merci Santosh, Il fonctionne comme un charme!

    OriginalL'auteur Santosh

  2. 0

    Une autre approche serait de faire une requête HTTP comme

    //source http://tkang.blogspot.co.at/2010/09/sending-http-post-request-with-vba.html
Dim result As String
Dim myURL As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

myURL = "http://192.168.10.101:80/your_web_service?parameter=hello¶meter2=hi"

winHttpReq.Open "GET", myURL, False
winHttpReq.Send

result = winHttpReq.responseText

    et analyser le résultat.
    Je n'ai pas essayé moi-même.

    Merci pour votre aide Günter, j'ai essayé votre réponse, mais j'obtiens un message d'erreur, mais votre idée est bonne: elle est similaire à la solution proposée par Santos qui fonctionne pour mon problème. Merci beaucoup

    OriginalL'auteur Günter Zöchbauer