郭善徽：利用EXCEL表格整理有用的網(wǎng)站數(shù)據(jù)

時(shí)間：2022-07-02 21:54:01 | 來(lái)源：建站知識(shí)

時(shí)間：2022-07-02 21:54:01 來(lái)源：建站知識(shí)

最近公司網(wǎng)站在做外部鏈接，所以收集了一些友情鏈接平臺(tái)、個(gè)人獨(dú)立博客等數(shù)據(jù)，數(shù)據(jù)是用excel做成的表格形式，因?yàn)檫@些數(shù)據(jù)用excel表格做出來(lái)會(huì)比較直觀、方便。

每天我都是打開(kāi)友情鏈接平臺(tái)或個(gè)人獨(dú)立博客的excel數(shù)據(jù)表，然后一個(gè)一個(gè)地點(diǎn)開(kāi)數(shù)據(jù)表里面的鏈接，在逐個(gè)去進(jìn)行刷新、評(píng)論操作。大概統(tǒng)計(jì)了一下，在excel表格里面點(diǎn)開(kāi)100個(gè)網(wǎng)址鏈接大概要20-30分鐘左右，當(dāng)然我的電腦配置和網(wǎng)速都是比較不錯(cuò)的。

今天下午做領(lǐng)升公司友情鏈接平臺(tái)刷新時(shí)，感覺(jué)這樣一個(gè)一個(gè)地點(diǎn)開(kāi)網(wǎng)址鏈接真的太累，而且后面可能還會(huì)收集更多的其它平臺(tái)數(shù)據(jù)，所以我就在想有沒(méi)有什么方法可以點(diǎn)擊一次就能打開(kāi)一個(gè)excel表格里面的所有鏈接呢。之后在網(wǎng)上搜索了一陣，還真讓我找著了一個(gè)方法，這個(gè)方法是用excel的“宏”實(shí)現(xiàn)的，網(wǎng)上那個(gè)教程寫的有點(diǎn)模糊。為了能幫助更多朋友節(jié)省工作時(shí)間，特寫一篇文章詳細(xì)講解這個(gè)一次打開(kāi)EXCEL表里成百上千的鏈接的方法。

一、首先我們打開(kāi)任意一個(gè)包含多個(gè)網(wǎng)址鏈接的excel數(shù)據(jù)表格，然后按Alt+F11進(jìn)入代碼編輯頁(yè)面，如下圖：

大家注意看，圖中的“sheet1(微博互推)”表格名就是我們要操作的，雙擊sheet1(微博互推)這個(gè)表格就會(huì)彈出代碼輸入窗口，如下圖：

接著我們?cè)谶@個(gè)代碼框中輸入如下代碼：

Sub 同時(shí)打開(kāi)多個(gè)鏈接()

Dim i As Integer, n As Integer

n = 100 ‘一次打開(kāi)的鏈接數(shù)，自行更改

For i = 0 To n – 1

ActiveCell.Offset(i, 0).Hyperlinks(1).Follow

Next

ActiveCell.Offset(n, 0).Activate

End Sub

輸完以上代碼后，系統(tǒng)會(huì)自動(dòng)保存所輸入的代碼，直接關(guān)閉代碼窗口即可。

二、第二步我們要設(shè)置excel的宏，進(jìn)入剛才的excel數(shù)據(jù)表格，然后在菜單 – 工具 – 宏 – 宏 – 選擇“一次打開(kāi)excel表格所有鏈接郭善徽”，如下圖：

選擇后點(diǎn)擊窗口右下角的“選項(xiàng)”，這時(shí)會(huì)彈出快捷鍵設(shè)置，快捷鍵我們可以設(shè)置成Ctrl+任意鍵，當(dāng)然盡量不要跟其它快捷鍵有沖突即可，比如我是設(shè)成Ctrl+y鍵，如下圖：

接著我們點(diǎn)確定，這樣所有設(shè)置就完成了。

三、現(xiàn)在我們開(kāi)始實(shí)際操作了，先用鍵盤選擇一列鏈接最上面的那個(gè)鏈接的單元格(不要用鼠標(biāo)選擇，因?yàn)槭髽?biāo)選擇會(huì)直接打開(kāi)鏈接，鍵盤選擇不會(huì)打開(kāi)鏈接)，選好后按下剛才我們?cè)O(shè)定的快捷鍵Ctrl+y快捷鍵，這時(shí)程序就會(huì)自動(dòng)按剛才代碼設(shè)置的數(shù)量(n = 100 ‘一次打開(kāi)的鏈接數(shù)，自行更改)打開(kāi)下面的100個(gè)鏈接了。

注意事項(xiàng)：這個(gè)是簡(jiǎn)單的代碼，只能處理在同一列表格里面的網(wǎng)址鏈接，運(yùn)行到?jīng)]有鏈接的單元格時(shí)，程序會(huì)出錯(cuò)自動(dòng)停止。

本文來(lái)自郭善徽博客，原文鏈接，由郭善徽原創(chuàng)撰寫，歡迎轉(zhuǎn)載，轉(zhuǎn)載請(qǐng)注明來(lái)源網(wǎng)址，謝謝。