1首先在電腦中打開Excel，進(jìn)入VBA頁(yè)面，實(shí)現(xiàn)把單元格內(nèi)容清空的代碼如下2然后定義網(wǎng)址的代碼如下3然后實(shí)現(xiàn)創(chuàng)建對(duì)象HTML的方法代碼，如下圖所示4然后輸入發(fā)送請(qǐng)求和等待請(qǐng)求的方法代碼5最后把內(nèi)容保存在表格中。

可使用excel自帶的數(shù)據(jù)導(dǎo)入功能，參考如下程序如果，從多個(gè)帶有一定規(guī)律性的網(wǎng)頁(yè)導(dǎo)入，可使用循環(huán)語句Sub 宏1With Connection= _quotURLaction。

應(yīng)該實(shí)現(xiàn)不了吧，你只能是把你需要的所有數(shù)據(jù)都弄到表格中，然后篩選出你需要的數(shù)據(jù)，你不可能用excel鏈接到別人的數(shù)據(jù)庫(kù)，那樣你就成黑客了，如果你能進(jìn)入對(duì)方的數(shù)據(jù)庫(kù) 那還可以實(shí)現(xiàn)你的要求，但也有難度。

0 To UBoundarrAllData For i = 0 To UBoundarrAllData arrb1， i = arrAllDatai， 1 #39只取第2項(xiàng) Next i With cOffset， 3Resize1， UBoundarrb， 2 ClearContents C。

1首先打開電腦上的excel表格，然后按alt+f11打開VBA界面2接著選擇工具按鈕，選擇引用，彈出對(duì)話框選擇Internet controls選項(xiàng)3然后在模塊界面輸入想要訪問的網(wǎng)址代碼4然后單擊運(yùn)行按鈕5運(yùn)行后就可以看到網(wǎng)頁(yè)。

CellsClearContents Set oDoc = CreateObjectquothtmlfilequotWith CreateObjectquotOpen quotGETquot，quotquot，F(xiàn)alse Send WaitForResponse = responsetext Set r =。