整合營銷服務商
電腦端+手機端+微信端=數據同步管理
免費咨詢熱線：
電腦端+手機端+微信端=數據同步管理
免費咨詢熱線：
家在上網的時候是否曾經遇到過網頁文字無法復制的情況呢?為什么網頁文字無法復制呢?或者問如何把不能復制的網頁文字復制下來呢?其實，網頁文字不能復制原因大部分是網頁的制作者為了防止網頁內容被被人盜用而設置了復制限制，在網頁中嵌入了Javascript語言，通過編程的手段屏蔽了復制功能。下面小編給大家分享下如何把被限制復制的網頁文字復制下來。
本方法以IE瀏覽器為例子，打開IE瀏覽器鏈接到需要訪問的網頁中。
點擊IE瀏覽器的“工具”—“Internet選項”菜單，切換到“安全”標簽頁，選擇“自定義級”，將所有腳本全部禁用。如下圖操作：
1、在IE瀏覽器中找到Internet選項
2、選擇自定義級別
3、禁用所有腳本語言
回到原來的網頁，按快捷鍵F5刷新網頁，此時就可以直接將網頁的文字復制下來了。
當然完成網頁文字復制后，一定要給原來被禁用的腳本“解禁”，否則在瀏覽其他網頁時會出現錯誤，無法運行部分腳本效果。
想要學習更多電腦知識，歡迎關注微信公眾號vbs_edit（VBS腳本之家），很炫酷哦！
分享成果，隨喜正能量】為什么會覺得委屈？因為你只記住了自己的好，還記住了別人的不好。凡事，把對方擺在和你一樣的位置，只會讓彼此的心靈越來越遠，何不多一些寬容，讓一些瑣碎和怨恨遠離我們，讓我們的心胸更加開闊。。
《VBA信息獲取與處理》教程是我推出第六套教程，目前已經是第一版修訂了。這套教程定位于最高級，是學完初級，中級后的教程。這部教程給大家講解的內容有：跨應用程序信息獲得、隨機信息的利用、電子郵件的發送、VBA互聯網數據抓取、VBA延時操作，剪貼板應用、Split函數擴展、工作表信息與其他應用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數等等內容。程序文件通過32位和64位兩種OFFICE系統測試。是非常抽象的，更具研究的價值。
教程共兩冊，八十四講。今日的內容是專題九“利用IE抓取網絡數據”：VBA抓取解禁股票信息
大家好，這講講解的是利用IE，抓取東方財富網解禁股票的數據，利用的方法和上一講基本類似，目的仍是給大家展示一下VBA中抓取數據的實例，給大家多介紹一種實用的場景，供大家選擇利用。
實用場景：我不是太清楚解禁股的概念，但很多玩股票的朋友都有關注，經常要看每天股票解禁的股票數據，以便等到某種信息，要求利用IE實現提取某網站股票的解禁股信息，將這些數據放到工作表中以備選查看。選擇的網址是：http://data.eastmoney.com/dxf/default.html 即東方財富網的數據。
為了實現上述的場景，我們先看一看上述提供網址提供網頁的信息：
上述的網頁中，我要提取的是紅色框框起來表的數據，我們進行一下思路的分析：首先要建立一個IE對象，然后將網頁文檔提取出來，在網頁文檔上提取第三個表的數據即可。提取表數據的時候可以模擬真正工作表的行列循環，依次提取數據，在我之前的講解中提到Rows.Length是指網頁表格的個數，Cells(j).innertext是指單元格的內容。這兩點在寫代碼的時候要注意。
另外，在抓取網頁文檔的表時我們這講采用all.tags("table")(3)的方法，這種方法在之前的講解中講過是非常模糊但非常好用的一種數據查找的方案。all.tags(“標簽名稱”)：返回該類標簽的元素集合。這里選擇序號（3）是指序號為3的表的數據。對于innertext的概念，大家要注意理解innerText 是指標簽之間的純文本信息。
在實現提取數據后，將內存釋放，這是我建議的方案。
為了實現上述的思路，我給出了下面的代碼：
Sub myNZB() '利用IE，抓取解禁股票數據
Dim IE, dmt, tb, i&, j&
Set IE=CreateObject("InternetExplorer.Application") '創建一個IE對象
Sheets("SHEET3").Select
Cells.ClearComments
With IE
.Visible=True '顯示它
.navigate "http://data.eastmoney.com/dxf/default.html" '加載某個頁面
Do Until .readystate=4 '等待頁面加載完畢
DoEvents
Loop
Set dmt=.document '將IE瀏覽器加載的頁面文檔，賦予dmt變量
Set tb=dmt.all.tags("table")(3) '通過索引號捕捉表格對象
For i=0 To tb.Rows.Length - 1 '歷遍其每個行
For j=0 To tb.Rows(i).Cells.Length - 1 '歷遍每行的每個單元格
Cells(i + 1, j + 1)=tb.Rows(i).Cells(j).innertext '將其innertext寫入單元格
Next
Next
End With
Set IE=Nothing
Set dmt=Nothing
Set tb=Nothing
MsgBox ("ok")
End Sub
代碼的講解：
1）Set IE=CreateObject("InternetExplorer.Application") 建立IE 的引用。
2）.Visible=True '顯示它
.navigate "http://data.eastmoney.com/dxf/default.html" '加載某個頁面
Do Until .readystate=4 '等待頁面加載完畢
DoEvents
Loop
上述代碼令瀏覽器可見，加載網址http://data.eastmoney.com/dxf/default.html， 一直到加載完成，其中的DoEvents 是避免軟死機的現象出現。
3） Set dmt=.document '將IE瀏覽器加載的頁面文檔，賦予dmt變量
4） Set tb=dmt.all.tags("table")(3) '通過索引號捕捉表格對象
5）For i=0 To tb.Rows.Length - 1 '歷遍其每個行
For j=0 To tb.Rows(i).Cells.Length - 1 '歷遍每行的每個單元格
Cells(i + 1, j + 1)=tb.Rows(i).Cells(j).innertext '將其innertext寫入單元格
Next
Next
提取表格的數據到工作表。
6） Set IE=Nothing
Set dmt=Nothing
Set tb=Nothing
回收內存。對于回收內存的操作，建議大家利用.在數據庫、字典、查找等等案例中都有類似的操作。
代碼截圖：
通過上述的代碼，就可以完成我們的思路。
當我們點擊運行按鈕，如圖的箭頭所示，程序就會開始運行，抓取網頁數據到工作表中。當然在實際的應用中，用戶可以根據自己的實際需要完成抓取工作到指定的位置。
從而驗證了我們思路的正確。
本節知識點回向：如何在頁面文檔中提取指定表的數據？
本節內容參考：009工作表.xlsm
我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中，教程學習順序：
【分享成果，隨喜正能量】人生起起落落是常態，誰都會遇到不盡人意的時候，坦然接受所有的不幸，不頹廢、不放棄、不抱怨，生活的轉機就在前方。。
時候我們的在瀏覽器搜索一些文章來了解一些，看到些的特么好的文章想要復制下來收藏，卻發現我們復制不了，其實這是一些網站頁面的加密設置，先要單純的點擊頁面來復制是不可能的，那么我們遇到網頁文字無法復制粘貼怎么辦呢。
今天就教你解決網頁文字無法復制粘貼的辦法，幫助到大家更好的利用。
從瀏覽器的相關功能下手
如果你使用的是IE瀏覽器的話，我們可以更改其相關設置，屏蔽掉網站的某些功能就能達到目的了。
安全設置幫你忙：啟動IE→點擊菜單“工具”中“Internet選項”→點“安全”→自定義級別→選擇“安全級-高”→確定→按F5“刷新”;這時就可復制網頁的相關內容了，原因很簡單，安全級別最高的時候，一切控件和腳本均不能運行，再厲害的網頁限制手段統統全部作廢;
1、禁用網頁腳本：將Internet的所有“腳本”都改為“禁用”，當復制到自己需要的內容后，再給網頁腳本解禁，這樣不會影響到我們瀏覽其他網頁;
2、利用瀏覽器的編輯功能：只要在瀏覽器的工具欄點擊“編輯工具”，就可以使用關聯的文本編輯工具將網頁內容復制其中，隨后進行相關的編輯操作。
使用外部編輯功能
如果覺得把瀏覽器的設置改來改去太麻煩的話，也可以使用一些常見的軟件幫我們去“曲線救國”。
Word直開：打開Word→單擊工具欄的“打開”，這時在彈出的窗口內輸入想要復制內容的連接，并選擇“信任來源”，之后Word會自動打開網頁，選擇想要復制的內容進行操作即可。
去掉屏蔽代碼：只要將該網頁另存到電腦中，打開網頁→點擊“文件”菜單里的“另存為”→在“保存類型”中選擇“全部(*htm;*.html)”→保存后，用記事本打開你保存的網頁→找到body onselectstart="returnfalse";onpaste="return false" …刪除后保存，再用瀏覽器打開剛保存的文件，也就打開了可復制粘貼的網頁了。
以上幾種復制不可復制網頁的方法學會了嗎?但還是需要說明的是：不要將好的技巧用在違規的事情，尤其是版權問題上。
*請認真填寫需求信息，我們會在24小時內與您取得聯系。
