Astuces Excel
  1. Astuces Excel
  3. Impossible de lire plusieurs pages Web
Intereting Posts
Mettre en surbrillance les cellules en fonction de la date et d'autres conditions Erreur d'index du script Excel VBA Comment exporter les résultats de l'instruction SQL vers un file Excel VBA Copie le text des tables dans Word Doc pour excel? Obtenir la formule d'une autre cellule dans une cellule cible Powershell pour countr les cellules dans une colonne en fonction de la valeur du filter Comment créer un champ ou un paramètre qui peut m'aider à basculer entre deux mesures? Quelle est la meilleure façon de travailler avec Access et SharePoint? Objet VB Clear Scripting.Dictionary Utilisation de colonnes individuelles pour classr datatables dans un tableau Comment créer une formule VBA qui prend de la valeur et du format à partir de la cellule source Comment copyr les noms des colonnes d'une feuille vers une autre feuille en utilisant Excel VBA Exécuter Excel programmé lorsque l'user est déconnecté Tableaux de probabilité conditionnelle dans le réseau bayésien Trouver la cellule de dernière ligne dans les feuilles de calcul (CALC, excel) avec la formule, en fonction de la dernière input (text / numéro)

Impossible de lire plusieurs pages Web

Je voudrais prendre des informations de ces deux pages qui sont similaires:

http://www.quotenet.com/index/market-movers/S&P_500
http://www.quotenet.com/index/market-movers/CAC_40

J'ai déjà un code qui fonctionne pour une page (je veux avoir les deux premiers déménageurs dans la table): 

Dim ie As InternetExplorer, doc As HTMLDocument Dim TopMoverTable As Object Dim TopMoverTable2 As Object Set ie = CreateObject("InternetExplorer.Application") ie.navigate "http://www.quotenet.com/index/market-movers/S&P_500" Do DoEvents Loop Until ie.readyState = READYSTATE_COMPLETE Set doc = ie.document Set TopMoverTable = doc.getElementsByTagName("TABLE")(2) Cells(1, 2) = Split(TopMoverTable.getElementsByTagName("TD")(0).innerText, vbCrLf)(0) Cells(1, 3) = Split(TopMoverTable.getElementsByTagName("TD")(4).innerText, vbCrLf)(1) Cells(2, 2) = Split(TopMoverTable.getElementsByTagName("TD")(11).innerText, vbCrLf)(0) Cells(2, 3) = Split(TopMoverTable.getElementsByTagName("TD")(15).innerText, vbCrLf)(1) 'ie.navigate "http://www.quotenet.com/index/market-movers/CAC_40" ' Do ' DoEvents ' Loop Until ie.readyState = READYSTATE_COMPLETE ' ' Set doc = ie.document ' ' Set TopMoverTable2 = doc.getElementsByTagName("TABLE")(2) ie.Application.Quit

J'ai commenté le code qui ne fonctionne pas.

Comment puis-je lire ces deux pages?

Vous avez manqué TopMoverTable2 dans votre code. Maintenant, j'ai manipulé votre code.

Essayez le code ci-dessous 

 Dim ie As InternetExplorer, doc As HTMLDocument Dim TopMoverTable As Object Dim TopMoverTable2 As Object Set ie = CreateObject("InternetExplorer.Application") ie.navigate "http://www.quotenet.com/index/market-movers/S&P_500" Do DoEvents Loop Until ie.readyState = READYSTATE_COMPLETE Set doc = ie.document Set TopMoverTable = doc.getElementsByTagName("TABLE")(2) Cells(1, 2) = Split(TopMoverTable.getElementsByTagName("TD") (0).innerText, vbCrLf)(0) Cells(1, 3) = Split(TopMoverTable.getElementsByTagName("TD")(4).innerText, vbCrLf)(1) Cells(2, 2) = Split(TopMoverTable.getElementsByTagName("TD")(11).innerText, vbCrLf)(0) Cells(2, 3) = Split(TopMoverTable.getElementsByTagName("TD")(15).innerText, vbCrLf)(1) ie.navigate "http://www.quotenet.com/index/market-movers/CAC_40" Do DoEvents Loop Until ie.readyState = READYSTATE_COMPLETE Set doc = ie.document Set TopMoverTable2 = doc.getElementsByTagName("TABLE")(2) Cells(5, 2) = Split(TopMoverTable2.getElementsByTagName("TD")(0).innerText, vbCrLf)(0) Cells(5, 3) = Split(TopMoverTable2.getElementsByTagName("TD")(4).innerText, vbCrLf)(1) Cells(6, 2) = Split(TopMoverTable2.getElementsByTagName("TD")(11).innerText, vbCrLf)(0) Cells(6, 3) = Split(TopMoverTable2.getElementsByTagName("TD")(15).innerText, vbCrLf)(1) ie.Application.Quit