1.vba ?页源源代?ҳԴ??
2.VBAä¸webbroswerç使ç¨
vba ??ҳԴ??
你这种写法的,只能用于采用GB_编码的码v码网QL凤凰指标源码网页。
如果源网页是页源源代疯狂解析vip源码用UTF-8编码,这样转出来的码v码网微信飞艇源码中文必为乱码!
对于用UTF-8编码的页源源代qq红包网页源码网页,你用 xxx..ResponseText 返回,码v码网包子博客源码直接得到正确内容。页源源代
VBAä¸webbroswerç使ç¨
å¯ä»¥è·åç½é¡µæºä»£ç ï¼ç¶åæ ¹æ®ç½é¡µæ ç¾ï¼æ¯å¦<td>æ¥è·å¾ä½ éè¦çå 容ãSub aa()
With CreateObject("internetexplorer.application") 'æ°å»ºä¸ä¸ªie页
.Visible = True
.Navigate "ä½ çç½åé¾æ¥" 'æµè§æ个页é¢
Do Until .ReadyState = 4
DoEvents
Loop 'çå°é¡µé¢è½½å ¥å®å ¨
Set r = .Document.All.tags("td") 'è·åtdæ ç¾çæ°é
For i = 0 To r.Length
Cells(i + 1,码v码网 1) = r(i).innerText 'ä¾æ¬¡ææ¯ä¸ªtdæ ç¾çå 容æå ¥åå æ ¼
Next i
.Quit
End With
End Sub
以ä¸ä»£ç å°±æ¯è·å¾å ¨é¨tdæ ç¾çå 容ãfor next循ç¯ä¹é´å¯ä»¥æ ¹æ®ä½ çè¦æ±è·å¾é¶ä»¶å称åçæ¬ï¼å¦æé¶ä»¶å称åçæ¬çæ°æ®æ¯åºå®ç¬¬å 个tdï¼é£ä¹å°±ç´æ¥å对åºçiå¼ï¼å¦æé¶ä»¶å称åçæ¬ä¹åçæ¯ä¸ä¸²æ°æ®ãæè tdæ°ä¸å®ï¼é£ä¹å°±å¤æä¸ä¸ç¬¬i个tdå 容æ¯å¦æ¯é¶ä»¶å称åçæ¬ï¼ç¶åæè¿ä¸ªiä¹åçè¥å¹²tdå¼åå ¥åå æ ¼ã
å¦æä½ éè¦å¤çç页é¢å¾å¤ï¼å¯ä»¥æé¾æ¥ä½ä¸ºä¸ä¸ªåé使ç¨.Navigateä¾æ¬¡æµè§ã
å½ç¶äºï¼æ好å æå¼ä¸ä¸ªé¡µé¢çæºç çä¸ä¸ï¼ä½ éè¦çæ°æ®æ¯å¨åªä¸ªæ ç¾éçï¼æ¯å¦ç¾åº¦ç¥éå°±æ¯å¨<A>æ ç¾åï¼é£ä¹tdå°±è¦æ¹æa
å¦ä¸å¾ï¼
æçé®å¯ä»¥è¿½é®