1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173
|
Browser("Bienvenue sur le site").Page("Bienvenue sur le site").WebEdit("motsCLes").Set DataTable("motsCles", dtglobalSheet)
motsCles = DataTable.GlobalSheet.GetParameter("motsCles")
If motsCles = "JAVA" or motsCles = ".NET" or motsCles = "PHP" then
Browser("Bienvenue sur le site").Page("Bienvenue sur le site").Image("Lancer la recherche").FireEvent "onmouseover"
Browser("Bienvenue sur le site").Page("Bienvenue sur le site").Image("Lancer la recherche").Click 34,12
'Parcourir la liste de pages
Set oLinks = Description.Create
oLinks("micclass").value = "Link"
Set objLinks = Browser("Bienvenue sur le site").Page("Bienvenue sur le site_2").WebElement("2").ChildObjects(oLinks)
LinkCount = objLinks.Count
If LinkCount > 0 Then
For i = 0 to LinkCount - 1
tag = objLinks(i).GetROProperty("innertext")
ref = objLinks(i).GetROProperty("href")
' Parcourir chaque page
Set odtLinks = Description.Create
odtLinks("micclass").Value = "WebTable"
set objdtLinks = Browser("Bienvenue sur le site").Page("Bienvenue sur le site_2").WebTable("Candidat").ChildObjects(odtLinks)
objdtLinkCount = objdtLinks.Count
k = 1
For j = 0 to objdtLinkCount - 1
tagLink = objdtLinks(j).GetROProperty("innertext")
Set ie = CreateObject("InternetExplorer.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = false
If tagLink = "CV" Then
If j = 0 Then
k = k + 1
End If
k = k + j
'Navigates to the url taken from "href" property
href = objdtLinks(j).GetROProperty("href")
ie.Navigate (href)
ie.Visible = false
DO WHILE ie.busy
LOOP
' Extraire le contenu de la page web
Data = ie.document.documentElement.innertext
DataHTML = ie.document.documentElement.innerHTML
strFileXLS = "export2xl.xls"
strFileHTML = "exportHTML.txt"
Set objTextFile = fso.OpenTextFile(strFileXLS, 2, True)
Set objHTMLFile = fso.OpenTextFile(strFileHTML, 2, True)
objTextFile.WriteLine(Data)
objHTMLFile.WriteLine(DataHTML)
objTextFile.Close
objHTMLFile.Close
ie.Quit
Set ie=Nothing
' Enregistrer le fichier excel
fso.CopyFile "export2xl.xls","C:\fileExport.xls",True
' Exporter les donnees de fileExport.xls vers CVDataExport.xls
Set xlBook = xlapp.Workbooks.Open("C:\fileExport.xls")
Set xlBook2 = xlapp.Workbooks.Open("C:\CVDataExport.xls")
xlBook2.Activesheet.Range("A" & k) = mid(xlBook.Activesheet.Range("A16"), 9)
xlBook2.Activesheet.Range("B" & k) = mid(xlBook.Activesheet.Range("A17"), 4)
xlBook2.Activesheet.Range("C" & k) = mid(xlBook.Activesheet.Range("A18"), 7)
xlBook2.Activesheet.Range("D" & k) = mid(xlBook.Activesheet.Range("A19"), 19)
xlBook2.Activesheet.Range("E" & k) = mid(xlBook.Activesheet.Range("A20"), 18)
xlBook2.Activesheet.Range("F" & k) = mid(xlBook.Activesheet.Range("A21"), 19)
xlBook2.Activesheet.Range("G" & k) = mid(xlBook.Activesheet.Range("A22"), 25)
xlBook2.Activesheet.Range("H" & k) = mid(xlBook.Activesheet.Range("A23"), 18)
xlBook2.Activesheet.Range("I" & k) = mid(xlBook.Activesheet.Range("A24"), 12)
xlBook2.Activesheet.Range("J" & k) = mid(xlBook.Activesheet.Range("A25"), 19)
xlBook2.Activesheet.Range("K" & k) = mid(xlBook.Activesheet.Range("A27"), 8)
xlBook2.Activesheet.Range("L" & k) = mid(xlBook.Activesheet.Range("A29"), 12)
xlBook2.Activesheet.Range("M" & k) = mid(xlBook.Activesheet.Range("A30"), 6)
xlBook2.Activesheet.Range("N" & k) = mid(xlBook.Activesheet.Range("A31"), 5)
xlBook2.Activesheet.Range("O" & k) = mid(xlBook.Activesheet.Range("A32"), 10)
xlBook2.Activesheet.Range("P" & k) = mid(xlBook.Activesheet.Range("A34"), 7)
xlBook2.Activesheet.Range("Q" & k) = mid(xlBook.Activesheet.Range("A36"), 21)
xlBook2.Activesheet.Range("R" & k) = mid(xlBook.Activesheet.Range("A37"), 26)
xlBook2.Activesheet.Range("S" & k) = mid(xlBook.Activesheet.Range("A39"), 21)
xlBook2.Activesheet.Range("T" & k) = mid(xlBook.Activesheet.Range("A41"), 27)
xlBook2.Activesheet.Range("U" & k) = mid(xlBook.Activesheet.Range("A42"), 1)
xlBook2.Activesheet.Range("V" & k) = mid(xlBook.Activesheet.Range("A43"), 1)
xlBook2.Activesheet.Range("W" & k) = mid(xlBook.Activesheet.Range("A44"), 17)
xlBook2.Activesheet.Range("X" & k) = mid(xlBook.Activesheet.Range("A45"), 22)
xlBook2.Activesheet.Range("Y" & k) = mid(xlBook.Activesheet.Range("A46"), 16)
xlBook2.Activesheet.Range("Z" & k) = mid(xlBook.Activesheet.Range("A48"), 15)
xlBook2.Activesheet.Range("AA" & k) = mid(xlBook.Activesheet.Range("A51"), 19)
xlBook2.Activesheet.Range("AB" & k) = mid(xlBook.Activesheet.Range("A52"), 7)
xlBook2.Activesheet.Range("AC" & k) = mid(xlBook.Activesheet.Range("A53"), 8)
xlBook2.Activesheet.Range("AD" & k) = mid(xlBook.Activesheet.Range("A54"), 19)
xlBook2.Activesheet.Range("AE" & k) = mid(xlBook.Activesheet.Range("A55"), 14)
xlBook2.Activesheet.Range("AF" & k) = mid(xlBook.Activesheet.Range("A56"), 6)
xlBook2.Activesheet.Range("AG" & k) = mid(xlBook.Activesheet.Range("A58"), 12)
xlBook2.Activesheet.Range("AH" & k) = mid(xlBook.Activesheet.Range("A59"), 13)
xlBook2.Activesheet.Range("AI" & k) = mid(xlBook.Activesheet.Range("A60"), 13)
xlBook2.Activesheet.Range("AK" & k) = mid(xlBook.Activesheet.Range("A62"), 19)
xlBook2.Activesheet.Range("AL" & k) = mid(xlBook.Activesheet.Range("A63"), 7)
xlBook2.Activesheet.Range("AM" & k) = mid(xlBook.Activesheet.Range("A64"), 8)
xlBook2.Activesheet.Range("AN" & k) = mid(xlBook.Activesheet.Range("A65"), 19)
xlBook2.Activesheet.Range("AO" & k) = mid(xlBook.Activesheet.Range("A66"), 14)
xlBook2.Activesheet.Range("AP" & k) = mid(xlBook.Activesheet.Range("A67"), 6)
xlBook2.Activesheet.Range("AQ" & k) = mid(xlBook.Activesheet.Range("A69"), 12)
xlBook2.Activesheet.Range("AR" & k) = mid(xlBook.Activesheet.Range("A70"), 13)
xlBook2.Activesheet.Range("AS" & k) = mid(xlBook.Activesheet.Range("A71"), 13)
xlBook2.Activesheet.Range("AT" & k) = mid(xlBook.Activesheet.Range("A73"), 9)
xlBook2.Activesheet.Range("AU" & k) = mid(xlBook.Activesheet.Range("A74"), 7)
xlBook2.Activesheet.Range("AV" & k) = mid(xlBook.Activesheet.Range("A75"), 8)
xlBook2.Activesheet.Range("AW" & k) = mid(xlBook.Activesheet.Range("A77"), 9)
xlBook2.Activesheet.Range("AX" & k) = mid(xlBook.Activesheet.Range("A78"), 7)
xlBook2.Activesheet.Range("AY" & k) = mid(xlBook.Activesheet.Range("A79"), 8)
xlBook2.Activesheet.Range("AZ" & k) = mid(xlBook.Activesheet.Range("A81"), 23)
xlBook2.Activesheet.Range("BA" & k) = mid(xlBook.Activesheet.Range("A82"), 5)
xlBook2.Activesheet.Range("BB" & k) = mid(xlBook.Activesheet.Range("A83"), 15)
xlBook2.Activesheet.Range("BC" & k) = mid(xlBook.Activesheet.Range("A84"), 15)
xlBook2.Activesheet.Range("BD" & k) = mid(xlBook.Activesheet.Range("A85"), 8)
xlBook2.Activesheet.Range("BE" & k) = mid(xlBook.Activesheet.Range("A86"), 11)
xlBook2.Activesheet.Range("BF" & k) = mid(xlBook.Activesheet.Range("A87"), 9)
xlBook2.Activesheet.Range("BG" & k) = mid(xlBook.Activesheet.Range("A88"), 6)
xlBook2.Activesheet.Range("BH" & k) = mid(xlBook.Activesheet.Range("A90"), 23)
xlBook2.Activesheet.Range("BI" & k) = mid(xlBook.Activesheet.Range("A91"), 5)
xlBook2.Activesheet.Range("BJ" & k) = mid(xlBook.Activesheet.Range("A92"), 15)
xlBook2.Activesheet.Range("BK" & k) = mid(xlBook.Activesheet.Range("A93"), 15)
xlBook2.Activesheet.Range("BL" & k) = mid(xlBook.Activesheet.Range("A94"), 8)
xlBook2.Activesheet.Range("BM" & k) = mid(xlBook.Activesheet.Range("A95"), 11)
xlBook2.Activesheet.Range("BN" & k) = mid(xlBook.Activesheet.Range("A96"), 9)
xlBook2.Activesheet.Range("BO" & k) = mid(xlBook.Activesheet.Range("A97"), 6)
xlBook2.Activesheet.Range("BP" & k) = mid(xlBook.Activesheet.Range("A99"), 26)
xlBook2.Activesheet.Range("BQ" & k) = mid(xlBook.Activesheet.Range("A100"), 31)
xlBook2.Activesheet.Range("BR" & k) = mid(xlBook.Activesheet.Range("A101"), 21)
xlBook2.Activesheet.Range("BS" & k) = mid(xlBook.Activesheet.Range("A102"), 20)
xlBook.Close True
xlBook2.Close True
End If
Next
xlApp.quit
Set xlBook = Nothing
Set xlBook2 = Nothing
Set xlapp = Nothing
Browser("title:=.*").navigate(ref)
Browser("title:=.*").sync
Next
End If
End If |
Partager