23 Novembre 2017 à 04:45:04

Auteur Sujet: [VB] extraction ciblé page web  (Lu 884 fois)

guigui64

  • Nouveau membre
  • *
  • Messages: 1
  • Points gagnés: 0
    • Voir le profil
[VB] extraction ciblé page web
« le: 10 Avril 2012 à 20:54:21 »
Bonjour,
Sur un site web (PAGE INTROUVABLE) , je dois extraire des tableaux la colonne correspondant à la date la plus récente soit le 2012-04-11 .
J'ai écris un script mais celui ci extrait toute la page :
Set ie = CreateObject("InternetExplorer.Application")
Set objFSO= CreateObject("Scripting.FileSystemObject")
ie.Navigate ("https://www.epexspot.com/en/market-data/auction/auction-table/"""& Year(date) &"""-"""& Month(date) &"""-"""& Day(date) &"""/FR")
ie.Visible=false
DO WHILE ie.busy
LOOP
Data = ie.document.documentElement.innertext
DataHTML = ie.document.documentElement.innerHTML
 
strFileHTML = "exportHTML.txt"
Set objHTMLFile = objFSO.OpenTextFile(strFileHTML,2,True)
 
objHTMLFile.WriteLine(DataHTML)
 
objHTMLFile.Close
ie.Quit
Set ie=Nothing
 
call Explorer(strFileHTML)
wscript.Quit
 
 
Function Explorer(File)
   Set ws=CreateObject("wscript.shell")
   ws.run "Explorer.exe "& File & "\"
end Function

Pouvez vous m'aider à comprendre comment n'extraire que la colonne correspondant à la date d'aujourd'hui(sur tous les tableaux)?

Edit: Lien supprimé, la page spécifié n'existe pas. Privilégiez un screenshot.
« Modifié: 11 Avril 2012 à 08:45:45 par mathias »